Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

getrennte Bereiche kopieren Problem

getrennte Bereiche kopieren Problem
10.05.2022 09: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
Anzeige
AW: getrennte Bereiche kopieren Problem
10.05.2022 09: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 10: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 09: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige