@Matthias L.
03.12.2013 17:50:58
Frank
Ich hoffe dich auf diesem Weg noch einmal zu erreichen.
Vielleicht bist du ja interessiert. Wir beide kamen ja am Sonntag nach einigem Hin und Her nicht ganz zu Potte. Meine Datei konnte ich nicht verkleinern.
Aber wie ich nach Schließen der UF wieder in meine Datumszelle gelangen kann lies mir aber keine Ruhe. So bin ich im Netz dann doch noch fündig geworden. Folgender Code tut nun seine von mir gewünschte ASrbeit:
Dim datum As Date
Dim i As Integer
datum = CDate(TextBox1)
For i = 5 To 35
If Cells(i, 5).Value = datum Then
Cells(i, 5).Activate
End If
Next
Unload Me
Aber dir gebührt für deine Geduld mit mir und dein Interesse Anderen helfen zu wollen dennoch der allerherzlichste Dank!
Kannst dich ja kurz melden wenn dich diese Nachricht erreichen konnte.
Gruß Frank H.