Datenbereich von mehreren Blättern kopieren
19.03.2013 08:13:30
mehreren
ich habe ein kleines Problem, wobei ich nicht verstehe warum mein Makro außerhalb der Entwicklerumgebung anders arbeitet.
Ich habe mehrere Arbeitsblätter die ab Zelle E23 bis Exx Daten enthalten, wobei deren Anzahl variieren kann. Ich möchte jetzt alle Daten aus den einzelnen Arbeitsblättern in ein neues kopieren hier Tabelle5, so dass ich dann in Tabelle 5 ab Zeile 2 alle Daten aus den einzelnen Blättern untereinader aufgelistet habe.
Wenn ich den unten aufgeführten Code ausführe, klappt dies auch für das erste Arbeitsblatt super, fürs zweite Arbeitsblatt habe ich dann das Makro copy 2 und usw.
Nun zu dem Problem: Wenn ich die Makros in der Entwicklungsumgebung teste, kopiert er die Daten entsprechend. Rufe ich die Makros über eine Combobox auf, erstellz er mir eine komplett neue Datei. Woran liegt das?
Wie müsste das Makro aussehen, wenn die letzte beschriebene Zeile automatisch ermittelt werden soll und nicht über Range E1000?
Vielen Dank schon einmal.
Gruß Markus
Private Sub CommandButton1_Click()
call copy
call copy2
End Sub
Sub Copy()
Dim Target As Range
If Sheets("Tabelle1").Range("E23") = "" Then
Set Target = Sheets("Tabelle5").Range("E23")
Else
Set Target = Sheets("Tabelle5").Range("A65536").End(xlUp).Offset(1, 0)
End If
Sheets("Tabelle1").Range("E23:E1000").Copy Destination:=Target
End Sub