Das Archiv des Excel-Forums

VBA bestimmte Spalten kopieren


Betrifft: VBA bestimmte Spalten kopieren
von: michi0401

Geschrieben am: 17.09.2019 13:53:56
Hallo Leute,
ich bin auf der Suche nach einem Makro dass mir bestimmte Spalten in ein neues vorhandenes Arbeitsblatt kopiert.

Die Überschriften der Tabelle aus SAP sind immer gleich und an der gleichen Stelle, jedoch sind die Spalten nicht immer gleich lang, mal 500 Zeilen, mal 5000 Zeilen.

Konkret : Ich brauche die Spalten "I, J, K, U, W" von worksheet "sales_makro" in worksheet "Prod_Sales" Spalte A-E.

Habe mich schon auf Google versucht und mit dem Makrorekorder, ich bekomms einfach nicht hin.

Ich wäre euch sehr dankbar, wenn ihr mir da helfen könnet!

Mit freundlichen Grüßen

Betrifft: Das sollte der Makrorecorder...
von: 1713470.html
Geschrieben am: 17.09.2019 14:14:03
Hi,
...doch aber locker hinbekommen. Musst halt nur die ganze Spalte jeweils kopieren und einfügen.
Wo genau hakt es dabei?
VG, Boris

Betrifft: AW: VBA bestimmte Spalten kopieren
von: 1713472.html

Geschrieben am: 17.09.2019 14:17:41
@Boris da habe ich das Problem, dass er mir teilweise Spalten auslässt oder falsch kopiert bzw einfügt. Außerdem würde ich ja auch nur hard festlegen wieviele Zeilen die Spalte aktuell hat z.B 5000, beim nächsten mal hat die Spalte ja aber mehr oder weniger Zeilen.

Betrifft: AW: VBA bestimmte Spalten kopieren
von: 1713474.html
Geschrieben am: 17.09.2019 14:40:01
Also bei mir schmeißt der Recorder folgendes aus (100% Originalfassung):

Sub Makro2()
' Makro2 Makro
' Tastenkombination: Strg+l
Range("I:I,J:J,K:K,U:U,W:W").Select
Range("W1").Activate
Selection.Copy
Sheets("Tabelle2").Select
Columns("A:A").Select
ActiveSheet.Paste
End Sub
Drücke ich meine zugewiesene Tastenkombi, funktioniert es einwandfrei...
Kann natürlich sein, dass es bei 5000 Zeilen hakt, das werde ich haber nicht ausprobieren.
Auf jeden Fall funktiert es innerhalb meiner kleinen Testdatei ausgezeichnet.

Betrifft: AW: VBA bestimmte Spalten kopieren
von: 1713478.html

Geschrieben am: 17.09.2019 14:54:53
Danke für die Antwort.
Bei mir sah das ganz anders aus, jedoch habe ich es jetzt mit diesem Code geschafft :
Sub ausschnitt_kopieren()
Dim wksQ As Worksheet, wksZ As Worksheet
Dim lngLast As Long
Set wksQ = Sheets("sales makro")
Set wksZ = Sheets("Prod_Sales")
lngLast = wksQ.Cells(wksQ.Rows.Count, 1).End(xlUp).Row
wksQ.Range("I1:I" & lngLast).Copy wksZ.Range("A1")
wksQ.Range("J1:J" & lngLast).Copy wksZ.Range("B1")
wksQ.Range("K1:K" & lngLast).Copy wksZ.Range("C1")
wksQ.Range("U1:U" & lngLast).Copy wksZ.Range("D1")
wksQ.Range("W1:W" & lngLast).Copy wksZ.Range("E1")
End Sub

Vielen Dank für eure Hilfe!

Excel-Beispiele zum Thema "VBA bestimmte Spalten kopieren"

