Ich versuche aus einem Excel-Dokument mittels Macro jeweils ein Feld und dann ab Zeile 5 alle Zeilen aus einzelnen Tabellen zusammenzukopieren in EINE Tabelle untereinander.
Nun gibt mir der Editor beim Ausführen folgende Fehlermeldung aus:
Laufzeitfehler '13': Typen unverträglich
Ich weiß aber nicht, wie der darauf kommt und wie man das lösen könnte.
Bitte daher um Lösungsvorschläge. Laut Debugger ist der Fehler in der Zeile:
Hier der Quellcode des Macros
Nun gibt mir der Editor beim Ausführen folgende Fehlermeldung aus:
Laufzeitfehler '13': Typen unverträglich
Ich weiß aber nicht, wie der darauf kommt und wie man das lösen könnte.
Bitte daher um Lösungsvorschläge. Laut Debugger ist der Fehler in der Zeile:
Code:
Range(Cells("A", 5), Cells("N", k + 4)).Select
Code:
Sub Makro5() Dim i As Long, j As Long, k As Long, l As Long j = 1 For i = 2 To Worksheets.Count Sheets(i).Select k = Sheets(i).UsedRange.Rows.Count - 4 Range("B1").Select Selection.Copy Sheets("Tabelle1").Select For l = 0 To k - 1 Cells("A", j + l).Select ActiveSheet.Paste Next l Sheets(i).Select Range(Cells("A", 5), Cells("N", k + 4)).Select Application.CutCopyMode = False Selection.Copy Sheets("Tabelle1").Select Cells("B", j).Select ActiveSheet.Paste j = j + k Next i End Sub
Comment