Ist das überhaupt möglich? Danke für eure Hilfe, bis gleich Fanny
'dieses Makro gehört ins Tabellenblatt wo du eingibst.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Txt As String
On Error GoTo Fehler
If Target.Count > 1 Then Exit Sub
If Target.Address "$D$2" Then Exit Sub
If Range("A2") = "" Then Txt = "Vorname fehlt" & vbLf
If Range("B2") = "" Then Txt = "Fam.name fehlt" & vbLf
If Range("C2") = "" Then Txt = "Strasse fehlt" & vbLf
If Range("D2") = "" Then Txt = "PLZ fehlt" & vbLf
If Range("D2") = "" Then Txt = "Ort fehlt" & vbLf
If Txt "" Then MsgBox "Eingabe wird verweigert" & vnlf & Txt: Exit Sub
'Hier kann dein Programm stehen um die Eingabe zu verarbeiten!
Application.EnableEvents = False 'verhindert wiederholte Eingaben
Fehler: Application.EnableEvents = True
End Sub
'Modulblatt (Modul1)
'Makro für intelligenten Autofilter!!
'filtert auch verknüpfte Werte, zwei Texte
Sub Button_BeiKlick()
Dim Txt As String
'Der Range Bereich laesst sich auf deine Tabelle aendern!
If Range("A2").Value = "" Then Txt = "Vorname fehlt" & vbLf
If Range("B2").Value = "" Then Txt = "Fam.name fehlt" & vbLf
If Range("C2").Value = "" Then Txt = "Strasse fehlt" & vbLf
If Range("D2").Value = "" Then Txt = "PLZ fehlt" & vbLf
If Range("D2").Value = "" Then Txt = "Ort fehlt" & vbLf
If Txt "" Then MsgBox "Eingabe wird verweigert" & vnlf & Txt: Exit Sub
'Hier kann dein Programm stehen um die Eingabe zu verarbeiten!
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Txt As String
'Der Range Bereich laesst sich auf deine Tabelle aendern!
If Range("A2").Value = "" Then Txt = "Vorname fehlt" & vbLf
If Range("B2").Value = "" Then Txt = "Fam.name fehlt" & vbLf
If Range("C2").Value = "" Then Txt = "Strasse fehlt" & vbLf
If Range("D2").Value = "" Then Txt = "PLZ fehlt" & vbLf
If Range("D2").Value = "" Then Txt = "Ort fehlt" & vbLf
If Txt "" Then MsgBox "Schliessen wird verweigert" & vbLf & Txt: Cancel = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Txt As String
'Der Range Bereich laesst sich auf deine Tabelle aendern!
If Range("A2").Value = "" Then Txt = "Vorname fehlt" & vbLf
If Range("B2").Value = "" Then Txt = "Fam.name fehlt" & vbLf
If Range("C2").Value = "" Then Txt = "Strasse fehlt" & vbLf
If Range("D2").Value = "" Then Txt = "PLZ fehlt" & vbLf
If Range("D2").Value = "" Then Txt = "Ort fehlt" & vbLf
If Txt "" Then MsgBox "Speichern wird verweigert" & vbLf & Txt: Cancel = True
End Sub
cuPrivate Sub Worksheet_Deactivate()
Dim Txt As String
'Der Range Bereich laesst sich auf deine Tabelle aendern!
If Range("A2").Value = "" Then Txt = "Vorname fehlt" & vbLf
If Range("B2").Value = "" Then Txt = "Fam.name fehlt" & vbLf
If Range("C2").Value = "" Then Txt = "Strasse fehlt" & vbLf
If Range("D2").Value = "" Then Txt = "PLZ fehlt" & vbLf
If Range("e2").Value = "" Then Txt = "Ort fehlt" & vbLf
If Txt "" Then MsgBox "Speichern wird verweigert" & vbLf & Txt: Cancel = True
If True Then
Sheets(1).Activate
End If
End Sub
Private Sub Worksheet_Deactivate()
Dim Txt As String
'Der Range Bereich laesst sich auf deine Tabelle aendern!
If Range("A2").Value = "" Then Txt = "Vorname fehlt" & vbLf
If Range("B2").Value = "" Then Txt = "Fam.name fehlt" & vbLf
If Range("C2").Value = "" Then Txt = "Strasse fehlt" & vbLf
If Range("D2").Value = "" Then Txt = "PLZ fehlt" & vbLf
If Range("e2").Value = "" Then Txt = "Ort fehlt" & vbLf
If Txt "" Then MsgBox "Speichern wird verweigert" & vbLf & Txt: Sheets(1).Activate
End Sub
cuDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen