Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbereich kopieren

Datenbereich kopieren
05.12.2003 11:00:38
junny
Hallo Leute,
ich probiers mal wieder, leider hats bei meinen bisherigen Fragen nie so richtig geklappt.
Ich möchte ab der 4. Zeile den Spaltenbereich C-V kopieren.
Jedoch soll sich der kopierte Bereich automatisch anpassen!!
Und zwar: mit Spalte E
Sprich: Wenn bspw. die Zelle E20 die erste leere Zelle der Spalte E ist, soll der kopierte Bereich C4:V20 sein.

Hoffe ich habs diesesmal richtig erklärt, und mir kann jemand weiterhelfen.

DANKE Gruss volker

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenbereich kopieren
05.12.2003 11:33:38
Nike
Hi,
z.B. so:
Dim lngZeil As Long
Dim wks As Worksheet
Set wks = Worksheets(1)
lngZeil = wks.Cells(wks.Rows.Count, 5).End(xlUp).Row
wks.Range(wks.Cells(4, 3), wks.Cells(lngZeil, 22)).Copy

Bye

Nike
Klasse, Genau das isses DANKE volker
05.12.2003 12:34:56
junny
o.T.
AW: Datenbereich kopieren
05.12.2003 11:35:12
Nepumuk
Hallo Junny,
versuch es mal so:

Range(Cells(4, 3), Cells(Cells(65536, 22).End(xlUp).Row, 22)).Copy

Gruß
Nepumuk
AW: Auf Spalte E bezogen...
05.12.2003 11:40:35
Nike
Hi Nepumuk,

cooles Brett, würde nur halt Spalte E nehmen für die letzte Zeile ;-)

Range(Cells(4, 3), Cells(Cells(65536, 5).End(xlUp).Row, 22)).Copy

Bye

Nike
AW: Auf Spalte E bezogen...
05.12.2003 11:44:59
Nepumuk
Hallo Nike,
Sch... , du hast Recht, also nicht das du Recht hast, sondern das ich die Frage nicht richtig gelesen habe.
Gruß
Nepumuk
Anzeige
AW: No Problem ;-)
05.12.2003 11:48:49
Nike
Moin,

ich hab ja auch manchmal so kleine Aussetzer,
->vor allem wenn der Kaffeepegel sinkt ;-)
daher - is schon ok ;-)

Bye

Nike

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige