Daten aggregieren - Laufzeitfehler 13
02.07.2007 11:49:00
Herbert
ich möchte Daten aus mehreren Dateien in eine automatisch eintragen. Dazu habe ich auch schon ein Beispielmakro erhalten. Leider erhalte ich beim Starten "Laufzeitfehler 13 - Typen unverträglich".
Woran kann das liegen? Hier die Nachricht:
-------------------------------------------------------------
Hallo Herbert,
hier ist ein Muster mit zwei Dateien - vielleicht kannst du das für deine Belange anpassen.
Sonst musst du dich wieder melden und mehr über deine Dateien (Namen, Spalten, ggf. Überschriften etc.) preisgeben.
'
' habe eine Datei "Gesamt.xls". Hier möchte ich in Tabellenblatt 1 ("Daten")
' Werte aus 2 verschiedenen Dateien (Bezirk1.xls, Bezirk2.xls)
' jeweils aus Tabellenblatt("Tabelle1") zusammenfassen.
' Dabei sollen in ("Bezirk1.xls"/"Tabelle1") alle Zeilen mit Werten kopiert
' und in "Gesamt.xls"/"Daten" eingefügt werden.
' Die nachfolgende Datei (Bezirk2) soll in der gleichen Art und Weise
' geöffnet/kopiert/geschlossen und übertragen werden.
' Dabei sollen diese Werte in der 1. freien nachfolgenden Zeile eingefügt werden.
Public Sub Makro_Test()
Dim WkSh_Ziel As Workbook
Dim Pfad As String
Dim Datei As String
Dim lLetzte As Long
Dim iIndx As Integer
Pfad = "C:\Dolumente und Einstellungen\Administrator\Eigene Dateien\Excel-Dateien\"
Set WkSh_Ziel = Workbooks("Gesamt.xls").Worksheets("Daten")
For iIndx = 1 To 2
lLetzte = WkSh_Ziel.Cells(Rows.Count, 1).End(xlUp).Row + 1
Datei = "Bezirk" & iIndx & ".xls"
Workbooks.Open Filename:=Pfad & Datei
Workbooks(Datei).Worksheets("Tabelle1").Range(Range("A1"), _
Cells.SpecialCells(xlLastCell)).Copy _
Destination:=WkSh_Ziel.Cells(lLetzte, 1)
Workbooks(Datei).Close False
Next iIndx
End Sub