Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 17:12:32
Rechnen in Zeile nach Auswahl Dropdown
09.10.2025 16:26:10
Sortenreine LKWs Filtern
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
09.10.2025 13:32:39
MahJong für Execl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte kopieren

Forumthread: Spalte kopieren

Spalte kopieren
23.02.2022 15:48:02
kurt
Guten Tag,
leider habe ich über Google nichts passendes gefunden.
Aktive Tabelle: "Häuser"
Aus Tabelle: "Ort"
Bereich von "Ort" Spalte 10 ab Zeile 3 (länge soll durch die Spalte C erfolgen ab Zeile 3)
soll in aktive Tabelle:
"Häuser" Spalte 6 ab Zeile 3
würde mich freuen über Unterstützung,
danke im Voraus.
mfg kurt k
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: (D)eine Beispieldatei wäre hilfreich(er) owT
23.02.2022 15:51:59
neopa
Gruß Werner
.. , - ...
Habe was gefunden -)
23.02.2022 15:54:17
kurt
Hallo,
habe gerade was gefunden und angepasst, klappt.

Sub übertragen()
Dim Lz As Long
With Worksheets("Quelle")
Lz = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A3:A" & Lz).Copy _
Worksheets("Ziel").Range("F10")
End With
End Sub
mfg kurt k
Anzeige
AW: Spalte kopieren
23.02.2022 16:13:06
UweD
So?

Sub kopieren()
Dim SpQ As Integer, SpZ As Integer, SpL As Integer, LR As Long, Z1 As Integer
Dim TBZ As Worksheet, TBQ As Worksheet
SpQ = 10 'Spalte  Quelle
SpZ = 6  'Spalte Ziel
SpL = 3 'Spalte zur Längenermittlung
Z1 = 3   'erste Zeile
Set TBZ = Sheets("Häuser")
Set TBQ = Sheets("Ort")
LR = TBQ.Cells(TBQ.Rows.Count, SpL).End(xlUp).Row 'letzte Zeile der Spalte
TBZ.Cells(Z1, SpZ).Resize(LR, 1).Value = TBQ.Cells(Z1, SpQ).Resize(LR, 1).Value
End Sub
LG UweD
Anzeige
Danke Dir Uwe -)
23.02.2022 16:22:41
kurt
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige