Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren und nach letzter Spalte einfügen

Forumthread: kopieren und nach letzter Spalte einfügen

kopieren und nach letzter Spalte einfügen
05.12.2023 11:12:23
Andre Cao
Hallo,
ich hätte gerne einen Button der mir bestimmte Zellen kopiert und diese dann hinter der letzten befüllten spalte einfügt. 
Private Sub CommandButton1_Click()





ls = Worksheets("sheet1").Cells(2, Columns.Count).End(xlToLeft).Column





Worksheets("sheet1").Range("C2:C4").Copy _

    destination:=Worksheets("sheet1").Range("" & ls & "2:" & ls & "4")



End Sub


ich weiß nicht was ich falsch gemacht habe, kenne mich selbst kaum mit Vba aus.

Vielen Dank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: kopieren und nach letzter Spalte einfügen
05.12.2023 11:59:26
MCO
Moin, Andre!

War ja schon fast richtig....
Range arbeitet mit Buchstabe & Zahl, LS ist aber eine Zahl, daher ging das nicht.

Probier´s mal so:
Sub spalte()



    With Sheets(1)

        ls = .Cells(2, Columns.Count).End(xlToLeft).Column

        .Range("C2:C4").Copy .Cells(2, ls + 1)

    End With

End Sub


Gruß, MCO
Anzeige
AW: kopieren und nach letzter Spalte einfügen
06.12.2023 07:37:48
Andre Cao
Hi MCO,
perfekt so hat es funktioniert. danke!

weißt du vielleicht noch wie es mir gelingt die Spaltbreite zu übernehmen?

Gruß Andre
AW: kopieren und nach letzter Spalte einfügen
06.12.2023 08:41:32
Pierre
Hallo Andre,

füge vor "End With" noch einfach folgende Zeile ein: 
.Columns(ls + 1).AutoFit


Damit wird die Spaltenbreite beim Einfügen automatisch an den Inhalt angepasst.

Willst du aber eine feste Breite vorgeben, dann statt o. g. Zeile die nachfolgende an deren Stelle einfügen: 
.Columns(ls + 1).ColumnWidth = 150

(Zahl natürlich an deine Bedürfnisse anpassen).

Gruß Pierre
Anzeige
AW: kopieren und nach letzter Spalte einfügen
06.12.2023 08:47:24
Andre Cao
Hallo Pierre,
super dankeschön!

gruß Andre
bitte, gerne (owT)
06.12.2023 08:51:53
Pierre
;

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Zellenformatierung mit Blattschutz
donald

Hallo ihr vielen Helfer,
ich möchte es gerne zulassen, dass man die Zellen, zeilen und Spalten formatieren sowie auf das Blatt gelegte textfelder bearbeiten kann, obwohl der Blattschutz aktiv ist. Das kann man zwar beim Schutz einstellen, mein Problem ist aber, dass sich diese Einstellunge...
05.12.2008 08:25:00
Thread-ID: 1030343
2 Beiträge
Anzeige
Alle Blätter in andere Mappe kopieren
Doro

Hallo Liebe Profis,
ich möchte gerne alle Tabs aus dem File DatenFile in das File AuswerteFile vor das Tabellenblatt 3 kopieren, und nutze folgenden Code:
Dim AuswerteFile As String
AuswerteFile = ThisWorkbook.Name
Dim FileToOpen
If Dir("C:\*.*") "" Then ChDir "C:\"
Fil...
26.01.2009 15:46:00
Thread-ID: 1043923
8 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
Arbeitsblatt kopieren ohne Quellcode
Oliver

Hallo zusammen,
ich habe gerade in mühsamer Arbeit folgenden Code zum Ablegen von Sheets in Workbooks zusammengeschustert:
Dim strDatei As String
strDatei = "Ablage.xls"
Set wksMappeZ = Workbooks.Open(strDatei)
Set wksMappeQ = ThisWorkbook
wksMappeQ.Sheets("Kalkulation")...
24.02.2009 14:58:21
Thread-ID: 1053533
4 Beiträge
Anzeige
mehrere Blätter in andere Mappe kopieren
Jakob

Hallo,
mit den unten angehängten Code kopiere ich das aktuelle Blatt in eine seperate Mappe. Den Code würde ich jetzt gerne so erweitern, daß mehrere Blätter auf einmal in die gleiche Mappe kopiert werden.
Wie müßte der Code aussehen der das bewerkstellig?
Ich Danke Euch schon mal.<...
27.02.2009 14:29:50
Thread-ID: 1054785
5 Beiträge
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge
Anzeige
Blatt kopieren mit VBA
Torsten

Hallo beisammen,
wie muß der Code vervollständigt werden, wenn ich das gerade aktive Blatt kopieren und immer an die letzte Position einfügen möchte?
Vielen Dank für Eure Tipps.
Gruß
Torsten
06.03.2009 16:36:27
Thread-ID: 1057377
5 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
Blatt in selber Mappe kopieren und umbenennen
SteffenS

Hallo Zusammen,
ich habe ein Blatt M1 und möchte dieses per Makro gern in der gleichen Mappe noch 11x kopieren und gleichzeitig umbennenn (M2.....M12).
Wie stelle ich dies am Besten an?
Danke im Voraus.
MFG
Steffen Schmerler
14.04.2009 22:30:25
Thread-ID: 1068755
3 Beiträge
Verlinken auf Blatt mit UDF nicht möglich
Alexandra

Hallo an alle,
ich will heute gleich eine zweite Frage loswerden:
In einem Arbeitsblatt benutzt die Bedingte Formatierung 2 Konditionen mit der UDF HasFormula. Die UDF befindet sich in einem VB-Modul. Damit die UDF verwendet werden kann, muss die Option "Makros aktivieren" beim Öffnen...
02.07.2009 16:11:47
Thread-ID: 1086007
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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