Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

case/ Eintrag in 2 Tabellenblätter

case/ Eintrag in 2 Tabellenblätter
09.11.2004 09:30:28
Michael
Hallo
Mit einem Commandbutton trage ich im Tabellenblatt die Daten ein. Die Tabellen blätter wähle ich mit unterem Code aus (Über ZugnummerCbo)Das ist auch kein Problem und funktioniert super. Das Problem taucht auf, wenn ich Daten in 2 tabellenblätter eintragen will (Das 2.Tabellenblatt soll mit/über Zugnummercbo2 angesprochen werden).

Private Sub Eintrag_Click()
Select Case ZugnummerCbo
Case "940"
sh = "SWA 1"
Case "14800"
sh = "SWA 2"
Case "14804"
sh = "SWA 3"
Case Else
Exit Sub
End Select
Sheets(sh).Select
[a1] = "test"
End If
End Sub

Ich hoffe es kann mir jemand helfen (Ich dreh schon durch, habe alles probiert if then elself usw.)
Danke
Michael

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

Betreff
Datum
Anwender
Anzeige
Probleme nur noch mit exit sub
09.11.2004 09:52:14
Michael
Ich habe es irgendwie geschafft. Es schaut zwar nicht schön aus, aber es funktioniert. Das einzige Problem was ich noch habe ist, falls ZugnummerCbo leer ist, dann kommt exit sub. Wer kann mir da noch helfen

Private Sub Eintrag_Click()
Select Case ZugnummerCbo
Case "940"
sh = "SWA 1"
Case "14800"
sh = "SWA 2"
Case "14804"
sh = "SWA 3"
Case Else
Exit Sub
End Select
Sheets(sh).Select
[a1] = "test"
Select Case ZugnummerCbo2
Case "940"
sh = "SWA 1"
Case "14800"
sh = "SWA 2"
Case "14804"
sh = "SWA 3"
Case Else
Exit Sub
End Select
Sheets(sh).Select
[a1] = "test"
End Sub

Danke
Michael
Anzeige
AW: Probleme nur noch mit exit sub
Archi

Private Sub Eintrag_Click()
if me.ZugnummerCbo.Text="" then
Fall2
else Fall1
End if
Sub Fall1()
Select Case ZugnummerCbo
Case "940"
sh = "SWA 1"
Case "14800"
sh = "SWA 2"
Case "14804"
sh = "SWA 3"
Case Else
Exit Sub
End Select
Sheets(sh).Select
[a1] = "test"
End Sub

Sub Fall2 ()
Select Case ZugnummerCbo2
Case "940"
sh = "SWA 1"
Case "14800"
sh = "SWA 2"
Case "14804"
sh = "SWA 3"
Case Else
Exit Sub
End Select
Sheets(sh).Select
[a1] = "test"
End Sub
Anzeige
Danke
Michael
Danke das hat mir sehr geholfen. Die Formel hatte nur einen Formfehler. Wenn beide Cbo's ausgefüllt sind dann bricht er ab
if me.ZugnummerCbo.Text="" then
Fall2
else Fall1
elself Fall2
End if
Danke Michael

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige