innerhalb einer VBA-Prozedur 2 Zustände abfragen u reagieren

Hallo zusammen,

ich brauche mal Eure Hilfe weil ich mich irgendwie verfranzt habe.
Und zwar möchte ich innerhalb einer Prozedur 2 Zustände abfragen und jeweils darauf reagieren.

In "D12" steht die Anrede und in D12 ein Name.
Falls in D12 "Sehr geehrte Damen und Herren" steht darf natürlich kein Name enthalten sein.
Falls in D12 "Sehr geehrter Herr" ODER "Sehr geehrte Frau" steht, MUSS in D13 ein Name enthalten sein, bzw. eingegeben werden müssen.

Wie kann ich das am besten lösen.
Mit meinem nach nachfolgender Code löse ich leider nicht beide Zustände auf.

Danke für Deine Hilfe im Voraus.
Jens

Private Sub Worksheet_Change(ByVal Target As Range)



Dim Bereich As Range, zelle As Range

Application.ScreenUpdating = False



If Range("D12") = "Sehr geehrte Damen und Herren," Then

    Range("D13:D13").Select  'Eingegebenen Namen löschen

    Selection.ClearContents

    MsgBox "Da die Anrede  ''Sehr geehrte Damen und Herren''  verwendet wurde, wurde der eingegebene Name entfernt !"

    

   If Range("D12") = "" Then

Else

Set Bereich = Range("Stammdaten!D12:D12")

For Each zelle In Bereich

If zelle.Value > "" And InStr(1, "Sehr geehrter Herr,Sehr geehrte Frau", zelle.Value) > 0 Then

Range("D13:D13").Select

MsgBox "Bitte den Nachnamen des Angebot-Empfängers eingeben !"

End If



Next



Application.ScreenUpdating = True

End If

End If



End Sub

saubere IF-Blöcke schreiben.
kein EXIT-Sub verwenden, sobald man das Change-Event für mehrere Zellbereiche mit unterschiedlichen Funktionaltäten benötigt.
macht man gerne mal, wenns schnell gehen muss.

Private Sub Worksheet_Change(ByVal Target As Range)



If Not Intersect(Target, Range("D15")) Is Nothing Then

    Sheets("Stammdaten").Range("A1:A500").Rows.AutoFit

    ActiveSheet.Calculate

    ThisWorkbook.RefreshAll

    Call ZeilenhöheÜbertragen



ElseIf Not Intersect(Target, Range("D12")) Is Nothing Then



    Application.EnableEvents = False 'sonst wird Worksheet_Change angetriggert

    With Range("D13")

        Select Case Range("D12").Value

        Case "Sehr geehrte Damen und Herren,"

            If .Value > "" Then

                .ClearContents

                MsgBox "Da die Anrede  ''Sehr geehrte Damen und Herren''  verwendet wurde, wurde der eingegebene Name entfernt !"

            End If

            

        Case "Sehr geehrter Herr", "Sehr geehrte Frau"

            If .Value = "" Then

                Range("D13:D13").Select

                MsgBox "Bitte den Nachnamen des Angebot-Empfängers eingeben !"

            End If

        

        End Select

    End With

    Application.EnableEvents = True

End If



End Sub

innerhalb einer VBA-Prozedur 2 Zustände abfragen u reagieren

Forumthread: innerhalb einer VBA-Prozedur 2 Zustände abfragen u reagieren

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

innerhalb einer VBA-Prozedur 2 Zustände abfragen u reagieren

Forumthread: innerhalb einer VBA-Prozedur 2 Zustände abfragen u reagieren

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread