Daten in anderere Datei übertragen
01.11.2005 20:26:04
BEATE
Hab einen Code geschrieben der es mir erlaubt Daten aus bestimmten Zellen von einem BLatt ins andere zu übertragen.
Nun möchte ich aber diese Daten auch in eine andere Datei übertragen.
Wie kann ich die Datei auswählen aus dem "Datei öffnen"-Fenster (Dateiname ändert sich ständig) und dann die Daten in das gewünschte Blatt übertragen.
Kann mir da jemand bitte einen Tipp geben.
GRÜßE BEATE
Sheets("ANGEBOT").Select
With Sheets("Objekte")
lRow = .Range("A137").End(xlUp).Row + 1
.Cells(lRow, 1).Value = [C13]
.Cells(lRow, 5).Value = [L13]
.Cells(lRow, 7).Value = [C23]
.Cells(lRow, 8).Value = [K24]
.Cells(lRow, 10).Value = [B21]
.Cells(lRow, 12).Value = [K23]
.Cells(lRow, 13).Value = [A31]
End With
End Sub