Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Exit sub

Exit sub
11.10.2004 18:54:59
Erich
Hallo Excelprofis,
wer kann mir bei meinen Problem weiterhelfen, ich möchte das der nachfolgende code nach dem der Focus in die Combobox gesetzt wurde abgebrochen wird (Exit sub ?) verzweifle daran
für eure hilfe wäre ich sehr dankbar.
gruß
erich

Private Sub CommandButton1_Click()
For i = 1 To 90
If Me.Controls("ComboBox" & i).Value = "" Then
If Me.Controls("ComboBox" & i).Visible = True Then
MsgBox "Alle Felder Ausfüllen!"
Me.Controls("ComboBox" & i).SetFocus
Exit For
End If
End If
Next
Dim intIndex As Integer
With Sheets("E_87")
lz = .Cells(65536, 1).End(xlUp).Row + 1
For intIndex = 1 To 4
.Cells(lz, intIndex) = Controls("TextBox" & CStr(intIndex)).Value
Next intIndex
For intIndex = 1 To 90
.Cells(lz, intIndex + 4) = Controls("ComboBox" & CStr(intIndex)).Value
Next intIndex
End With
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Exit sub
11.10.2004 18:57:50
Matthias
Hallo Erich,
nimm doch Exit Sub, das müsste klappen.
Du hast ja Exit For stehen.
Gruß Matthias
AW: Exit sub
11.10.2004 19:01:49
Erich
Hallo Matthias
habe es schon probiert nach exit for exit sub zu setzen, aber es schreibt mir trotzden den datensatz in die tabelle
gruß
erich
AW: Exit For weglassen! - o.T.
11.10.2004 19:23:56
Matthias
-
Danke O.T.
Erich
ot
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige