Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe schon für einiger Zeit einen ähnlichen Beitrag gehabt, der mich auch zu ner Lösung brachte. Danke noch mal. Ich müsste etwas modifizieren und komme nicht zu rande.... folgender Code: [code] x = Cells(Rows.Count, 2).End(xlUp).Row If x < 3 Or x > 253 Then Exit Sub If OptionButton1 = True Then Range("CR" & x).Value = 1 End If [/code] dieser code überprüft, ob in spalte b ein eintrag ist und wenn ja dann springt er eine zeile weiter. alles sehr gut nur. beim aller ersten anstarten ist da ja nun mal kein Eintrag in der zeile B4 und da soll dann nicht weitergesprungen werden. Hoffe es kann sich jemand in das problem reindenken. Danke!

Hi,

dann prüfe doch einfach erst mit ner If schleife ob überhaupt was in B4 steht wenn nein dann wird die oben genannte Prozedur nicht aufgerufen und du kannst direkt in die Zelle schreiben.
Hoffe ich habe das Problem richtig verstanden.

Grüße Tino

hi ihr beiden :)

vielleicht so :)

gruss nighty

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

noch mal besten dank euch zwei, das funktioniert.

• Lauffehler 13
• vba in Code-Zeile "springen"
• zeilen alphabetisch ordnen (automatisch)
• Excel - VBA: Variable Zellbezüge
• VBA