Hallo zsm,
könnte mir vllt jemand weitter hilfen, Ich wollte eigentlich nur den ersten code unwandln. Er soll anstatt in der ausgewählten Zeile, Spalte 63 in der ausgewählten Spalte, Zeile 7 gucken ob eine Null steht. Egal wie ich es versuche und tausche es klappt nicht.
Über Hilfe würde ich mich freuen.
Urpsürunglich
###########################################################
Dim r As Range
Dim Zelle As Range
Set r = Intersect(Selection, Range("K17:BH424"))
If Not r Is Nothing Then
For Each Zelle In r
If Cells(Zelle.Row, 62) = 0 Then
If OptionButton1 = True Then Zelle.Value = "U ?"
etc....
End If
Next
###########################################################################
Mein Versuch
###########################################################################
Dim r As Range
Dim Zelle As Range
Set r = Intersect(Selection, Sheets("Urlaubsplanung").Range("Eingabebereich"))
If Not r Is Nothing Then
For Each Zelle In r
If Cells(6, Zelle.Column) = 0 Then
etc...
End If
Next
#######################################################################