Weihnachts Frust mit copy when Makro
27.12.2004 15:47:14
D.
Folgendes Problem hat mich die ganzen Feiertage hindurch in Atem gehalten.....ohne dabei weiterzukommen und trotz Recherche:
Das unten stehende Makro funktioniert toll und ist das was ich eigentlich brauche, aber....
....ich sollte eine andere, bestehende Arbeitsmappe als Ziel ansprechen können, statt "Tabelle2" in der geöffneten Mappe als Ziel.
....diese sollte zuerst geöffnet werden
....und nach dem Durchlauf des Codes gespeichert und wieder geschlossen werden.
Wie bringe ich diese Änderungen richtig in das bestehende Makro rein; vor allem das "Format" des Pfades zur Zieldatei macht mir Mühe..?
Ich freue mich sehr auf Hilfe, ich bin ein blutiger Anfänger!!!
Freundliche Grüsse und schon im Voraus besten Dank für Eure Hilfe!
Dani Konzelmann
Sub debcopy()
For i = 1 To Cells(Rows.Count, 8).End(xlUp).Row
On Error Resume Next
If Cells(i, 8).Value = "Rechnung" Then
Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End If
Next
End Sub