3
Einfache IF-Anweisung
Hallo zusammen,
ich möchte eine einfache IF-Anweisung machen. Es sollen alle Datums, die von 2000 sind in ein neues Register kopiert werden.
Das Datum ist als Datum formatier (z.B. 01.01.2000).
Sollte die dann so aussehen:
sdatum = Range("C" & Format$(izeile)).Formula
If Active.Sheet.Cell(sdatum, 7, 2).Value = "2010" Then
Selection.Copy
Sheets("Auswertung 2010").Select
End If
Ich hab das selber kopiert. Es kann sein das es völliger Blödsinn ist
.
Jemand eine Idee?
Ich Danke euch im voraus.
Grüße
ich möchte eine einfache IF-Anweisung machen. Es sollen alle Datums, die von 2000 sind in ein neues Register kopiert werden.
Das Datum ist als Datum formatier (z.B. 01.01.2000).
Sollte die dann so aussehen:
sdatum = Range("C" & Format$(izeile)).Formula
If Active.Sheet.Cell(sdatum, 7, 2).Value = "2010" Then
Selection.Copy
Sheets("Auswertung 2010").Select
End If
Ich hab das selber kopiert. Es kann sein das es völliger Blödsinn ist
.Jemand eine Idee?
Ich Danke euch im voraus.
Grüße
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 125769
Url: https://administrator.de/contentid/125769
Ausgedruckt am: 14.11.2024 um 17:11 Uhr
3 Kommentare
Neuester Kommentar
Hallo Philippe_M!
Eigentlich sollten sich die ersten beiden Zeilen durch
ersetzen lassen.
Grüße
bastla
Ich hab das selber kopiert. Es kann sein das es völliger Blödsinn ist
Das solltest Du ja schon aus Deinen Tests damit wissen ...Eigentlich sollten sich die ersten beiden Zeilen durch
If Year(ActiveSheet.Cells(izeile, "C").Value) = 2010 Then
Grüße
bastla
Hab da mal was....
Klappt aber leider nicht...
Sub Makro3()
While (Range("C" & Format$(izeile)).Formula <> "")
sdatum = Range("C" & Format$(izeile)).Formula ' Zeile C
If izeile < "31.12.2009" Then
Selection.Copy
Sheets("Auswertung 2009").Select
ActiveSheet.Paste
End If
ActiveCell.FormulaR1C1 = "izeile"
Range("izeile").Select
izeile = izeile + 1
Wend
End Sub
Klappt aber leider nicht...
Sub Makro3()
While (Range("C" & Format$(izeile)).Formula <> "")
sdatum = Range("C" & Format$(izeile)).Formula ' Zeile C
If izeile < "31.12.2009" Then
Selection.Copy
Sheets("Auswertung 2009").Select
ActiveSheet.Paste
End If
ActiveCell.FormulaR1C1 = "izeile"
Range("izeile").Select
izeile = izeile + 1
Wend
End Sub
Hallo Philippe_M!
Wie wär's denn einmal mit einer Beschreibung, was Du genau erreichen willst?
Grüße
bastla
Wie wär's denn einmal mit einer Beschreibung, was Du genau erreichen willst?
Grüße
bastla
