getrennte Bereiche kopieren Problem

Forumthread: getrennte Bereiche kopieren Problem
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: getrennte Bereiche kopieren Problem

10.05.2022 11:09:02

Chris

Schönen guten Morgen,
Eine kurze Frage an euch VBA Profis:
Ich habe diese Codezeile um in einer variablen Zeile die Zellen in den Spalten F bis AD mit der Ausnahme von der Spalte R zu kopieren:
wbQuelle.Worksheets("Navigationstabelle_P").Range("F" & counter & ":Q" & counter, "S" & counter & ":AD" & counter).Copy
Grundsätzlich funktioniert das Kopieren auch, allerdings wird auch die Zeile in Spalte R kopiert. Obwohl ich es ja eigentlich explizit anders angebe.
Wo liegt hier mein Denkfehler?
Vielen Dank im Voraus
Chris

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: getrennte Bereiche kopieren Problem

10.05.2022 11:38:45

peterk
AW: getrennte Bereiche kopieren Problem

10.05.2022 12:41:47

Chris
AW: getrennte Bereiche kopieren Problem

10.05.2022 11:40:51

GerdL

AW: getrennte Bereiche kopieren Problem

10.05.2022 11:38:45

peterk

Hallo


With wbQuelle.Worksheets("Navigationstabelle_P")
Union(.Range("F" & counter & ":Q" & counter), .Range("S" & counter & ":AD" & counter)).Copy
end with

Peter

AW: getrennte Bereiche kopieren Problem

10.05.2022 12:41:47

Chris

Vielen Dank Peter (und GerdL),
die Variante funktioniert super!
Mein Problem ist somit gelöst.

AW: getrennte Bereiche kopieren Problem

10.05.2022 11:40:51

GerdL

Hallo Chris!


Sub Unit()
Const Counter = 1
Intersect(Sheets(1).Rows(Counter), Union(Sheets(1).Range("F:Q"), Sheets(1).Range("S:AD"))).Copy Sheets(1).Cells(2, 6)
End Sub

Gruß Gerd