Hallo zusammen,
ich habe eine UserForm, mit der ich über Optionbuttons werte in eine Tabelle trage.
der Code lautet:
x = Cells(Rows.Count, 2).End(xlUp).Row
If x 253 Then Exit Sub
If OptionButton1 = True Then
Range("CR" & x).Value = 1
End If
der checked ob in spalte b in der zeile was steht und schreibt im fall das die zelle in spalte b gefüllt ist einen wert in die spalte cr in der die entsprechende zeile. So weit so gut. Ich habe nur ein kleines Problemchen mit der ersten Zeile. Da steht ja zu beginn nun mal kein wert drin. Ich tue mich schwer mit ner entsprechenden if schleife. Die da lauten müsste, wenn b4 leer, dann in cr4 schreiben ansonsten, der code wie oben.....
Danke für eure Ideen.