Datum aus TextBox als Bedingung
06.08.2004 09:04:51
Sybille
ich habe habe eine Tabelle mit zwei Daten (Plural Datum). Der Inhalt der Spalte E der jeweiligen Zeile X soll auf Tabelle3 kopiert werden, wenn....
...in Spalte M und O ein Datum steht
...in Spalte A eine 5 steht
...das Datum in Spalte M >= dem Datum der Textbox „VonTextBox“ (auf UserForm)
...das Datum in Spalte O Ich bin der Meinung, das ich das im Code so gemacht hat. Leider ist VBA anderer Meinung und ich bekomme nichts in Tabelle3 kopiert....
Vielen Dank für jeden Tipp....zum Glück ist heute Freitag...
Der Code wird von einer UserForm aus ausgeführt….
Private Sub GoCMB_Click()
x = 5
Do Until Application.WorksheetFunction.CountBlank(Worksheets(1).Rows(x)) = 256
x = x + 1
If IsDate(Worksheets(1).Cells(x, 13)) And IsDate(Worksheets(1).Cells(x, 15)) Then
If Worksheets(1).Cells(x, 1) = "5" And Worksheets(1).Cells(x, 13).Value >= VonTextBox.Value _
And Worksheets(1).Cells(x, 15).Value <= BisTextBox.Value Then
Worksheets(3).Cells(x, 1).Value = Worksheets(1).Cells(x, 5).Value
End If
End If
Loop
End Sub
Anzeige