case/ Eintrag in 2 Tabellenblätter
09.11.2004 09:30:28
Michael
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
Anzeige