Laufzeitfehler 438
Ramon
ich brauche bitte mal wieder Eure Hilfe.
Ich habe 2 Excel Dateien. A.xls und B.xls
In A.xls ist eine gigantisch lange Liste, die aufgrund eines bestimmten Eintrages in Spalte A
auf verschiedenene Tabellenblätter in B.xls aufgeteilt werden soll.
Sub daten_verteilen()
Dim intz As Integer
Dim suchwert, wert2, wert3 As String
Dim strTabelle As String
For intz = 10 To _ '(die ersten 9 Zeilen enthalten einen Überschriften)
Workbooks("A.xls").Sheets("Tabelle1").UsedRange.Rows.Count
suchwert = Cells(intz, 1).Value
wert2=Cells(intz, 2).value
wert3=cells(intz, 3).value
Select Case suchwert
Case "Schulze", strTabelle = Workbooks("B.xls").Sheets("Schulze") 'ZEILE WIRD ANGEMECKERT
Case "Schmidt", strTabelle = Workbooks("B.xls").Sheets("Schmidt") 'ZEILE WIRD ANGEMECKERT
Case "Mueller", strTabelle = Workbooks("B.xls").Sheets("Mueller") 'ZEILE WIRD ANGEMECKERT
End Select
intmax = Application.WorksheetFunction.CountA(Sheets(strTabelle).Columns("A:A"))
With Sheets(strTabelle)
.Cells(intmax + 4, 1).Value = suchwert '(Die ersten 4 Zeilen enthalten Überschriften)
.Cells(intmax + 4, 2).Value = wert2 '(Die ersten 4 Zeilen enthalten Überschriften)
.Cells(intmax + 4, 2).Value = wert3 '(Die ersten 4 Zeilen enthalten Überschriften)
End With
Next intz
End Sub
In den Case-Anweisungen scheint der Wechsel zur anderen Datei so nicht zu funktionieren.
Fehler 438 = "Objekt unterstützt diese Eigenschaft oder Methode nicht" wird mir angezeigt.
Kann mir jemand weiterhelfen?
Vielen Dank!