ich möchte in einer Combobox die Namen aller Arbeitsblätter darstellen.
ComboBox1.AddItem ActiveWorkbook.Sheets
gibt eine Fehlermeldung.
Könnt ihr mir helfen?
Gruß
Matthias
ComboBox1.AddItem ActiveWorkbook.Sheets
gibt eine Fehlermeldung.
Könnt ihr mir helfen?
Gruß
Matthias
Dim i As Integer
For i = 1 to Worksheets.Count
ComboBox1.AddItem Worksheets(i).Name
Next i
Gruss
Chris
for i = 1 to ActiveWorkbook.Worksheets.Count
ComboBox1.AddItem ActiveWorkbook.Worksheets(i).Name
next i
Gruss
Markus
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Sheets
combobox1.additem Blatt.Name
Next
Gruß
jens Huthmann
EDV-Schulungen
www.jhuthmann.de
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Worksheets.Count
ComboBox1.AddItem Worksheets(i).Name
Next
ComboBox1.RemoveItem "start"
ComboBox1.RemoveItem "Basis"
End Sub
Die Blätter "Basis" und "start" sind immer im workbook vorhanden. An den Namen kann es also nicht liegen.
Gruß
Matthias
ich habe das Problem so umgangen:
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Basis" And Worksheets(i).Name <> "start" Then
ComboBox1.AddItem Worksheets(i).Name
End If
Next
End Sub
Gruß
Matthias