Relative Range in anderes Tabellenblatt bringen via VBA??
05.02.2024 17:14:16
Frank Dreier
ich bin schon wieder am verzweifeln. Ich selektiere z.B. A1:D4 (16 Zellen) in Tabelle1 und er soll das einfach nur in Tabelle 2 ab A1 kopieren, man kennt jedoch den D-Wert nicht, also die Anzahl D4 variert in der Selektion, manchmal 3 und manchmal 2 etc. (wird gleich klarer was ich meine). Daher benutze ich einfach Selection.Value was auch gut funktioniert.
Nun will ich eigentlich nur diese Selektion in Tabelle 2 via internen Speicher von Excel kopieren (copy&paste kann ich nicht benutzen).
Wenn ich im gleichen Tabellenblatt kopieren möchte, funktioniert zum Beispiel folgende Formel:
Selection.Offset(0, 6).Value = Selection.Value(Er fügt damit A1:D4 komplett, was selektiert ist, in F1:I4 im gleichen Tabellenblatt ein, so wie es sein soll)
Wenn ich allerdings das in ein anderes Tabellenblatt verschieben möchte, geht dieser Code nicht. Warum??
Ich selektiere in Tabelle 1 A1:D4 die zu kopierenden Zellen und lasse folgenden Code laufen:
Worksheets("Tabelle2").Selection.Offset(0, 6).Value = Selection.Value
Warum kann man hier Selection.Offset nicht verwenden? Habt Ihr eine andere Idee? Danke...
Habe auch schon mit Range und Cells experimentiert, klappt alles nicht, er nimmt dann nur die 1. Zelle rüber usw., den Rest der Selektion lässt er einfach weg :(
(Ursprung ist dann z.B. : Worksheets("Tabelle2").Range("A1:D1").Value = Selection.Value, damit kopiert er dann nur A1:D1 in die Zellen, aber A2:D4 lässt er weg obwohl das auch selektiert war).