Excel Listen kopieren
Matty
Ich habe ein Programm geschrieben, das alle Sheets in einer Excelmappe in ein "Gesamtsheet" kopiert.
Die Spaltenüberschriften sind bei den einzelnen Sheets identisch. In den Sheets beginnen die Daten erst ab Zeile 4. Im Gesamtsheet kopiert es die Daten ab Zeile 2.
An der Stelle ....Sheets(strTab).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(Spa - 3, 256).Value = Sheets(i).Rows("4:" & Spa).Value.... bringt er jedoch immer eine Fehlermeldung, obwohl das Programm alles einwandfrei bis dahin kopiert hat. Also Ziel des Programms erreicht, aber trotzdem diese Fehlermeldung, warum läuft das Programm nicht komplett durch und stopt ab!?
Sub JoinTab1()
Dim i%, k%, strTab$, strTab3$
Dim Spa As Long
Dim Spa1 As Long
strTab = "Gesamt" 'Name anpassen
strTab3 = "Uebersicht"
'alle aktuellen Werte löschen
Sheets("Gesamt").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If Sheets(i).Name strTab Then
If Sheets(i).Name strTab3 Then
Spa = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row '1 steht für 1te Spalte also _
_
A
Sheets(strTab).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(Spa - 3, 256). _
_
Value = Sheets(i).Rows("4:" & Spa).Value
End If
End If
Next i
Application.ScreenUpdating = True
Sheets("Uebersicht").Select
End Sub
Anzeige