Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte kopieren und in anderer Spalte einfügen

Forumthread: Spalte kopieren und in anderer Spalte einfügen

Spalte kopieren und in anderer Spalte einfügen
Peter

Guten Abend
Ich möchte den Inhalt der Spalte B kopieren und in Spalte AA einfügen (überschreiben), ohne dass die spalten ab AA eine Spalte weiter nach hinten geschoben wird (was mit .Insert passiert).
.Range("AA:AA").Paste funktioniert anstelle dessen leider nicht.
Wer kann mir helfen?
Gruss, Peter
With Sheets(sSheet)
.Range("B:B").Copy
.Range("AA:AA").Insert
Application.CutCopyMode = False
End With
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Spalte kopieren und in anderer Spalte einfügen
01.07.2011 17:18:01
hary
Hallo 

With Sheets(sSheet)
.Range("B:B").Copy .Range("AA1")
Application.CutCopyMode = False
End With

gruss hary
AW: Spalte kopieren und in anderer Spalte einfügen
01.07.2011 17:23:58
Peter
Hallo Hary
Danke vielmals!
Gruss, Peter
Spalte auf andere Spalte kopieren
01.07.2011 17:25:35
Erich
Hi Peter,
das hier reicht auch: 

Sub ccoopp()
With Sheets(sSheet)
.Columns(2).Copy .Cells(1, 27)
End With
End Sub
Application.CutCopyMode = False ist wirkungslos und überflüssig.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Spalte auf andere Spalte kopieren
02.07.2011 16:25:59
Peter
Hallo Erich
Vielen Dank.
Gruss, Peter

Forumthreads zu verwandten Themen

Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Per Makro Spalten und Formeln einfügen
Kai

