Kombinationsfeld

Forumthread: Kombinationsfeld

Kombinationsfeld

10.11.2003 14:03:39

Frank Egloff

Hallo Excel-Freunde,

Ich habe eine Arbeitsmappe mit 15 verschiedenen Tabellen erzeugt
wie kann ich nun direkt aus einem Kombinationsfeld(in Startseite) das ich erstellt habe nach Auswahl einer Tabelle diese auch starten.

Gruß
Frank

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kombinationsfeld

10.11.2003 14:08:22

Willie
AW: Kombinationsfeld

10.11.2003 14:09:32

Marc Richter
AW: Kombinationsfeld

10.11.2003 14:11:54

ChrisL

AW: Kombinationsfeld

10.11.2003 14:08:22

Willie

Hallo Frank
Userform einfügen
eine Listbox und einen Commanbutton und dann folgenden Code reinkopieren!
Gruß
Willie


Private Sub CommandButton1_Click()
Range("A1").Select
Unload Me
UserForm1.Hide
End Sub


Private Sub ListBox1_Click()
ThisWorkbook.Sheets(ListBox1.Value).Activate
'Range("A1").Select
End Sub


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i_Erster As Integer
Dim i_Letzter As Integer
Dim i_Aktuell As Integer
Dim i_Nächster As Integer
Dim s_buffer As String
With UserForm1.ListBox1
If .ListCount = 0 Then Exit Sub
i_Erster = 0
i_Letzter = .ListCount - 1
For i_Aktuell = i_Erster To i_Letzter
For i_Nächster = i_Aktuell + 1 To i_Letzter
If .List(i_Aktuell) > .List(i_Nächster) Then
s_buffer = .List(i_Nächster)
.List(i_Nächster) = .List(i_Aktuell)
.List(i_Aktuell) = s_buffer
End If
Next i_Nächster
Next i_Aktuell
End With
End Sub


Private Sub UserForm_Initialize()
Dim Blatt As Object
For Each Blatt In ThisWorkbook.Sheets
ListBox1.AddItem Blatt.Name
Next
End Sub

AW: Kombinationsfeld

10.11.2003 14:09:32

Marc Richter

Hi,

Probiers mal damit:


Sub Combobox1()
If Combobox1 = "Tabelle2" then
sheets.("Tabelle2").select
End If
If Combobox1 = "Tabelle3" then
sheet.("Tabelle3").select
End If
If Combobox1 = "Tabelle15" then
sheet.("Tabelle15").select
End If
End Sub

Gruß,
Marc

AW: Kombinationsfeld

10.11.2003 14:11:54

ChrisL

Hi Frank

' DieseArbeitsmappe

Option Explicit


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

' Tabelle 1

Option Explicit


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

Gruss
Chris

Forumthread: Kombinationsfeld

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread