Dim Current As Worksheet, arrIN() As Variant, shCount As Long
Dim a As Long, i As Long, z As Long, loLetzte As Long, loZahl As Long, 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, "Hinweis!"
Unload UserForm1
Exit Sub
End If
For Each Current In Worksheets
If Current.CodeName <> "Tabelle4" And Sheets(Current.Name).Visible = True Then
With Sheets(Current.Name)
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
If IsArray(arrIN) Then
On Error Resume Next
loZahl = UBound(arrIN)
If Err.Number <> 0 Then
ReDim Preserve arrIN(loLetzte - 1)
On Error GoTo 0
Else
ReDim Preserve arrIN((UBound(arrIN)) + loLetzte - 1)
End If
End If
For z = 2 To loLetzte
arrIN(a) = .Cells(z, 4)
a = a + 1
Next z
End With
End If
Next
ReDim Preserve arrIN(UBound(arrIN) - 1)
ListBox1.List = arrIN