Hallo,
ich möchte per Makro zwischen die Zeile M und N 2 Spalten einschieben und dann in ab Zeile 10 in beide Spalten eine Formel einfügen und diese noch unten ziehen.
Neue Spalte N = wenn(L10 ""; L10+100;"")
Neue Spalte O = wenn(M10 ""; M10+100;"")
die ganze Formel sollt...
21.10.2009 14:02:28
Thread-ID: 1111061
3 Beiträge
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
Spaltenbereich ausschneiden und einfügen | Herbers Excel-Forum
Peter
Guten Tag
Ich möchte im ersten Sheet eines bestimmten Workbooks einen Spaltenbereich aus der Spalte P ausschneiden und in Spalte N einfügen.
Ich habe etwas Probleme mit der Syntax.
Wer hilft mir?
Vielen Dank, Peter
With ActiveWorkbook
.Sheets(1).range(cells(1,16),cells(zEnd,...
05.01.2010 10:58:08
Thread-ID: 1127228
7 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 Beiträge
Anzeige
Zeile einfügen und kopieren
Matthias

Hallo zusammen,
ich habe wieder mal ein kleines Problem und komme nicht ganz zurecht damit.
Ich habe ein Tabellenblatt mit z.Zt. knapp 4000 Einträgen (Zeilen) und mehreren Spalten (Spalten A bis AB).
Jetzt will ich irgendwo eine neue Zeile einfügen, dabei sollte der Inhalt von einig...
12.03.2010 07:32:25
Thread-ID: 1145269
10 Beiträge
Kopieren und einfügen wenn beschrieben dann rechts
Eva-Maria

Hallo zusammen,
Ich brauche wiedermal eure hilfe. Ich habe zwei Tabellenblätter und möchte vom "CHF" Tabellenblatt Daten in das "Jan" Tabellenblatt kopieren. Wenn nun das Jan Tabellenblatt in dieser Zeile schon etwas eingetragen hat dann sollte es eine Zeile nach rechts eintragen. Wie muss...
24.06.2010 07:37:58
Thread-ID: 1163793
3 Beiträge
Kopieren und einfügen
Manfred

Hallo zusammen,
ich raffs mal wieder nicht.
Wie kann ich die kopierten Felder nebeneinander in die Datenbank Spalten B2, C2, und D2 schreiben.
Neue Daten müssen lückenlos nach unten eingeschrieben werden.
Sub Datenbank() Dim LZ As Long Sheets("Anforderung").Range("F2:I3").Copy'...
22.10.2010 08:29:44
Thread-ID: 1183422
5 Beiträge
Spalten kopieren und neu einfügen
HD

Hallo Excel-Freunde,
ich habe mal wieder (als Frischling in VBA) ein Problem.
Ich möchte gerne mit einem Makro aus dem Arbeitsblatt "2010" immer die Spalten A:D kopieren und in dem Arbeitsblatt "Überblick" kopieren, aber so dass die letzt beschrieben Spalten und Zeilen nicht überschri...
04.11.2010 19:32:38
Thread-ID: 1185265
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Spalte in Excel kopieren und einfügen

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei, in der du die Spalte kopieren und einfügen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Rechtsklicke im Projekt-Explorer auf dein Workbook.
    • Wähle Einfügen > Modul.

  4. Gib den folgenden VBA-Code ein:

    Sub SpalteKopieren()
   With Sheets("DeinTabelle") ' Ersetze "DeinTabelle" mit dem Namen deines Sheets
       .Range("B:B").Copy .Range("AA1") ' Kopiert Spalte B nach AA
   End With
End Sub

  5. Führe das Skript aus:

    • Drücke F5, um das Makro auszuführen.

  6. Schließe den VBA-Editor und überprüfe das Ergebnis in deiner Excel-Tabelle.

Häufige Fehler und Lösungen

  • Fehler: Anwendung läuft nicht: Überprüfe, ob der Tabellenblattname korrekt ist. Ein Tippfehler kann dazu führen, dass das Skript nicht funktioniert.
  • Fehler: Spalte wird nicht überschrieben: Stelle sicher, dass du .Range("AA1") anstelle von .Insert verwendest, um die Spalte direkt zu überschreiben.
  • VBA läuft nicht: Aktiviere die Makros in deinen Excel-Einstellungen, um sicherzustellen, dass dein Skript ausgeführt werden kann.

Alternative Methoden

  1. Manuelles Kopieren:

    • Markiere die Spalte B, kopiere sie mit STRG + C, gehe zu Spalte AA und füge sie mit STRG + V ein.

  2. Verwendung von Excel-Funktionen:

    • Du kannst auch die Funktion =B1 in Zelle AA1 eingeben und diese nach unten ziehen, um die Werte von Spalte B in AA zu duplizieren.

Praktische Beispiele

  • Beispiel 1: Wenn du die Werte von Spalte C in Spalte AB kopieren möchtest, ändere einfach die Zeile im VBA-Code:

    .Range("C:C").Copy .Range("AB1") ' Kopiert Spalte C nach AB

  • Beispiel 2: Um mehrere Spalten zu kopieren, kannst du eine Schleife verwenden:

    Sub MehrereSpaltenKopieren()
   Dim i As Integer
   For i = 1 To 5 ' Kopiert die ersten 5 Spalten
       Sheets("DeinTabelle").Columns(i).Copy Sheets("DeinTabelle").Cells(1, i + 26) ' Verschiebt die Zielspalte
   Next i
End Sub

Tipps für Profis

  • Nutze Strg + Z, um Änderungen rückgängig zu machen, falls etwas schiefgeht.
  • Speichere deine Datei regelmäßig, um Datenverlust zu vermeiden.

  • Experimentiere mit VBA-Fehlerbehandlung, um deine Skripte robuster zu machen:

    On Error Resume Next
' Dein Code hier
On Error GoTo 0

FAQ: Häufige Fragen

1. Wie kann ich eine ganze Spalte kopieren, ohne die Zielspalte zu verschieben? Du kannst die Methode .Copy in Kombination mit dem Zielbereich verwenden, um die Spalte direkt zu überschreiben, ohne sie zu verschieben.

2. Welche Excel-Version benötige ich für VBA? VBA ist in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010, 2013, 2016, 2019 und Office 365.

Beliebteste Forumthreads (12 Monate)

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