Tabelle markieren und kopieren
20.06.2005 09:59:54
Speiser
ich komme leider mit meinen wenigen Kenntnissen nicht weiter und bin in der
Recherche/Archiv nicht passend fündig geworden.
Ich habe eine Datei C:\Test\uebertrag.xls in dessen Tabellenblatt Tabelle1
sich eine Menge Informationen befinden. Ich möchte gerne, dass alle
gefüllten Zellen ab der Zeile 2 in den Spalten A bis H markiert werden
und dann an das Ende der Datei (dort sind schon Infos enthalten)
D:\Original\empfang.xls eingetragen werden. Ich habe ein Makro welches
innerhalb einer Datei funktioniert aber nicht zwischen 2 Dateien. Wer kann mir
helfen?
Hier die Datei die innerhalb einer geöffneten Datei klappt.
Sub test()
Sheets("Tabelle2").Select 'Proramm springt auf das Blatt Tabelle2
Dim wks1 As Worksheet, wksr1 As Long, wks2 As Worksheet, wksr2 As Long
Set wks1 = ActiveWorkbook.Worksheets("Tabelle2") 'Namen bitte anpassen
Set wks2 = ActiveWorkbook.Worksheets("Tabelle1") 'Namen bitte anpassen
With wks1
'ermittlung Zeilennummer letzte beschriebene zelle in A
wksr1 = .Cells(65536, 1).End(xlUp).Row
wksr2 = wks2.Cells(65536, 1).End(xlUp).Row + 1
.Rows("2:" & wksr1).Copy Destination:=wks2.Rows(wksr2)
End With
Sheets("Tabelle1").Select 'Proramm springt auf das Blatt Tabelle1
End Sub
Kann man das Makro umschreiben und für mein obiges Problem benutzen?
Für Eure Hilfe vorab schon mal herzlichen Dank
Gruß
Tommy