Probleme mit Worksheet_Change
23.07.2003 10:20:38
Jürgen
ich möchte gern bei Eingabe von Zahlen in 4 bestimmten Bereichen, daß ein Makro
gestartet wird. Beim Löschen von Zeichen in diesen Bereichen soll nichts geschehen. Habe mir dazu aus dem Archiv ein paar Beispiele angeschaut und folgendes zusammengebastelt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim Eingabe As Boolean
Set Bereich = _
Application.Union(Range("G6:G15"), Range("S6:S15"), Range("G26:G35"), Range("S26:S35"))
For Each Bereich In Target.Cells
If Bereich.Value <> "" Then Eingabe = True
Next Bereich
If Eingabe = False Then
Exit Sub
Else: Call Mein Makro
End If
End Sub
Das mit dem Löschen bzw. der Eingabe von Werten funkioniert, aber leider auf dem
gesamten Blatt und nicht in den von mir gewünschten Bereichen.
Was ist falsch?
Vielen Dank für Eure Hilfe.
Jürgen