Supportnet / Forum / Tabellenkalkulation

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 [code] x = Cells(Rows.Count, 2).End(xlUp).Row 'hier soll jetzt rein wenn b4 leer dann in cr4 den eintrag setzen..... If x < 3 Or x > 253 Then Exit Sub If OptionButton1 = True Then Range("CR" & x).Value = 1 End If [/code] 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 [code] if ("B4") = "" then range ("CR4")= Optionsbutton1 [/code] aber da stimmt irgendwas mit meiner Schreibweise wohl nicht.... Danke schon mal im Voraus Marsi

Hallo,

normalerweise geht das doch so:

If Range("B4").Value = "" Then Range("CR4").Value = "irgendwas??"

Aber so ganz habe ich das noch nicht verstanden:Was soll denn in "CR4" stehen? Wozu der Optionbutton? und was passiert wenn "B4" nicht leer ist?

Gruß
Günter

Hallo Günter

danke, das hat's gebracht. Deine Frage was passiert, wenn b4 leer ist, hat mich sogar noch auf nen Fehler aufmerksam gemacht:

also richtig heißt es jetzt:

x = Cells(Rows.Count, 2).End(xlUp).Row + 1
If ("B4") = "" Then Range("CR4").Value = 1
If x < 3 Or x > 253 Then Exit Sub
If OptionButton1 = True Then
Range("CR" & x).Value = 1
End If

Danke

• Handbuch zur Einführung in die VBA Programmierung in EXCEL
• VBA Skript für Farbumstellung an Powerpointfolien
• mehre Excel Arbeitsblaetter in PowerPoint via VBA ansprechen