Blattwechsel erst, wenn Zelle befüllt ist ..
WalterK
ich habe hier einen funktionierenden Code, der ein weiterarbeiten erst möglich macht, wenn 3 ausgewählte Zellen befüllt sind.
Ich hätte jetzt noch gerne die Erweiterung bzw. Änderung, dass auch ein Blattwechsel erst möglich ist, wenn diese 3 ausgewählte Zellen befüllt sind.
Kann mir jemand dabei behilflich sein?
Besten Dank uns Servus, Walter
hier der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.EnableEvents = False
Dim rgBereich As Range
Dim zaehler1 As Range
Set rgBereich = Worksheets("Tabelle1").Range("A1,B5,A4") 'Pflichfelder
For Each zaehler1 In rgBereich
If zaehler1 = "" Then
zaehler1.Select
Exit For
End If
Next zaehler1
Application.EnableEvents = True
End Sub
Anzeige