Sorry habe den Code falsch eingefügt
hier ist der richtige Codeschnipsel
Private arrIN() As Variant
Private shCount As Long
Private Sub UserForm_Initialize()
Dim Current As Worksheet
Dim i As Integer
Dim a As Integer
Dim k As Long
Dim s As String
For Each Current In Worksheets
If Current.CodeName <> "Tabelle1" And Current.Name <> "Datenbank einlesen" And Sheets(Current.Name).Visible = True Then
shCount = i
i = i + 1
End If
Next
If i = 0 Then
MsgBox "Es ist keine Datenbank vorhanden!" & Chr(13) & "Bitte importieren sie eine Datenbank ", vbInformation, "Hinweiß!"
Unload UserForm1
Exit Sub
End If
ReDim arrIN(shCount)
For Each Current In Worksheets
If Current.CodeName <> "Tabelle4" And Sheets(Current.Name).Visible = True Then
arrIN(a) = Sheets(Current.Name).Range("D2:D" & Sheets(Current.Name).Cells(Rows.Count, 1).End(xlUp).Row)
a = a + 1
End If
Next
'For Each Current In Worksheets
' If Current.CodeName <> "Tabelle1" And Current.Name <> "Datenbank einlesen" And Sheets(Current.Name).Visible = True Then
' ReDim arrIN(shCount, Sheets(Current.Name).Cells(Rows.Count, 1).End(xlUp).Row, 4)
' arrIN = Sheets(Current.Name).Range("B2:E" & Sheets(Current.Name).Cells(Rows.Count, 1).End(xlUp).Row)
' End If
'Next
ListBox1.List = arrIN 'Array(arrIN(0), arrIN(1), arrIN(2), arrIN(3), arrIN(4), arrIN(5), arrIN(6), arrIN(7), arrIN(8), arrIN(9), arrIN(10))
End Sub
Herbert
|