Microsoft Excel

Herbers Excel/VBA-Archiv

Code anpassen-Zugriff auf anderes Tabellenblatt

Betrifft: Code anpassen-Zugriff auf anderes Tabellenblatt von: Bon
Geschrieben am: 09.07.2014 15:36:13

Hallo zusammen,

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!!

  

Betrifft: AW: Code anpassen-Zugriff auf anderes Tabellenblatt von: Daniel
Geschrieben am: 09.07.2014 16:32:49

Hi

Sub copy()
    
    Workbooks("Ziel.xls").Sheets("Tabelle1").Cells.ClearContents
    Workbooks.Open Filename:= "...\Quelle.XLS" , ReadOnly:=True, Notify:=False
    
    Workbooks("Quelle.XLS").Sheets("Tabelle1").Range("A2").currentregion.copy
    Workbooks.("Ziel.xls").Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues
    
    Application.CutCopyMode = False
    Workbooks("Quelle.xls").Close false

    
End Sub
der Code läst sich so zusammenkürzen.
Hier kannst du dann auch die entsprechenden Blattnamen eintragen, so dass diese gezielt angesprochen werden, egal welches Blatt aktiv ist.

sollte der Code zu der Datei "Ziel.xls" gehören, so kannst du Workbooks("Ziel.xls") durch ThisWorkbook ersetzen, und bist damit im Code vom Dateinamen unabhängig.

Gruß Daniel


  

Betrifft: AW: Code anpassen-Zugriff auf anderes Tabellenblatt von: Bon
Geschrieben am: 10.07.2014 13:52:42

Super! Vielen Dank, Daniel!


 

Beiträge aus den Excel-Beispielen zum Thema "Code anpassen-Zugriff auf anderes Tabellenblatt"