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

Kombinationsfeld

Kombinationsfeld
10.11.2003 13: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
Anzeige
AW: Kombinationsfeld
10.11.2003 13: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

Anzeige
AW: Kombinationsfeld
10.11.2003 13: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 13: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige