Laufzeitfehler 438
11.02.2022 17:01:47
Dirk
ich habe folgendes Problem : eine Combobox soll mit den Werten einer zweiten Excel-Datei, die auf einem anderen Laufwerk liegt, gefüllt werden. Diese Datei läßt sich auch öffnen und das entsprechende Tabellenblatt wird aktiviert. dann erscheint die Fehlermeldung "Laufzeitfehler 438 Objekt unterstützt diese Eigenschaft oder Methode nicht".
Bin am Verzweifeln, was mache ich falsch ?
Vielen Dank schon mal im Voraus.
Hier noch mein Code :
Option Explicit
Private Sub UserForm_Initialize()
Dim DAT1 As String 'Laufwerk, Verzeichnis und Datei Mitarbeiter
Dim DAT2 As String 'Laufwerk, Verzeichnis und Datei Standorte
Dim DAT3 As String 'Laufwerk, Verzeichnis und Datei Anrede
Dim DAT4 As String 'Laufwerk, Verzeichnis und Datei Abteilungen
Dim BL1 As String 'Blatt Mitarbeiter
Dim BL2 As String 'Blatt Standorte
Dim BL3 As String 'Blatt Anrede
Dim BL4 As String 'Blatt Abteilungen
DAT1 = ThisWorkbook.Sheets("Einstellungen").Range("B10").Text
DAT2 = ThisWorkbook.Sheets("Einstellungen").Range("C10").Text
DAT3 = ThisWorkbook.Sheets("Einstellungen").Range("D10").Text
DAT4 = ThisWorkbook.Sheets("Einstellungen").Range("E10").Text
BL1 = ThisWorkbook.Sheets("Einstellungen").Range("B6").Text
BL2 = ThisWorkbook.Sheets("Einstellungen").Range("C6").Text
BL3 = ThisWorkbook.Sheets("Einstellungen").Range("D6").Text
BL4 = ThisWorkbook.Sheets("Einstellungen").Range("E6").Text
Workbooks.Open DAT1
Sheets(BL1).Activate
With UFULA
.ComboBox1.RowSource = ActiveWorkbook.Range("Mitarbeiter!E2:E1002")
.ComboBox2.ColumnCount = "4"
.ComboBox2.RowSource = "DB!E1:H20"
.ComboBox3.RowSource = "DB!D1:D20"
.Label12.Visible = False
.Label13.Visible = False
.Label14.Visible = False
.Label15.Visible = False
.Label16.Visible = False
.Label17.Visible = False
End With
ActiveWorkbook.Close savechanges:=False
End Sub