If Schleife
simon
hab mal wieder ein Problem, irgendwie bekomm ich das mit der If Abfrage nicht hin.
Ich sag mal mein Problem in Worten, unten hab ich meinen Code (bei dem Passiert gar nichts, nicht mal eine Fehlermeldung )
Wenn die Checkbox angeklickt ist (true) soll er überprüfen ob in der aktuellenSpalte +1 etwas drin steht wenn sie nicht Leer ist (Not Empty ?) soll er denn Wert in aktuelleSpalte + 2 schreiben.
Ist aktuelleSpalte +1 leer (else) soll er den wert in aktuelleSpalte +1 schreiben.
Ist die Checkbox nicht angewählt (false) soll er den Wert in aktuelleSpalte schreiben
If CheckBox = True Then
If Cells(aktuelleZeile , aktuelleSpalte + 1) = Not Empty Then
Cells(aktuelleZeile , aktuelleSpalte + 2) = CDate(Txtdatum)
Else
Cells(aktuelleZeile , aktuelleSpalte + 1) = CDate(Txtdatum)
If Checkbox = False Then
Cells(aktuelleZeile , aktuelleSpalte) = CDate(Txtdatum)
End If
End If
End If
danke schon mal für eure hilfe.