Einfügen ohne Select

Hallo,
es ist mal wieder ne Kleinigkeit:
In einer Tabelle die im Programm erstellt wird, und unterschiedlich viele Zeilen haben kann, muß ich für eine Legende den Inhalt der Spalten G und H in Spalte A untereinander setzen.
Zunächst sah meine Formel so aus:

Range(Erste.Offset(0, 5), Letzte.Offset(0, 5)).Copy Erste.Offset(0, -1)

Aktuelle, Erste und Letzte sind Variablen (Range) die vorher definiert wurden.
Aktuelle ist vorher durch alle Zeilen gewandert und bleibt am Ende unter der Tabelle stehen.
Letze ist eine Zelle höher

Set Letzte = Aktuelle.Offset(-1, 0).Range("A1")

Erste ist immer B2.
Somit war mir aufgefallen, daß ich mir die Variablen Erste und Letzte sparen kann, und habe meine Formel angepasst.
Zuerst habe ich den Copy-Teil angepasst:

Range("G2", Aktuelle.Offset(-1, 5)).Copy Erste

.So funktioniert sie auch noch.
Aber mit dem Paste-Teil komm ich nicht zurecht

Range("G2", Aktuelle.Offset(-1, 5)).Copy ("A2")/pre>

Was mach ich hier verkehrt?



Hier nochmal der Problemteil des Codes. Ich habe diesen zunächst als separaten Code vom großen abgetrennt, um ihn schneller testen zu können.



Sub Legende()

Dim Erste As Range

    Dim Letzte As Range

Dim Aktuelle As Range

Range("B28").Select

Set Aktuelle = ActiveCell



    Sheets("Selection").Select

    Set Erste = Range("A2")

    'Set Letzte = Aktuelle.Offset(-1, 0).Range("A1")

        

    Range("G2", Aktuelle.Offset(-1, 5)).Copy ("A2")

    Range("G2", Aktuelle.Offset(-1, 6)).Copy Aktuelle.Offset(-1, 0)

End Sub

Entschuldige die etwas ausgedehnte Off-Topic Diskussion.
Ich will nochmal versuchen dir zu helfen.
Der Code den du gepostet hattest bedeutete unter dem Strich nichts anders als:

    Dim Erste As Range



    Dim wksSel As Worksheet

    Set wksSel = ThisWorkbook.Worksheets("Selection")



    With wksSel

        .Range("G2:G27").Copy Destination:=.Range("A2")

        .Range("G2:H27").Copy Destination:=.Range("B27")

    End With

"Gefährlich" bei deinem Code, dass nicht gesichert ist, dass der Range "Aktuelle" auch auf dem gleichen Worksheet liegt, wie die Ranges, die du anschließend definierst.
Dir scheint auch nicht klar zu sein, dass einem Range immer ein Worksheet zugeordnet ist, auch wenn du das nicht explizit angibst.

Unklar ist, wie ich schon sagte, wozu du diese offsets machst. Das erleichtert die Lesbarkeit jedenfalls nicht.

Deinem Text folgend würde ich annehmen, dass du folgendes benötigst und hoffe, dass du das nachvollziehen kannst:

Sub unit()



    Dim Aktuelle As Range

    Dim rngSource As Range

    Dim rngTarget As Range

    Dim lngRowEndList As Long

    

    ThisWorkbook.Worksheets("Selection").Select

    

    Set Aktuelle = Range("B28")

    

    lngRowEndList = Aktuelle.Row - 1

    

    Set rngSource = Range("G2", Cells(lngRowEndList, "G"))

    Set rngTarget = Range("A2")

    

    rngSource.Copy Destination:=rngTarget

       

    Set rngSource = Range("H2", Cells(lngRowEndList, "H"))

    Set rngTarget = Cells(Aktuelle.Row, "A")

    

    rngSource.Copy Destination:=rngTarget

    

    lngRowEndList = Aktuelle.Row + rngSource.Rows.Count - 1

        

    MsgBox "Die Liste endet jetzt" & vbCr & "in Zeile " & lngRowEndList

     

End Sub

Forumthread: Einfügen ohne Select

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Einfügen ohne Select

Forumthread: Einfügen ohne Select

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread