Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Programm abbrechen in VBA

Programm abbrechen in VBA
15.10.2004 11:14:48
Andreas
Hallo,
ich habe ein Formular das ich hintereinander x-mal aufrufe, jetzt will ich aber bei click auf Button "Abbrechen" den Ablauf komplett abbrechen und den Wert aus Variable nicht in Zelle weiterschreiben.
In meinem Code wird nur das ausgeführte Formular beendet.
Wie schaut die Lösung aus?
Danke im voraus Gruss Andreas
Option Explicit
Sub OK_Click()
Dim meldung As String
Dim a As Integer
a = 0
If OptionButton1 = True Then
a = 10
ElseIf OptionButton2 = True Then
a = 20
ElseIf OptionButton3 = True Then
a = 30
ElseIf OptionButton4 = True Then
a = 40
End If
If a = 0 Then
meldung = "Sie müssen eine Auswahl treffen"
MsgBox meldung
Exit Sub
End If
Range("d7").Value = Range("d7").Value + a
Unload Me
End Sub

Private Sub Abbrechen_Click()
Unload Me
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Programm abbrechen in VBA
Bert
Option Explicit
Sub OK_Click()
DoEvents
Dim meldung As String
Dim a As Integer
a = 0
If OptionButton1 = True Then
a = 10
ElseIf OptionButton2 = True Then
a = 20
ElseIf OptionButton3 = True Then
a = 30
ElseIf OptionButton4 = True Then
a = 40
End If
If a = 0 Then
meldung = "Sie müssen eine Auswahl treffen"
MsgBox meldung
Exit Sub
End If
Range("d7").Value = Range("d7").Value + a
Unload Me
End Sub

Private Sub Abbrechen_Click()
end
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige