Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code vereinfachen - mehrere Spalten kopieren

Forumthread: Code vereinfachen - mehrere Spalten kopieren

Code vereinfachen - mehrere Spalten kopieren
30.01.2019 09:56:16
Ulf
Moin,
mit dem folgendem Code kopiere die Spalten A:C und F in eine andere Tabelle.
Bei dem Versuch den Code zu vereinfachen scheiter ich leider. Ich dachte es würde in der Form wie hier funktionieren - ohne Erfolg.
Könntet ihr mir bitt helfen.
Danke
Private Sub CommandButton2_Click()
If Not IsWorkbookOpen("Data.csv") Then
MsgBox ("Data.csv ist nicht geöffnet!"), vbCritical, "DATEI ÖFFNEN"
Else
Windows("Data.csv").Activate
ActiveSheet.Range("A1:C" & Cells(Rows.Count, 1).End(xlDown).Row).Copy
ThisWorkbook.Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
Windows("Data.csv").Activate
ActiveSheet.Range("F1:F" & Cells(Rows.Count, 1).End(xlDown).Row).Copy
ThisWorkbook.Activate
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
Windows("Data.csv").Close
End If
End Sub

Gruß Ulf
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Code vereinfachen - mehrere Spalten kopieren
30.01.2019 10:55:43
Werner
Hallo Ulf,
da kannst du doch gleich die ganze Spalte kopieren.
Teste mal: 
Private Sub CommandButton2_Click()
Dim wbZiel As Workbook
If Not IsWorkbookOpen("Data.csv") Then
MsgBox ("Data.csv ist nicht geöffnet!"), vbCritical, "DATEI ÖFFNEN"
Else
Set wbZiel = ThisWorkbook
With Workbooks("Data.csv").Worksheets("Tabelle1")
.Columns("A:C").Copy
wbZiel.Worksheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues
.Columns("F:F").Copy
wbZiel.Worksheets("Tabelle1").Range("F1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
Workbooks("Data.csv").Close False
Set wbZiel = Nothing
End If
End Sub
Die Namen der Tabellenblätter mußt du im Code noch an deine Verhältnisse anpassen.
Gruß Werner
Anzeige
AW: Code vereinfachen - mehrere Spalten kopieren
30.01.2019 11:34:14
Ulf
Danke,
ich hatte mich dahingehend festgerannt, dass die zu kopierendenden Spalten ein dynamisches Ende haben.
Deshalb das "ActiveSheet.Range("A1:C" & Cells(Rows.Count, 1).End(xlDown).Row)."
Das sollte aber mit dem neuen Code auch funktionieren.
Gruß
Ulf
Gerne u. Danke für die Rückmeldung. o.w.T.
30.01.2019 13:09:20
Werner
;

Forumthreads zu verwandten Themen

VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
Mehrere Spalten von einer Tabelle kopieren
einer


Hallo Excel Experten,
ich verzweifel an dem Versuch aus einer Tabelle Spalten in eine andere Tabelle zu kopieren!
Grundsätzlich sind beide Tabellen identisch (gleiche wks Anzahl, Grunddaten usw), jedoch soll in der ersten Tabelle ab Tabellenblatt 4 in Spalte A Änderungen vorgenomme...
24.01.2010 17:34:12
Thread-ID: 1131905
3 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 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
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
5 Beiträge
VBA Daten aus mehreren Spalten in eine Spalte
Valerie

Hallo,
ich habe folgendes Problem:
Ich habe im Worksheet "Aufgelöste Maßnahmen" Maßnahmen im Textformat gruppiert in verschiedenen Spalten stehen:
Gruppe 1 ------- Gruppe 2
Maßnahme x -- Maßnahme a
Maßnahme y -- Maßnahme b
Maßnahme z
nun möchte ich diese Maßnahmen au...
09.09.2012 16:37:23
Thread-ID: 1277903
7 Beiträge
VBA: Mehrere Spalten ausblenden
NillePet

Hallo Forumgemeinde,
ich bin nicht unbedingt ein VBA-Spezi und verzweifle gerade an folgendem Problem:
Die Daten die ich filtern möchte erstrecken sich über relativ viele Spalten. Gefiltert werden sollen die Spalten anhand der Werte in der Zeile 4, die dann aufgrund der Angabe in Zelle...
28.05.2013 17:15:02
Thread-ID: 1315291
6 Beiträge
Suchfunktion, mehrere Spalten, Zeile kopieren
tco99

Hallo zusammen,
ich möchte eine Suchfunktion in meine Mappe bauen. Auf einer Userform befinden sich eine Textbox und eine Listbox. Man soll den Suchbegriff in die Textbox eingeben und alle Zeilen des Daten-Tabelleblattes, welche das Suchwort in einer ihrer Spalten haben, sollen auf ein neue...
13.06.2013 11:40:43
Thread-ID: 1317487
15 Beiträge
VBA mehrere Spalten durchsuchen & Werte summieren
verslaan

Guten Morgen allerseits
Ich habe heute nochmals ein Problem, mit welchem ich nicht wirklich weiter komme.
Ich möchte mehrere Zeilen folgendermassen durchsuchen: Zeile 5 Spalte H -> wenn der String = Variable DANN zähle Wert in BH / BI / BJ pro Spalte _ zusammen und gib Total in Vari...
17.09.2013 08:55:32
Thread-ID: 1331093
7 Beiträge
Reihe per VBA in Spalte kopieren
Thomas

Hallo Leute.
Ich grübel hier über einen Aufgabe, die ich ohne Eure Hilfe zur Zeit nicht lösen kann.
Ich möchte gerne aus Tabelle 1 die Reihe 6 von A bis H kopieren und diese Werte dann in Tabelle 8 in die Spalte A ab Reihe 5 kopieren. Das Problem dabei ist, dass die Werte immer um Tab2...
24.01.2014 12:13:12
Thread-ID: 1346520
3 Beiträge
Anzeige
excel vba spalten vergleichen zelle kopieren
Nina

hallo,
vll kann mir hier einer helfen...
folgenden Problem: habe eine tebelle mit sehr vielen zeilen und spalten, verschiedene aufgaben für verschiedene personen. diese lasse ich per makro als tabellenblätter erstellen und die jeweiligen aufgaben (nur die der jeweiligen person) erschein...
27.03.2014 15:55:42
Thread-ID: 1355196
3 Beiträge
Anzeige
VBA Befehl, Jede 2te Spalte kopieren
Janosch

Hallo
Ich steh bei meinem Auftrag vor einem Problem.
Es geht darum Kurse von Aktien zu kopieren, diese variieren je nach Anzahl Beobachtungen und Anzahl Aktien welche der Benutzer ausgewählt hat.
Nun möchte ich diesen Output in einem neuen Sheet schöner darstellen.
Dafür möchte...
02.05.2014 11:45:21
Thread-ID: 1359414
8 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