Makro Pflichtfelder
28.12.2007 09:37:00
WalterK
im folgenden Code (den ich vor einiger Zeit im Forum gesehen habe) werden Pflichtfelder vorgegeben, die zuerst befüllt werden müssen, bevor im Blatt weitere Zellen bearbeitet werden können.
Kann der Code so geändert werden, dass auch ein Blattwechsel erst möglich ist, wenn die Pflichtfelder ausgefüllt sind?
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
Besten Dank und Servus, Walter
Anzeige