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

VBA - Spalten gleichzeitig kopieren

Forumthread: VBA - Spalten gleichzeitig kopieren

VBA - Spalten gleichzeitig kopieren
10.03.2020 09:42:33
Kleo
Hallo Zusammen,
Ich möchte gerne aus meinem Tabellenblatt "Main" mehrere Spalten (die nicht nebeneinanderliegen) per STRG-Taste markieren und in das Tabellenblatt "blub" kopieren. Leider kopiert es dann immer nur die erste Spalte, die man markiert hat...
Das mit dem Kopieren von nebeneinander liegenden Spalten geht ohne Probleme...
Hier mein Code:
Sub CopyPasteColoumn()
' CopyPaste Macro
Selection.Activate
Selection.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
SheetWählen.Show
Range("A3").Select
Do
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell.Value = 0
ActiveSheet.Paste
Selection.Columns.EntireColumn.EntireColumn.AutoFit
End Sub
Danke für die Hilfe im Voraus,
Grüße,
Kleo
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Spalten gleichzeitig kopieren
10.03.2020 12:02:33
Rudi
Hallo,
was passiert in SheetWählen? Code?
Gruß
Rudi
AW: VBA - Spalten gleichzeitig kopieren
10.03.2020 12:12:07
Kleo
Hi Rudi,
Folgendes steht in SheetWählen:
Private Sub Combobox1_Change()
Worksheets(ComboBox1.Value).Select
Unload Me
End Sub


Private Sub CommandButton1_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In Worksheets
ComboBox1.AddItem wks.Name
Next wks
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload Me
End Sub

Anzeige
AW: VBA - Spalten gleichzeitig kopieren
10.03.2020 12:42:14
Rudi
Hallo,
in ein Modul: 
Option Explicit
Public wksZIEL As Worksheet
Sub Kopieren()
Dim c As Range, rngZiel As Range
Application.ScreenUpdating = False
SheetWählen.Show
If Not wksZIEL Is Nothing Then
If wksZIEL.Cells(1, 1) = "" Then
Set rngZiel = wksZIEL.Cells(1, 1)
Else
Set rngZiel = wksZIEL.Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
End If
For Each c In Selection.Columns
Intersect(c.EntireColumn, c.CurrentRegion).Copy rngZiel
Set rngZiel = rngZiel.Offset(, 1)
Next c
wksZIEL.Activate
End If
End Sub

in der Useform: 
Private Sub Combobox1_Change()
Set wksZIEL = Worksheets(ComboBox1.Value)
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim wks As Worksheet
Set wksZIEL = Nothing
For Each wks In Worksheets
ComboBox1.AddItem wks.Name
Next wks
End Sub

Gruß
Rudi
Anzeige
AW: VBA - Spalten gleichzeitig kopieren
10.03.2020 13:14:36
Kleo
Hi Rudi,
Leider Kopiert, wie zu vor nur eine der ausgewählten Spalten... Aber diese auch noch ins gleiche sheet, wie aus dem sie kommen.
AW: VBA - Spalten gleichzeitig kopieren
10.03.2020 13:42:44
Rudi
natürlich mein Code statt dein CopyPasteColumn.
Bei mir funktioniert es.
AW: VBA - Spalten gleichzeitig kopieren
11.03.2020 07:41:16
Kleo
Hi Rudi,
Habe den Fehler bei mir gefunden, funktioniert super!
Vielen Dank für die Hilfe.
Gruß Kleo
Anzeige
AW: VBA - Spalten gleichzeitig kopieren
11.03.2020 07:41:19
Kleo
Hi Rudi,
Habe den Fehler bei mir gefunden, funktioniert super!
Vielen Dank für die Hilfe.
Gruß Kleo
;

Forumthreads zu verwandten Themen

VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo, für euch ist das sicher einfach, aber ich bekomme folgenden Schritt nicht hin. Ich habe über Makro aufnehmen eine einfache Funktion. Es sollen 4 aufeinanderfolgende Werte in einer Zeile addiert werden. Nun soll sich aber in dem Makro diese Formel selbstständig über alle Zeilen kopieren,...
14.10.2009 17:23:17
Thread-ID: 1109648
5 Beiträge
Anzeige
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo Leute, hab da mal eine Verständnisfrage:
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 23)
Was bedeutet dieser Befehl im Einzelnen?
Er bewirkt doch, dass die Formeln in der Spalte wo der Befehl gesetzt wird, solange kopiert werden, bis in Spalte 1 keine Wert...
02.02.2010 12:32:34
Thread-ID: 1135057
3 Beiträge
VBA: Vergleich und Texteil suchen - Zeile kopieren
Joe

Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe von euch.
Folgende Ausgangssituation:
Es gibt eine Adressliste. In dieser Adressliste stehen in Spalte H Nummern (es können pro Adresse mehrere Nummer in einer Zelle vorkommen - ich weiß, dass ist nicht optimal, es geht leide...
08.04.2010 18:18:00
Thread-ID: 1150703
5 Beiträge
VBA Diverse Spalten einer Zeile kopieren
gemanna

Hallo Excel Freunde,
suche schon seit tagen nach der Lösung für mein Problem, komme aber nicht weiter.
Ich habe mehrere Tabelen mit verschidenen Artikeln und Preisen. Ich habe die Artikeln in 4 verschidene Gruppen unterteilt (TT, AT, PP, IT). Für die 4 Gruppen müssen 4 neue Tabelenblät...
18.04.2011 06:49:59
Thread-ID: 1210776
3 Beiträge
Anzeige
nicht ganze Spalte kopieren
Dirk

Hallo Zusammen,
ich möchte (fast) alle Tabellenblätter durchlaufen und anhand von definierten Überschriften, Bereiche in ein bestimmtes Tabellenblatt kopieren.
Mit dem CODE funktioniert es nur teilweise, da er mir immer die ganze(n) Spalte(n) pro Tabellenblatt kopiert und diese dann nic...
19.04.2011 15:40:34
Thread-ID: 1211069
8 Beiträge
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
mittels VBA Zeilen kopieren
Klaus

Hello,
ich bekomme folgende Datei und möchte die ändern
https://www.herber.de/bbs/user/76674.xls
und zwar folgender Maßen: Wenn in der Spalte C "-" ist, dann die Zeile entsprechend oft kopieren (also bei 1-3 2x kopieren, bei 3-6 3x kopieren) und den Wert auch gleich ausbessern, das...
19.09.2011 22:00:26
Thread-ID: 1230583
3 Beiträge
Textteile mit VBA suchen & zeilen kopieren
rene

Hallo Expertengruppe,
ich möchte in Tabelle1 in 2 Spalten nach einem Textteil suchen.
Der zu findende Textteil z.B. "ABC" kommt im Text unterschiedlich vor, mal getrennt durch ein Semikolon, mal durch ein Komma, mal durch Slash - siehe fileUpload: https://www.herber.de/bbs/user/80583.xl...
16.06.2012 10:23:33
Thread-ID: 1267611
5 Beiträge
formel per vba in aktive zeile kopieren
steff_86

hallo,
würde gerne die folgende formel per vba in spalte "d" in die jeweils aktive zeile einfügen:
=WENN(C10"";C10-G10+WENN(I10=WAHR;$D$6;0)+WENN(J10=WAHR;$F$6;0);"")
der zeilenindex (in diesem fall 10) soll dabei immer an den, der aktiven zeile angepasst werden.
irgendwie b...
13.08.2012 08:45:13
Thread-ID: 1274800
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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