Hey ho liebes Forum,
ich habe folgendes Projekt: Ich erstelle eine "Datenbank" aus welcher dann über eine UserForm daten aufgerufen und in eine Word Datei transferiert werden können.
Dabei verwende ich eine Große ListBox auf der UserForm welche dafür sorgt das die Aktuell ausgewählten Daten Visualisiert werden, heißt die ListBox füllt sich immer mit neuen Werten, je nach dem welchen Such Filter ich verwende.
Nun zu meinem Problem. Die liste zu Füllen ist bei meinem ersten Tabellenblatt kein Problem.
Sobald ich aber den Filter ändere, der die Worksheet Seite bestimmt, bringt die UserForm1.ListBox1.List = ... einen Objektfehler.
Aber Warum ?
Hier mein Code:
Private Sub ComboBox1_Change()
Dim Worksheet As String
Dim Workbook As String
Dim Bereich As Range
Dim AnzahlZeilen As Integer
Dim AnzahlSpalten As Integer
Application.ScreenUpdating = False
Workbook = "Zensiert" (nicht das ich dem Forum nicht Traue, aber ist Geschäftlich, daher ein wenig Vorsicht)
Workbooks.Open (Workbook)
Worksheet = UserForm1.ComboBox1.Value -->hier übergebe ich den neuen Worksheet Namen
AnzahlSpalten = WorksheetFunction.CountA(Workbooks.Open(Workbook).Worksheets(Worksheet).Rows(1))
AnzahlZeilen = WorksheetFunction.CountA(Workbooks.Open(Workbook).Worksheets(Worksheet).Columns(1))
With UserForm1.ListBox1
.Clear
.ColumnCount = AnzahlSpalten
.List = Workbooks.Open(Workbook).Worksheets(Worksheet).Range(Cells(1, 1), Cells(AnzahlZeilen, AnzahlSpalten)).Value --> hier entsteht der Fehler
End With
Workbooks.Open(Workbook).Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub