Office: (Office 2013) Ergebnis einer Formel aus Tabelle1 per VBA in 1. freie Zeile von Tabelle2 kopieren

Hallo und guten Morgen.

Ich wurschtel mich gerade mal wieder durch den VBA schungel.


Ich habe folgenden Code versucht:

Code:

Sheets("Tänzerkontos").Select
Range("F8").Select
Selection.Copy
Sheets("Personen").Cells(erste_freie_Zeile2, 4) = Selection.PasteSpecial(Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False)

Die Variable deklariere ich weiter oben.
Eigentlich soll aus "Tänzerkontos" das Ergebnis der Formel in "F8" als Wert in die 1. freie Zeile in "Personen" Spalte "D" kopiert werden.
Wenn ich das so mache kommt aber "Wahr" heraus.

???

Ich verstehe nicht wieso!

Kann mir da jemand helfen?


Gruß Markus

 

Hallo Markus,

Code:

    Sheets("Tänzerkontos").Select
    Range("F8").Select
    Selection.Copy
    erste_freie_Zeile2 = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("Tabelle2").Select
    Cells(erste_freie_Zeile2, 4).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Gruß,
Lutz