Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
04.10.2025 15:35:03
Range um eine Einzelzelle erweiternerweitern
04.10.2025 14:27:49
Was ist mit dem CEF Forum passiert?
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
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopierte Spalten in nächste freie Spalte einfügen

Forumthread: Kopierte Spalten in nächste freie Spalte einfügen

Kopierte Spalten in nächste freie Spalte einfügen
12.08.2016 10:09:38
Carla
Hallo,
ich habe eine kurze Frage. Ich kenne mich leider überhaupt nicht mit Programmierung aus. Ich habe lediglich gefunden, dass ich Makros aufzeichnen kann und so dann immer versucht das zu bekommen, was ich will. Jetzt weiß ich nicht mehr weiter.
Ich muss die Spalten I-K einer Tabelle immer wieder rechts in die nächste freie Spalte einfügen. Bisher habe ich folgendes:
Sub Neue_Spalte() ' Neue_Spalte Makro Columns("I:K").Select Selection.Copy Columns("L:L").Select ActiveSheet.Paste Range("L2:N2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "" Range("L3").Select End Sub Das Problem ist natürlich jetzt, dass immer wieder in die Spalte L eingefügt wird und nicht in die nächste freie. Könnt ihr mir helfen?
Danke schonmal.
Carla
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopierte Spalten in nächste freie Spalte einfügen
12.08.2016 10:51:10
Matthias
Hallo
Könnte also so aussehen?
Tabelle1

 ABCDEFGHIJKLMNOPQR
1ABCDEFGHIJK MN    
2ABCDEFGHIJK MN    
3ABCDEFGHIJK MN    


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Spalte(I:K) soll kopiert werden?
Wo willst Du sie nun einfügen, in Spalte(L) und den Rest nach rechts verschieben,
oder doch eher ans Ende, also hier nach Spalte(O) ?
Gruß Matthias
Anzeige
AW: Kopierte Spalten in nächste freie Spalte einfügen
12.08.2016 11:00:12
Carla
Hey Matthias,
ich möchte die Vorlage aus Spalte I-K immer wieder rechts neben die letzte belegte Spalte einfügen. Im Beispiel wäre das jetzt O, dann R und so weiter.
Userbild
AW: Kopierte Spalten in nächste freie Spalte einfügen
12.08.2016 11:19:29
Matthias
Hallo
Option Explicit
Sub Carla()
Dim MyCol&
MyCol = Columns(Columns.Count).End(xlToLeft).Column + 1
Columns("I:K").Copy
Columns(MyCol).Insert Shift:=xlToRight
Application.CutCopyMode = False
Range("L2:N2").ClearContents
End Sub
Gruß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Datenvergleich über 4 Spalten in zwei Blättern
Martin

Hallo,
ich komme mit eine Formel für folgenden Fall nicht weiter:
Erste Datei (oder erstes Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in Spalte C
Zweite Datei (oder zweites Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in...
14.08.2008 14:33:00
Thread-ID: 1001866
4 Beiträge
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Anzeige
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Zählenwenn in einer Tabelle
Marius

Hallo,
ich habe eine Liste mit verschiedenen Rechnern und Betriebssysteme und den dazugehörigen Lizenzarten (OEM, VOL usw.)
Jetzt möchte ich im Rahmen einer Software-Inventur ausgeben, wieviele Lizenzen gekauft sind und wieviele Lizenzen installierte sind.
Das ganze sieht wie folgt...
08.09.2008 16:28:00
Thread-ID: 1008194
2 Beiträge
eine Info aus mehreren Blättern holen und adieren
Peter

Hallo,
folgende Situation: 10 Arbeiter - 10 Stundenzettel. Doch nicht alle 10 Arbeiter arbeiten immer gleichzeitig auf einer Baustelle. Manchmal arbeiten nur 5, manchmal 3 oder manchmal 7, ganz unterschiedlich eben. Und jeder der Mitarbeiter arbeitet unterschiedlich lang auf einer Baustelle...
08.09.2008 19:25:00
Thread-ID: 1008242
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Kopierte Spalten in die nächste freie Spalte einfügen

Schritt-für-Schritt-Anleitung

Um die Spalten I-K in die nächste freie Spalte einzufügen, folge diesen Schritten:

  1. Öffne die Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (deineDatei.xlsx)", wähle "Einfügen" und dann "Modul".

  3. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit

Sub KopiereSpalten()
   Dim MyCol As Long
   MyCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1 ' Bestimme die nächste freie Spalte
   Columns("I:K").Copy ' Kopiere die Spalten I bis K
   Columns(MyCol).Insert Shift:=xlToRight ' Füge sie in die nächste freie Spalte ein
   Application.CutCopyMode = False ' Deaktiviere den Kopiermodus
   Range(Cells(2, MyCol), Cells(2, MyCol + 2)).ClearContents ' Lösche die obersten Zellen der neuen Spalten
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus: Drücke ALT + F8, wähle KopiereSpalten und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: Das Makro fügt die Spalten nicht in die nächste freie Spalte ein.

    • Lösung: Stelle sicher, dass die Daten in der letzten Spalte nicht zusammenhängend sind. Der Code sucht die letzte belegte Spalte. Wenn diese nicht erkannt wird, könnte das daran liegen, dass es leere Zellen gibt.

  • Fehler: Die kopierten Spalten werden nicht richtig eingefügt.

    • Lösung: Überprüfe, ob der Bereich Columns("I:K") korrekt definiert ist und keine Schreibschutz- oder Formatierungsprobleme bestehen.

Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, kannst Du die Spalten auch manuell kopieren und in die nächste freie Spalte einfügen:

  1. Kopiere die Spalten I-K mit STRG + C.
  2. Finde die nächste freie Spalte: Gehe dazu in die letzte Spalte deiner Daten und drücke die rechte Pfeiltaste.
  3. Füge die Spalten ein mit STRG + V.

Diese Methode ist einfach, jedoch nicht automatisiert.

Praktische Beispiele

Angenommen, Du hast folgende Daten in Excel:

A B C D E F G H I J K
1 1 2 3
2 4 5 6

Nach dem Ausführen des Makros wird die Tabelle folgendermaßen aussehen:

A B C D E F G H I J K L M N
1 1 2 3
2 4 5 6

Tipps für Profis

  • Nutze Excel-Shortcuts: Um schneller zu arbeiten, verwende Tastenkombinationen wie STRG + C zum Kopieren und STRG + V zum Einfügen.
  • Testen in einer Kopie: Bevor Du das Makro auf deine Hauptdatei anwendest, teste es in einer Kopie deiner Datei.
  • Makros abspeichern: Speichere deine Excel-Datei als .xlsm, um sicherzustellen, dass die Makros erhalten bleiben.

FAQ: Häufige Fragen

1. Frage Kann ich das Makro anpassen, um mehr als nur die Spalten I-K zu kopieren?

Antwort: Ja, Du kannst den Bereich in der Zeile Columns("I:K").Copy anpassen, um andere Spalten zu kopieren.

2. Frage Welche Excel-Version benötige ich für VBA-Makros?

Antwort: VBA-Makros sind in Excel 2007 und höheren Versionen verfügbar. Stelle sicher, dass Du eine kompatible Version verwendest.

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