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
cu