Befindet sich die aktive Zelle in einem bestimmten Bereich? download Werte eins bestimmten Monats summieren download
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen download Alle Links zu einer bestimmten Arbeitsmappe löschen download
Anzahl eines bestimmten Wochentages im Monat download Alle Dateien ab einem bestimmten Datum listen download
Daten eines bestimmten Jahres filtern download Word mit bestimmtem Dokument starten download
Bestimmte Anzahl von Zeichen zulassen download Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download
Zeile löschen, wenn ein bestimmter Wert vorkommt download xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download
Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren download Kommentarfenster in bestimmter Größe erstellen download
Wert einer bestimmten Zelle merken download Werte aus UserForm-TextBox in bestimmten Formate übertragen download
Feststellen, ob eine bestimmte Zelle markiert ist download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten download Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download
Bestimmte Zeichen in einer UserForm-TextBox markieren download Bei Aktivierung einer bestimmten Tabelle in Vollbildmodus schalten download
Cursor in bestimmtem Zellbereich in Eieruhr verwandeln download Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln download
Anzahl der Einträge zu einer bestimmten Kalenderwoche download Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle download
Errechnung der Maximaltemperatur an bestimmtem Datum download Datenmaske mit einem bestimmten Datensatz aufrufen download
Nur Zeilen mit bestimmtem Inhalt kopieren download Aus Liste Anzahl der Januartage eines bestimmten Jahres listen download
Einem Datum eine bestimmte Anzahl von Jahren hinzufügen download Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download
Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen download Bestimmte Wochentage ohne Feiertage listen download
Dateien mit bestimmtem Inhalt suchen download Vorkommen von Zahlenreihen in Spalten download
Funktion ANZAHL2 ohne ausgeblendete Spalten download Spaltenbreite anpassen download
Spalten einer Mehrbereichsauswahl ausblenden. download Spaltennamen bestimmen download
Spalten/Zeilen aus- und einblenden download Zeilen und Spalten über ein Drehfeld ein- und ausblenden download
In einem Dialog ausgewählte Spalten drucken download Spalten bedingt summieren und Zellen formatieren download
Abfrage der markierten Spalten download Wert aus Spalte C, wenn Spalten A und B Bedingungen erfüllen download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Schmale Spalten nebeneinander drucken download
Werte in mehreren Spalten sortieren download Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen download
Spalten A und B vergleichen und Doppel in C listen download Alle leeren Spalten ausblenden download
Leere Zeilen und Spalten in ausgewähltem Bereich löschen download Alle leeren Zeilen und Spalten entfernen download
Wertereihe nach dem Zufallsprinzip auf 4 Spalten verteilen download Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download
Einlesen von Spaltenköpfen in UserForm-ListBox download Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe download
Aktuellen Bereich in den Spalten A:F als Druckbereich download Zellauswahl in Abhängigkeit des Spaltenkopfes download
In mehrere Spalten doppelte Inhalte entfernen download Sortierspaltenkopf vorgeben und Meldung in Statusleiste für 2 sec. download
Werte bei Übereinstimmung in 2 Spalten sammeln download Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen download
Durchgehende Sortierung mehrer nebeneinanderliegender Spalten download Suche von Korrespondenzwerten in zwei Spalten download
Spalten über UserForm-Auswahl ein- und ausblenden download Meldung bei Überschreitung einer Spaltensumme download
Spaltentexte zusammenfassen und neu belegen download Spaltenbreite gemäß den in den Zellen stehenden Zahlen festlegen download
Zelleinträgen über die Formatierung Spaltennamen hinzufügen download Textdatei mit mehr als 256 Spalten in Tabelle einlesen download
Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen download Gruppenüberschriften in Nebenspalten übertragen download
Spaltenwerte in UserForm-ListBox übernehmen und ausgeben download Datensätze zählen, die in einigen Spalten identisch sind download
Spalten mit gleichen Spaltenköpfen zusammenfassen download Alle Zeilen und Spalten außerhalb des benutzten Bereiches löschen download
Spalten mit Zellen ohne Eintrag oder 0-Werten ausblenden download Über InputBox zu ermittelnde Spaltenanzahl einfügen download
Festlegung der Sortierspalten nach dem Feature Gültigkeit download Import einer Textdatei mit mehr als 256 Spalten download
Spaltenbreiten der nicht ausgeblendeten Spalten anpassen download Spaltenweiser Blattschutz in Abhängigkeit des Anwendernamens download
Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Tabellencode nach Kopieren des Blattes löschen download Arbeitsmappe blitzschnell kopieren download
VBE-Namen der Blattmodule beim Kopieren festlegen download Blattinhalt von einer zur anderen Arbeitsmappe kopieren download
Formel bis zur letzten Zeile der Nebenspalte kopieren download Datei kopieren, wenn noch nicht vorhanden download
Zeilenweise von Blatt zu Blatt kopieren download Erste Druckseite in eine neue Arbeitsmappe kopieren download
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download
Bei Eintrag in Spalte A aktuelle Zeile kopieren download Filtern und Kopieren download
Zeile mit aktiver Zelle in anderes Blatt kopieren download Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download
Einen von einer Schlüsselziffer abhängigen Bereich kopieren download Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download
Über InputBox festzulegenden Bereich kopieren download Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download
Tabellenblatt kopieren und dreistellig fortlaufend numerieren download Jede zweite Zelle kopieren download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Gruppe von Optionsfeldern kopieren und Makro zuweisen download
Nicht zusammenhängenden Bereich in nächste Zeile kopieren download Wert aus UserForm-TextBox suchen und Fundstelle kopieren download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download
Werte prüfen und kopieren download Bei Eintrag von X Zeile in andere Tabelle kopieren download
Daten kopieren wenn kein Datum oder Datum > Heute download Blattinhalte dreier Blätter in neues Blatt kopieren download
Kopieren und Umbenennen eines Blattes download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download