05.06.2022, 16:54
ich würde gerne in mehrere Bereiche was verschiedenes eintragen,wenn die Zellen darin leer sind.
jetzt habe ich 2 Makros gefunden mit dem das machbar wäre.
habe mich auch bissl belesen um sie zu verstehen aber VBA ist wirklich etwas kompliziertes für einen Einsteiger.
Dieses funktionierte aber leider nur bei einem Bereich.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("G19:G34")
If Not Intersect(Target, Bereich) Is Nothing Then
If IsEmpty(Target) Then
Target.Value = "Art.Nr. eingeben"
End If
End If
End Sub
nun meine Frage ist dieses erweiterbar auf 3 - 4 Bereiche?
Danke euch und noch schöne Pfingsten gewünscht
jetzt habe ich 2 Makros gefunden mit dem das machbar wäre.
habe mich auch bissl belesen um sie zu verstehen aber VBA ist wirklich etwas kompliziertes für einen Einsteiger.
Dieses funktionierte aber leider nur bei einem Bereich.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("G19:G34")
If Not Intersect(Target, Bereich) Is Nothing Then
If IsEmpty(Target) Then
Target.Value = "Art.Nr. eingeben"
End If
End If
End Sub
nun meine Frage ist dieses erweiterbar auf 3 - 4 Bereiche?
Danke euch und noch schöne Pfingsten gewünscht