Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Code wird doppelt ausgeführt

VBA Code wird doppelt ausgeführt
01.03.2020 22:05:03
Benedikt
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code wird doppelt ausgeführt
02.03.2020 12:10:02
AlterDresdner
Hallo Benedikt,
entweder guckst Du per Debuggen, was nach dem Klick auf den Button das Ereignis ein 2. Mal auslöst
oder Du stellst eine Testdatei ins Forum.
Oder jemand hat eine Glaskugel...
Gruß der AlteDresdner
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige