Mehrere Bereiche füllen wenn leer (VBA grob vorhanden)

[RPP63]

Ja, ich habe Dich falsch verstanden!

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O3:O7,Q3:Q7")) Is Nothing Then
  Call Makro1
ElseIf Not Intersect(Target, Range("F6")) Is Nothing Then
  Call Makro2
End If
End Sub

Makro2 dann analog Makro1 ändern.
Es ginge auch anders, aber hier geht es ja erst mal ums Prinzip.

[kingkong]

kannst ja mal in ner ruhigen Minute den anderen Vorschlag vorstellen 


Danke dir erstmal

[RPP63]

Das WAR mein Vorschlag!
Du wirst doch wohl das Makro2() analog erstellen können?

[kingkong]

ja na klar


Es ginge auch anders


das war dein Satz