Hallo zusammen,
ich habe ein Problem mit dem Optionsknöpfen. Ich brauche einen Code der beschreibt, dass wenn im Feld B4 nix steht ein eintrag in das Feld Cr4 erfolgen soll...
Das nur eine Teilbedingung meines Codes, ich geb hier mal den das drum herum mit an damit es eindeutig ist
x = Cells(Rows.Count, 2).End(xlUp).Row
'hier soll jetzt rein wenn b4 leer dann in cr4 den eintrag setzen.....
If x 253 Then Exit Sub
If OptionButton1 = True Then
Range("CR" & x).Value = 1
End If
Ich habe mich da auch schon ein bisschen ausprobiert, aber es läuft nicht so wie ich das will, der erste eintrag wird immer in CR3 gesetzt, wie es ja die Bedingung darunter auch beschreibt....
meine Idee war
if ("B4") = "" then range ("CR4")= Optionsbutton1
aber da stimmt irgendwas mit meiner Schreibweise wohl nicht....
Danke schon mal im Voraus
Markus