Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Spalte kopieren

Forumthread: Letzte Spalte kopieren

Letzte Spalte kopieren
23.07.2017 10:41:25
Gerhard
Hallo zusammen,
Bitte um VBA Hilfe,
Wie kann ich in meiner dynamischen Tabelle die letzte benutzte Spalte ab Zeile 5 bis Ende in die daneben liegende Spalte mit einem Makro kopieren?
Vielen Dank für die Hilfe
Gruß Gerhard
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Spalte kopieren
23.07.2017 10:50:52
Werner
Hallo Gerhard,
und in welche Zeile kopieren, auch in Zeile 5?
Gruß Werner
AW: Letzte Spalte kopieren
23.07.2017 11:05:45
Gerhard
Hallo Werner,
Ja rechts daneben auch ab Zeile 5 kopieren!
Danke...
Gruß Gerhard
AW: Letzte Spalte kopieren
23.07.2017 11:04:40
Hajo_Zi
Hallo Gerhard,
Option Explicit
Sub Spalte()
Dim InSpalte As Integer
InSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(5, InSpalte), Cells(1048576, InSpalte)).Copy Cells(1, InSpalte + 1)
End Sub
´

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Anzeige
AW: Letzte Spalte kopieren
23.07.2017 11:14:47
Gerd
Hallo Gerhard! 
Sub ttt()
With Cells(5, Columns.Count).End(xlToLeft)
With Range(Cells(5, .Column), Cells(Rows.Count, .Column).End(xlUp))
Debug.Print .Address
.Copy .Offset(, 1)
End With
End With
End Sub

Gruß Gerd
AW: Letzte Spalte kopieren
23.07.2017 11:59:49
Gerhard
Vielen Dank für Eure Hilfe,
Alle Versionen funktionieren...
Gruß Gerhard
Anzeige
;

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