Brauch mal bitte dringend Eure Hilfe:
Hab eine COde geschrieben der es mir ermöglicht bestimmte Zellen auszuwählen und in ein anderes Blatt zu kopieren, wobei hier die nächst freie Zeile genommen wird.
Nun möchte ich aber diese Daten in eine ander Datei kopieren, aber krieg es einfach nicht hin.
Hab es schon mit chdir & Co probiert aber ich krieg es nicht hin.
Noch besser wäre wenn ich vorher die Datei aus dem Dialog "Öffnen" aussuchen könnte und dann der Kopiervorgang erfolgt
Wäre sehr dankbar für eine Lösung.
Vielen Dank
Bea
Sheets("ANGEBOT").Select
With Sheets("Objekte-neu")
lRow = .Range("A137").End(xlUp).Row + 1
.Cells(lRow, 1).Value = [D13]
.Cells(lRow, 5).Value = [M13]
.Cells(lRow, 7).Value = [D23]
.Cells(lRow, 8).Value = [L24]
.Cells(lRow, 10).Value = [C21]
.Cells(lRow, 12).Value = [L23]
.Cells(lRow, 13).Value = [B31]
End With
End Sub