Mit untenstehenden Code (der Großteils aus diesem Forum stammt)wird erfolgreich in jede zweite Zelle der angegebene Wert eingesetzt. Jetzt zu meiner Bitte:
Wie muß der Code umgestaltet werden, sodaß der Eintrag erst stattfindet wenn in Zeile 1,2 u.5 kein Eintrag vorhanden ist?
Private Sub cmdUrlaub_Click()
Dim Bereich As String, arrBereich As String, i As Long
Dim strBereich As String, iI As Integer
Dim Us$(0, 1 To 50)
With Selection.Areas
For iI = 1 To .Count
strBereich = strBereich & .Item(iI).Address(False, False) & ", "
Next iI
End With
strBereich = Left$(strBereich, Len(strBereich) - 2)
Range(strBereich) = ""
For i = 1 To 50
If (i And 1) = 1 Then Us(0, i) = "U"
Next
For i = 1 To Selection.Areas.Count
Bereich = Bereich & Selection.Areas(i).Address(False, False) & ", "
Selection.Areas(i) = Us
Next i
arrBereich = Left$(Bereich, Len(Bereich) - 2)
With Range(arrBereich)
For i = 1 To Selection.Areas.Count
Bereich = Bereich & Selection.Areas(i).Address(False, False) & ", "
Selection.Areas(i) = Us
wksWert.Range(Selection.Areas(i).Address) = Us
Next i
End With
End Sub
Güße Lorenz