Anzeige
Archiv - Navigation
172to176
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
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblätter in Userform-Listbox einlesen

Tabellenblätter in Userform-Listbox einlesen
30.10.2002 19:20:53
Richard Fassbender
Hallo Forum,
ich möchte Tabellenblätter über eine Userform in eine Listbox einlesen und aus der Listbox aufrufen. Im jetzigen Code, werden alle Tabellenblätter in der Listbox dargestellt.
Ich möchte aber, dass ein bestimmtes Tabellenblatt nicht in der Listbox aufgeführt wird.
Wer kann mir weiterhelfen?

Private Sub cmdWeiter_Click()
Dim iCounter As Integer
Dim arr() As String
Dim iItems As Integer
For iCounter = 0 To lstSheets.ListCount - 1
If lstSheets.Selected(iCounter) Then
iItems = iItems + 1
ReDim Preserve arr(1 To iItems)
arr(iItems) = lstSheets.List(iCounter)
End If
Next iCounter
If iItems > 0 Then
Worksheets(arr).Select
End If
Unload Me
End Sub


Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
lstSheets.AddItem wks.Name
Next wks
End Sub


Vorab schon einmal vielen Dank.

Richard

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabellenblätter in Userform-Listbox einlesen
30.10.2002 20:36:53
Mischa Richter

For Each wks In ThisWorkbook.Worksheets

if not lstsheets.name = "DieserNameFälltRaus" then
lstSheets.AddItem wks.Name
endif

müsste gehn

Re: Tabellenblätter in Userform-Listbox einlesen
30.10.2002 21:13:47
Richard Faßbender
Hallo Micha,

erstmal vielen Dank, aber es funktioniert leider nicht!
Was mache ich falsch?

Richard

Re: Tabellenblätter in Userform-Listbox einlesen
30.10.2002 22:36:42
Martin Bolleter
Hallo zusammen

es müsste wohl heissen:

Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
if not wks.name = "Nicht dieses Sheet" then
lstSheets.AddItem wks.Name
end if
Next wks
End Sub

Gruss
Martin

Re: Tabellenblätter in Userform-Listbox einlesen
31.10.2002 06:43:27
Richard Faßbender
Hallo Martin,

funzt super, vielen Dank.

Richard

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige