ich hatte mich vor einiger Zeit mit meinem VBA-Problem an euch
gewandt und mir wurde super, mit einem Code-Schnippsel, geholfen.
Jetzt habe ich leider wieder ein Problem - es geht um folgenden Code:
Range("N5").Select
Do Until ActiveCell.Value = Empty
ActiveCell.Value = DateValue("30.06." & 2016 - ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
Das kleine Script nimmt jede Zahl (bspw. 25) und rechnet das Jahr
des Geburtstages aus, wenn der Jenige am 30.06. Geburtstag hat -
schreibt es anschließend in die gleiche Zelle hinein.
Klappt auch ganz gut.
Wie kann ich Zeilen überspringen,
an denen sich bereits ein Geburtsdatum befindet?
Also:
Quelle: 25
Ziel: 30.06.1991
Steht in der Zeile der Inhalt der Quelle, klappt es.
Steht in der Zeile, warum auch immer, schon das
Geburtsdatum, dann bekomme ich einen Fehler.