Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1872to1876
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
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige