Code anpassen-Zugriff auf anderes Tabellenblatt
09.07.2014 15:36:13
Bon
ich habe ein Problem, dass für euch Experten sicher kein Problem darstellt:
Ich habe einen Code gefunden und möchte ihn nun so anpassen, dass er nicht auf das aktuelle Tabellenblatt, sondern auf ein anderes zugreift.
Der Command Button ist in Tabelle1 der Zieldatei, die Werte sollen aber in Tabelle 3 der Zieldatei kopiert werden
Sub copy()
Dim lngActiveRowB As Long
lngActiveRowB = ActiveCell.Row
Application.StatusBar = lngLastRowB
Cells.Select
Selection.ClearContents
Workbooks.Open Filename:= _
"...\Quelle.XLS" _
, ReadOnly:=True, Notify:=False
Windows("Quelle.XLS").Activate
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.copy
Windows("Ziel.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Quelle.XLS").Activate
Application.CutCopyMode = False
ActiveWindow.Close (0)
Windows("Ziel.xls").Activate
Application.CutCopyMode = False
'select row
ActiveSheet.Cells(lngActiveRowB, 1).EntireRow.Select
End Sub
Danke!!
Anzeige