MsgBox zuweisen

[omron2003]

Hallo Forum,

wenn ich untenstehenden Code ausführe werden mir immer beide MsgBoxen nach einander angezeigt?
Sie sollen aber nur bei dem jeweiligen Ereignis angezeigt werden.

Was habe ich hier falsch gemacht?

Besten Dank im Voraus
omron2003

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'-----------------------------------------------------------------------------
'   Ausführen bei Klick auf eine Zelle in Bereich A21:A10000
'-----------------------------------------------------------------------------
If MsgBox("Möchten Sie die Daten an die Checkliste Artikelanlage übergeben?", vbYesNo, "Sicherheitsabfrage") = vbYes Then
If Not Intersect(Target, Range("A21:A10000")) Is Nothing Then
   Call ZellKop_DLE 'Ruft das Makro für die Übertragung auf
   Exit Sub
End If
End If
'-----------------------------------------------------------------------------
'   Ausführen bei Klick auf eine Zelle in Spalte BH21:B10000
'-----------------------------------------------------------------------------
If MsgBox("Sollen die Packvorschriftenkennzahlen angelegt werden?", vbYesNo, "Sicherheitsabfrage") = vbYes Then
If Not Intersect(Target, Range("BH21:BH10000")) Is Nothing Then
        With Worksheets("Packvorschriftkennzahlen").Cells(Rows.Count, 1).End(xlUp).Offset(1)
            .Value = Cells(Target.Row, "D")
            .Offset(, 1).Value = Cells(Target.Row, "BF")
            .Offset(, 2).Value = Cells(Target.Row, "BG")
            .Offset(, 3).Value = Cells(Target.Row, "E")
        End With
        MsgBox "Packvorschriften Kennzahlen wurden angelegt!"
     Exit Sub
  End If
End If
End Sub

[Lutz Fricke]

Hallo omron2003,

die Reihenfolge ist verkehrt...

So sollte es laufen:

Code:

If Not Intersect(Target, Range("A21:A10000")) Is Nothing Then
If MsgBox("Möchten Sie die Daten an die Checkliste Artikelanlage übergeben?", vbYesNo, "Sicherheitsabfrage") = vbYes Then

Gruß,
Lutz