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:09:26
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Und wieso die Frage doppelt?
01.03.2020 22:48:55
onur
AW: Und wieso die Frage doppelt?
01.03.2020 23:40:44
Benedikt
Das war ein versehen. Ich hatte den Beitrag abgewendet und hab die Seite aktualisiert. Dadurch ist der Beitrag dann doppelt gesendet worden
AW: Und wieso die Frage doppelt?
02.03.2020 06:01:19
Luschi
Hallo Benedikt,
hast Du auch dieses Ereignis/Event für die4 TextBox 'preis' definiert?
Private Sub preis_Change()
'Dein Code
End Sub
fragt sich Luchi
aus klein-Paris
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige