ich sthe grad ein wenig auf dem Schauch. Ich will folgendes erreichen.
Durch ein CommandButton wird ein Userform aufgerufen. In diesem Userform befindet sich eine Listbox in
der ich ein Datum auswählen kann. Habe ich das Datum ausgewählt und drücke auf "Weiter", sollen auf Tabellenblatt 1 in Spalte D zwischen Zeile 10 und 509 alle Zellen wecle auch deises Datum darstellen in Tabellenblatt 2 kopiert werden.
Der Code vom "Weiter"-Knopf sollte also so aussehen:
Private Sub Weiter2_Click()
Dim i As Integer
For i = 10 To 509
Worksheets("Tabelle1").Activate
If Cells(i, 4) = ListBox1 Then
Cells(i, 4).Copy
Worksheets("Tabelle2").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next i
End Sub
Irgendwie klappt es aber nicht so ganz. er kopiert die erste Zelle mit demselben Datum, hört dann aber auf!
Was mache ich falsch ?
Liebe Grüße,
Gero