Ich habe ein Problem, wer kann helfen?
Mit dem Code hole-kopiere ich einen Bereich von Mappe Monteur.xls nach Mappe Büro.xls. Wie könnte ich da nur den benutzten Bereich wählen zum kopieren?
Wie könnte ich das ändern dass die Einträge der Mappe Monteur.xls Tabelle (Testdaten) immer in die nächste freie Zeile in Mappe Büro.xls(Tabelle4) "angehängt" wird.
Mit dem Code unten wird im Moment alles überschrieben was schon drinsteht.
Soll aber Endlos angehängt werden-wöchentlich kommen neue Daten zur Mappe Büro.xls hinzu.
Private Sub CommandButton5_Click()
Dim Dateiname As String
Dim wsp As Worksheet
Set wsp = ThisWorkbook.Worksheets("Tabelle4")
Application.CutCopyMode = False
Const Pfd = "Z:\Personal\Eigene\Egon\AJD\"
Const Datei = "Monteur.xls"
Dateiname = Pfd & Datei
Application.DisplayAlerts = False
Workbooks.Open Dateiname, , , , "moi"
Workbooks("Monteur.xls").Worksheets("Testdaten").Range("B2:H80").Copy
With wsp.Range("A3")
.PasteSpecial Paste:=xlValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
Workbooks("Monteur.xls").Close
wsp.Activate
End Sub
Vielen Dank im Voraus
Egon