Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.05.2025 11:16:14
Zeile per Userform suchen und in spalte x um Wert y erhöhen
22.05.2025 11:13:09
-Mitte- Funktion geht nicht
22.05.2025 10:18:40
Von einander abhängige Comboboxen auf einer Userform
22.05.2025 10:01:22
Implementierung von MIP-Vertraulichkeitsstufen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kombinationsfeld

Forumthread: 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
Anzeige

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

Kategorie
ComboBox
Tags
#kombinationsfeld #tabellen #vba
Relevante Fragen
Anzeige
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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige