Der VBA Code soll eine ganze Zeile kopieren und dann
in eine andere Datei (Daten.XLS) einkopieren so zu sagen
als minni Datenbank.
der jetzige code kopiert die Akive zeile nur in das Register
"daten" wie muss nun der Befehl aussehen ?
Sub Übernehmen_Click()
Dim Reihe As String
Reihe = ActiveCell.Row
Range(Cells(Reihe, 1), Cells(Reihe, 6)).Copy
Sheets("daten").Activate
Range("A1").Select
ActiveCell.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Adresse").Select
Application.CutCopyMode = False
End Sub
Vielen Dank im Vorraus
PS: Dieses Forum ist Unschlagbar !!!