ich bin mal wieder am verzweifeln ... ich meine, ich hab alles überprüft und versucht um den im Betreff genannten Fehler zu beheben - leider ohne Erfolg. Vielleicht habt ihr eine Idee ...
Ich habe eine Excel-Mappe mit zwei Arbeitsblättern. Blatt 1 ist das "Front-End" für den User und das Blatt 2 enthält die Daten (Name, Telefonnummer & Kommentar). Blatt 2 ist versteckt und für den Benutzer unsichtbar.
Wenn ich diese Arbeitsmappe öffne, wird eine ListBox, die sich im Blatt 1 befindet mit allen Werten von Blatt 2 gefüllt. Bei diesem "Befüllen" tritt nun das Problem auf. Wenn ich eine völlig neue Excel-Instanz öffne, funktioniert das Füllen der ListBox ohne Probleme. Wenn ich es jedoch (wie vorgesehen) über einen Button in einer bereits laufenden Excel-Instanz öffne bekomme ich die Fehlermeldung "Laufzeitfehler -2147352571 (80020005): Typen unverträglich."
Mir sind nun die Ideen ausgegangen. Ich habe mit den Tabellen- und Blattnamen gearbeitet und auch die Indezes ausprobiert. Die Meldung bleibt. Könnte man vielleicht über VBA eine neue Excel-Instanz öffnen und dann meine Arbeitsmappe öffnen? Dies wäre - so meine ich - eine Zwischenlösung.
Hier mein Code, der beim Öffnen der Mappe ausgeführt wird:
Private Sub Workbook_Open()
Count = Application.CountA(Sheets(2).Range("A2:A65536")) + 1
Sheets(1).Range("A2:C2").Clear
Sheets(2).Columns("A:C").EntireColumn.AutoFit
With Sheets(1)
.Columns("A:A").ColumnWidth = Sheets(2).Columns("A:A").ColumnWidth
.Columns("B:B").ColumnWidth = Sheets(2).Columns("B:B").ColumnWidth
.Columns("C:C").ColumnWidth = Sheets(2).Columns("C:C").ColumnWidth
End With
For Each Werte In Sheets(2).Range("A2:A" & Count)
Sheets(1).lstNumbers.AddItem Werte '