Microsoft Excel

Herbers Excel/VBA-Archiv

Combobox Eintrag-Sheet Link

Betrifft: Combobox Eintrag-Sheet Link von: Reno
Geschrieben am: 20.09.2004 10:21:45

Hallo,

brauche eure Hilfe.

Habe mehrere Sheets (ca.10) welche ich über eine Introseite mit einer
Combobox verlinken möchte. Habe mich schon wie folgt probiert.

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Application market life cycle" Then
Sheets("Mic1A").Select
Else
Sheets(ComboBox1.Value).Select
End If

If ComboBox1.Value = "3 Yr. Development / Forecast Top Customer" Then
Sheets("Mic1B").Select
Else
Sheets(ComboBox1.Value).Select
End If

If ComboBox1.Value = "Swot Analysis" Then
Sheets("Mic1C").Select
Else
Sheets(ComboBox1.Value).Select
End If
End Sub


Mit einem Eintrag hat es geklappt, ab zweien jedoch nicht mehr .

Bitte sagt mir was ich falsch mache.

MFG

Reno
  


Betrifft: AW: Combobox Eintrag-Sheet Link von: Ulf
Geschrieben am: 20.09.2004 10:27:32

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
End Sub


Ulf


  


Betrifft: AW: Combobox Eintrag-Sheet Link von: Reno
Geschrieben am: 20.09.2004 10:57:04

Vielen Dank für die schnelle Antwort.

Nur möchte ich die Sheetnamen wie folgt abkürzen: Mic1A, Mic1B, Mic1C, etc.

Deshalb habe ich mich mit der If-Anweisung probiert.

Das der Anwender auf dem Introsheet z.B. "Application market life cycle" auswählt und
dann auf dem Sheet "Mic1A" landet.
Also so:

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Application market life cycle" Then
Sheets("Mic1A").Select
Else
Sheets(ComboBox1.Value).Select
End If

If ComboBox1.Value = "3 Yr. Development / Forecast Top Customer" Then
Sheets("Mic1B").Select
Else
Sheets(ComboBox1.Value).Select
End If

End Sub


Und diese Prozedur dann für mehrere Sheets.

MFG

Reno


  


Betrifft: warum nochmal ? von: andreas e
Geschrieben am: 20.09.2004 11:00:11

Du hast doch in deinem altenthread heute nachgefragt und antowrt bekommen

https://www.herber.de/forum/messages/487562.html

Soll jetzt auf 2 Baustellen gearbeitet werden ?
gruß
andreas e


  


Betrifft: AW: warum nochmal ? von: Reno
Geschrieben am: 20.09.2004 12:03:40

Sorry hat sich erledigt...hatte die antwort nur sehr dringend benötigt.

mfg

Reno


 

Beiträge aus den Excel-Beispielen zum Thema "Combobox Eintrag-Sheet Link"