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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 125769
Url: https://administrator.de/contentid/125769
Printed on: April 23, 2024 at 15:04 o'clock
3 Comments
Latest comment
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
