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