Blattregisterkarte aufrufen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Blattregisterkarte aufrufen
von: Benjamin
Geschrieben am: 27.10.2003 15:45:05

Hi,

mit


Private Sub ComboBox1_Change()
ComboBox1.Clear
For i = 1 To Worksheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
End Sub



habe ich eine Kombibox, in der alle Blattregisterkarten aufgeführt sind.
Das funktioniert auch wunderbar, aber wie schaffe ich es dann, dass ich nach klicken einer zur Auswahl stehenden Tablle auch dorthin geschickt werde?
Wie muss der Code dafür lauten?
Kann mir jemand helfen?

Grüße
BEnjamin
Bild


Betrifft: AW: Blattregisterkarte aufrufen
von: ChrisL
Geschrieben am: 27.10.2003 15:48:30

Hi Benjamin

Sheets(ComboBox1).Select

Gruss
Chris


Bild


Betrifft: bitte für einen vba-dummie wie mich...
von: Benjamin
Geschrieben am: 27.10.2003 16:36:44

Hi,
wie muss der code genau lauten?

Grüße
Benjamin


Bild


Betrifft: AW: bitte für einen vba-dummie wie mich...
von: ChrisL
Geschrieben am: 27.10.2003 16:54:39

hi Benjamin


Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub



Option Explicit


Private Sub ComboBox1_Change()
Sheets(CStr(ComboBox1)).Select
Unload UserForm1
End Sub



Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Worksheets.Count
    ComboBox1.AddItem Worksheets(i).Name
Next i
End Sub



Gruss
Chris


Bild


Betrifft: danke.... aber ich bin zu doof :(
von: Benjamin
Geschrieben am: 27.10.2003 17:52:10

Hallo Chris,

danke für Deine Hilfe!
Leider kapiere ich die Sache immer noch nicht.
Ich habe in einem Tabellenblatt die Kombobox "eingeabaut", mit der rechten Maustaste auf diese Box geklickt und dort Code gewählt. Dort habe ich


Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub






Option Explicit

Private Sub ComboBox1_Change()
Sheets(CStr(ComboBox1)).Select
Unload UserForm1
End Sub





Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Worksheets.Count
    ComboBox1.AddItem Worksheets(i).Name
Next i
End Sub



eingegeben und das, was dort stand überschrieben.
Jetzt funktioniert aber nichts mehr.
Könntest Du mir noch ein letztes Mal helfen und mir erklären, wo ich den von dir geschriebenen Code wie einbauen muss?

Grüße und egal wie, schon jetzt vielen DANK!

Benjamin


Bild


Betrifft: AW: danke.... aber ich bin zu doof :(
von: ChrisL
Geschrieben am: 27.10.2003 17:58:55

Hi Benjamin

Der Code ist für ein Userform mit ComboBox. Userform war eine Annahme meinerseits, denn ich sehe den Sinn nicht ganz, den Code direkt in einer Tabelle einzusetzen, da kannst du ja auch direkt auf die Tabellenreiter klicken.

Anyway...
https://www.herber.de/bbs/user/1627.xls


Option Explicit


Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Worksheets.Count
    Worksheets("Sheet1").ComboBox1.AddItem Worksheets(i).Name
Next i
End Sub




Option Explicit


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



Gruss
Chris


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Blattregisterkarte aufrufen"