Kopierfunktion unterschlägt mir die erste Zeile
17.06.2009 11:25:51
Andi
Ich habe mir ein Makro schreiben lassen, welches mir aus einem Excel-Blatt bestimmte Zeilen in ein anderes Blatt übernimmt.
Folgender Ausschnitt:
'Startposition, ab der kopiert wird
Range("A2:AB2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Open Filename:=strArbeit
EFZeile = Range("A65536").End(xlUp).Row + 1
Range("A" & EFZeile).Select
ActiveSheet.Paste
usw.
Folgendes Problem:
Der ganze Kopiervorgang läuft einwandfrei, sofern MINDESTENS ZWEI Zeilen vorhanden sind.
Ist ein Excel-Blatt vorhanden, welches nur EINE Zeile (A2:AB2) enthält unterschlägt es mir diese Zeile. Dies wird einfach nicht im "Summenblatt" unten angefügt bzw. rüber kopiert.
Liegt es an der Selection.End(xlDown).Select?
Wie könnte man das lösen, das auch Blätter kopiert werden, welche halt nur eine Zeile (A2:AB2) haben?
Ich mag ja nicht immer eine "Geisterzeile"(A3:AB3) manuell dazu fügen...
Also den ganzen Vorgang etwas variabel gestalten. Ein Blatt mir einer Zeile, das nächste mit vielleicht 600 Zeilen Länge usw...
Hoffe ihr könnt mir helfen!?
Vielen Dank für die Mühe!
Viele Grüße
Andi