AW: Tabellenblatt in Listenfeld
08.11.2004 15:04:44
Ronald
Hallo Peter,
habe mich gerade über den Programmcode hergemacht, aber auch hier funktioniert es nicht.
Ich verwende folgenden Code:
Private Sub Workbook_Open()
Worksheets("Rohdaten").Select 'Anzeigen beim Öffnen eines bestimmten Tabellenblattes
frmAuswahl.Show 'Userform anzeigen
End Sub
Private Sub Worksheet_Activate()
Call anzeige
End Sub
Private Sub cmdEnde_Click()
Unload Me 'Schließen der Userform
End Sub
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
End Sub
Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets 'Einlesen der Namen der Tabellenblätter in das Listenfeld
lstSheets.AddItem wks.Name
Next wks
End Sub
Sub anzeige()
frmAuswahl.Show
End Sub
Ich öffne die Datei und mir wird als erstes die Userform mit dem Listenfeld + Inhalt angezeigt. Sobald ich jetzt auf eins der Tabellenblätter in dem Listenfeld klicke und es mit OK bestätige, dann kommt der Laufzeitfehler 400. Ich weiß nur leider noch immer nicht warum.
Vielleicht kannst Du damit etwas anfangen. Ich sehe leider den Fehler nicht.