AW: Mehrere abfragen mittels MsgBox
04.02.2021 19:18:14
Piet
Hallo Funny
es gibt zwei verschiedene Makros die dafür in Frage kommen. Das eine wird über einen Button gestartet, das andere durch die direkte Eingabe von Text in eine Zelle (Tabelle). Ich habe dir mal zwei Beispiele hochgeladen. Ich hoffe du kannst damit etwas anfangen. Das erste Makro gehört in ein Tabellenblatt, das zweite Makro in ein normles Modul.
mfg Piet
'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