VBA Code wird doppelt ausgeführt
01.03.2020 22:05:03
Benedikt
ich habe ein Problem und finde den Fehler leider nicht.
Folgender Sachverhalt:
Ich habe ein Ereignis definiert das ausgeführt wird sobald der Cursor ein Feld im Userform verlässt. Wenn ich jetzt innerhalb des Userforms auf einen Button klicke und dadurch das Feld verlasse wird das Ereignis doppelt ausgeführt. Wie kann ich das unterbinden?
Ich bin für jede Hilfe, jeden Tipp sehr dankbar.
Private Sub preis_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ws As Worksheet
Dim a As String
Dim b As Integer
Dim c As Range
If IsNumeric(verkauf.preis.Value) Then
If GetSheetFromCodeName("Tabelle1", ws) Then
ws.Activate
ws.Cells(last, 1) = verkauf.vk_nr.Value
ws.Cells(last, 2) = Round(Int(Replace(verkauf.preis.Value, ".", ",") * 100) / 100, _
_
_
_
1)
ws.Cells(last, 3) = kunde
ws.Cells(last, 7) = ws.Cells(1, 7).Value
ws.Cells(1, 6) = k
ws.Range("A" & last).Select
last = last + 1
End If
Else
MsgBox "Bitte überprüfe die Preisangabe!", vbCritical
Cancel = True
Exit Sub
End If
ActiveWorkbook.Save
Call txt_erzeugen
verkauf.vk_nr.SetFocus
verkauf.vk_nr.Value = ""
verkauf.gegenstand.Value = ""
verkauf.preis.Value = ""
End Sub
Private Sub cash_Click()
testzahl = 0
Call bezahlen
Unload verkauf
kasse.Show
End Sub
Anzeige