ich habe eine Frage an euch. Im 1. Reiter lasse ich per Klick eine Userform erscheinen. In dieser kann man per "DTPicker" das Datum auswählen. Dieses wird im 2. Reiter gespeichert und in einer anderen Zelle in mein gewünschtes Format gebracht. Danach sucht der Code im 3. Reiter nach diesem Datum. Wenn er es gefunden hat (kommt immer vor), soll die Reihe als Variable gespeichert werden. Nun soll überprüft werden, ob für dieses Datum in Spalte G ein Wert drinsteht oder die Zelle leer ist. Wenn sie leer sein sollte öffnet sich eine weitere Userform.
Jetzt zu meinem Problem. Die Userformen und der Code laufen ohne Fehlermeldung. Leider kommt nicht das richtige Ergbnis. Ich habe eine Hilfsvariable eingebaut um mir beim Testen den Wert der Zelle anzeigen zu lassen. Diese bzw. die Prozedur gibt mir nur den richtigen Wert wieder, wenn ich das Makro starte, wenn ich im 3. Reiter bin. Starte ich alles wie gewünscht im 1. Reiter zeigt mir die Hilfsvariable "Empty" an, obwohl ich in Zelle (x,7) einen Wert stehen hab.
Ich hoffe ihr könnt mir helfen. Sollte es doch ein wenig komplexer sein, lade ich eine Beispieldatei hoch.
Private Sub CommandButton1_Click()
Dim Ergebnis As Range
Sheet2.Cells(13, 5) = DTPicker1
Wert = Sheet2.Cells(12, 21).Value
With Worksheets("Tabelle3")
Set Ergebnis = Sheet3.Range("F3:F100").Find(What:=Wert, LookIn:=xlValues, LookAt:= _
xlWhole)
X = Ergebnis.Row
Var = Cells(X, 7) 'Hilfsvariable um den Wert zu überprüfen
If Cells(X, 7).Value = "" Then
Data.Show
End If
End With
Unload Me
End