Daten aus anderes Liste kopieren
Jay
mal wieder ein sicherlich kleines Problem:
Ich will mit einem Makro auf eine andere Datei zugreifen und Daten kopieren und in die Original Datei einfügen.
Die zu kopierenden Spalten sind immer gleich, jedoch mit wechselndem Ende.
Mit folgendem Code will ich das realisieren:
Sub Daten_kopieren_ZABLN_EURO()
Dim s As Integer
s = MsgBox("Ist die Liste ZABLN_EURO_MMTT.xlsx geöffent? Sind alle anderen EXCEL _
Dateien geschlossen?", vbOKCancel)
If s = 2 Then Exit Sub
' Wechseln zu aktueller Liste
ActiveWindow.ActivateNext
' Bereich Markieren
Range("A2:F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
' Zurück zur Original Datei und Daten einfügen
ActiveWindow.ActivatePrevious
Range("A6").Select
ActiveSheet.Paste
End Sub
Kann mir jemand auf die Sprünge helfen?
Danke im Voraus.
Gruß
jaytosh