Ich hab da ne Idee...

Mahlzeit,
bei mir kommt es sehr häufig vor, dass ich mit Excel Mappen hantieren muss in denen sehr viele Tabellenblätter (10-30) vorkommen. Das hin und her springen ist dabei wegen der Unübersichtlichkeit sehr mühselig.
Ich möchte nun einen Makro schreiben, der mir in einem aufpoppenden Fenster alle Mappen auflistet und ich dann per Klick auf den Namen zum entsprechenden Tabellenblatt springe.
Bevor ich anfange, wollte ich von Euch noch ne Expertenmeinung einholen...
Das Auslesen und Auflisten der einzelnen Blätter ist soweit kein Problem. Aber wie kann ich das Fenster aufbauen?
Muss ich dynamisch irgendwelche controls erstellen, z.B. commandbuttons oder labels?
Habt Ihr da eine gut Idee?
MfG
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,
Hier was recht einfaches. Ist nicht von mir aber ich habs schon verwendet.
Du brauchst eine Userform, eine Listbox1, einen CommandButton1.
Bei Laufzeit erscheint eine Userform mit einer Listbox drauf in der alle Blätte angezeigt werden die aktive Mappe enthält. Bei Doppelklick auf einen Namen wird das gewählte Blatt im Hintergrund angezeigt. Es wird aktiviert und angesteuert wenn man den Button klickt.
Ruf die Userform einfach über einen Button auf den du auf jedes deiner Tabellenblätter setzt (Userform1.Show) oder über einen Menüpunkt (da kann ich dir aber nicht helfen).
Excel hat auch unten an den Pfeilen der Registerlaschen wenn man die beiden äusseren wählt und dann einen Rechtsklick macht eine integrierte Liste mit der die Blätter angesteuert werden können. Allerdings ist man im Unterschied zu der Userform hier sofort auf dem Blatt und kann sich nicht erst ansehen ob es denn das richtige ist. Finde die Userform eigentlich praktischer.
Hoffe das hilft dir weiter,
Gruss,
François
Diesen Code im VBA Editor einfach in die Userform1 reinkopieren und mit F5 aufrufen.
Option Explicit


Private Sub CommandButton1_Click()
ThisWorkbook.Sheets(ListBox1.Value).Activate
Range("A1").Select
Unload Me
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 FormAfficherFeuilles.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

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ich hab da ne Idee...

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread