Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA bestimmte Spalten Kopieren, weiter vor e

Excel VBA bestimmte Spalten Kopieren, weiter vor e
09.03.2016 16:26:26
Susi
Liebe VBA Genies,
mit Durchsuchen vom Internet habe ich mir schon so einige kleine Makros zusammengebastelt. Heute finde ich aber nichts, deshalb wende ich mich an euch.
Aufgezeichnet habe ich folgendes Makro
Sub Makro4()
' Makro4 Makro
Range("A1").Select
Selection.End(xlToRight).Select
Columns("CX:DD").Select
Range("DD1").Activate
Selection.Copy
Columns("CT:CT").Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
End Sub
jetzt soll es so umgebaut werden, das immer die letzten 7 Spalten Kopiert werden und 4 Spalten vorher wieder eingefügt werden sollen. Da dies jeden Monat erneut geschehen soll und sich die Liste dann jeweils um die Spalten erweitert ... kann ich nicht wie oben in dem aufgezeichneten Makro nehmen. Meine letzten 7 Spalten enthalten jede Menge Formeln, die für die anschließende Berechnung wichtig sind.
Vorab schon mal vielen Dank für Euro Mühe.
Gruß Susi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA bestimmte Spalten Kopieren, weiter vor e
09.03.2016 18:22:45
Michael
Hi Susi,
versuch's mal damit: 
Sub spaltenKopieren()
Dim spalte As Long
spalte = Range("ZZ1").End(xlToLeft).Column
If spalte
... geht halt nur bis ZZ
Schöne Grüße,
Michael

AW: Excel VBA bestimmte Spalten Kopieren, weiter vor e
10.03.2016 12:48:46
Susi
Hallo Michael,
danke für Deine Hilfe, hat mir sehr geholfen.
Habe an dem Marko noch ein bisschen gebastelt und so sieht es jetzt aus und schein zu funktionieren.
Wenn ein Schönheitsfehler drin ist, der evtl. zu Problemen führen könnte, bin ich für Hinweise offen.
Sub spaltenKopieren()
Dim spalte As Long
spalte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
Columns(spalte - 6).Resize(, 7).Copy
Columns(spalte - 10).Insert Shift:=xlToRight
Application.CutCopyMode = False
End Sub
Für andere Leien
Diese Zeile
spalte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
'habe ich bei http://www.excel-inside.de/vba-loesungen/ gefunden. Da findet man tolle Anregungen.
Gruß Susi

Anzeige
Danke für die Rückmeldung
10.03.2016 15:46:43
Michael
Hi Susi,
die Ermittlung der rechtesten Spalte ist jetzt deutlich "sauberer", danke für den Hinweis.
Es mag in Deinem Fall nicht definitiv erforderlich sein, aber die Zeile mit dem kleiner 10 verhindert, daß das Makro mit einer Fehlermeldung abbricht, falls nicht genug Spalten für die Aktionen vorhanden sein sollten (vielleicht, wenn Du ein neues Blatt anlegst) - die frißt kein Brot, ich würde sie drinlassen.
Wenn wir schon bei Tips sind: Papa Herber hat auch einiges zu bieten:
https://www.herber.de/xlfaq/index.html
Schöne Grüße,
Michael

Anzeige
AW: Danke für die Rückmeldung
10.03.2016 16:37:16
Susi
Hallo Michael,
die kleiner 10 habe ich rausgenommen, weil immer "geht nicht" kam.
Habe sie jetzt unter
spalte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
reinkopiert und da geht es.
Noch etwas aus der ursprünglich
Columns(spalte - 9)
musste ich
Columns(spalte - 10)
machen, damit die Spalten an richtiger Stelle landen.
Nochmals vielen Dank. Klappt Super.
Herber kenne ich auch, da habe ich auch schon so einiges gefunden.
Gruß Susi

ok, gerne, Gruß zurück owT
11.03.2016 09:14:37
Michael

305 Forumthreads zu ähnlichen 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
Anzeige
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
Spalte mit VBA um eine Spalte nach rechts kopieren
Hagen

Hallo zusammen,
ich benötige mal eure Hilfe!
Ich möchte mit einem VBA Code den Bereich A10:A20 nach B10:B20 kopieren, bei erneutem Ablauf des Macros sollte dann der Bereich von B nach C und das nächte mal von C nach D usw Kopiert werde
Ich habe dazu aber leider keine Lösung! und hof...
24.02.2010 12:35:31
Thread-ID: 1141023
8 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 Spalte kopieren und mehrfach (X-mal) einfügen
Sebastian

Hallo,
ich habe folgendes Problem:
Ich habe ein Excel Tabelle und möchte dort die komplette Spalte M kopieren und direkt rechts daneben mehrmals wieder einfügen (wenn möglich nicht nur die Inhalte sondern inkl. aller Formatierungen).
Die Menge, wie oft diese Spalte wieder eingefügt...
21.07.2010 15:44:35
Thread-ID: 1168151
6 Beiträge
VBA Zeilenhöhe kopieren
jens

Hallo Excel-Profis,
ich hatte heute ein Problem beim kopieren von Daten:
Die Zeilenhöhe wurde nicht mitkopiert und schon paßte nichts mehr.
Habe dann rausgefunden, dass man die gesamte Zeile kopieren kann und er nimmt die Zeilenhöhe mit. Das ist in meinem Fall aber mit viel Löscharb...
12.03.2011 09:09:39
Thread-ID: 1205376
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
4
2
4
3
2
7
4
5
14
2
7
3
2
4
1
2
6
6
6
2
7
2
7
7