ich benötige eine Hilfestellung bei dem untenstehenden Code.
Ich übergebe aus einer UF Textbox Daten an eine Tabelle. Da die Daten an unterschiedlichen Tagen in die Tabelle eingetragen werden kann es sein,daß in der Zelle schon ein Datum steht. Wie kann ich wenn die
Zelle bereits gefüllt ist bzw. wenn die für diese Zelle "zuständige" Textbox leer ist zur nächsten
gelangen?
Private Sub CommandButton8_Click()
With ActiveSheet
If TextBox1.Value = "" Or Range("AG2") "" Then
'hier soll dann zur nächsten Zelle bzw. Textbox gesprungen werden
'um diese auch zu prüfen
Else
Range("AG2") = CDate(TextBox1.Value)
End If
Range("AG3") = CDate(TextBox10.Value)
Range("AG4") = CDate(TextBox11.Value)
Range("AG5") = CDate(TextBox12.Value)
Range("AG6") = CDate(TextBox13.Value)
Range("AG7") = CDate(TextBox14.Value)
Range("AG8") = CDate(TextBox15.Value)
Range("AG9") = CDate(TextBox16.Value)
End With
End Sub
GrußVolker