2
Zellinhalt jeder dritten Zelle eine Zelle tiefer kopieren
Hallo,
in einer Excel-Tabelle mit ca. 4500 Zeilen muss ich in den Spalten B, D und F den Zellinhalt jeder 4. Zeile jeweils eine Zeile tiefer kopieren. Die Leerzeilen habe ich zuvor mittels Makro entfernen lassen. Vielen Dank im Voraus für Hilfe und Anregungen.
Grüße
Barbershopper
in einer Excel-Tabelle mit ca. 4500 Zeilen muss ich in den Spalten B, D und F den Zellinhalt jeder 4. Zeile jeweils eine Zeile tiefer kopieren. Die Leerzeilen habe ich zuvor mittels Makro entfernen lassen. Vielen Dank im Voraus für Hilfe und Anregungen.
Grüße
Barbershopper
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 42548
Url: https://administrator.de/contentid/42548
Printed on: April 24, 2024 at 16:04 o'clock
2 Comments
Latest comment
Hallo Barbershopper!
Wähle die Tabelle mit den zu kopierenden Daten aus, wechsle mit Alt-F11 in den VBA-Editor und mach im Projekt-Explorer (links oben, gegebenenfalls mit Strg-R einblenden) einen Doppelklick auf die entsprechende Tabelle, um ein Codefenster zu öffnen, und kopiere die folgenden Zeilen in dieses Fenster.
Ändere nach "For i=" die Nummer der ersten Zeile, aus der Daten kopiert werden sollen (derzeit Zeile 3). Auch die letzte Zeilennummer (derzeit 5003) solltest Du anpassen,
Danach kannst Du das Programm direkt mit F5 oder einem Klick auf das "Play"-Symbol starten.
HTH
bastla
Wähle die Tabelle mit den zu kopierenden Daten aus, wechsle mit Alt-F11 in den VBA-Editor und mach im Projekt-Explorer (links oben, gegebenenfalls mit Strg-R einblenden) einen Doppelklick auf die entsprechende Tabelle, um ein Codefenster zu öffnen, und kopiere die folgenden Zeilen in dieses Fenster.
Sub Kopiere()
For i = 3 To 5003 Step 4 'Startzeile (derzeit 3) bitte anpassen
Cells(i + 1, 2).Value = Cells(i, 2).Value '2 --> Spalte B
Cells(i + 1, 4).Value = Cells(i, 4).Value '4 --> Spalte D
Cells(i + 1, 6).Value = Cells(i, 6).Value '6 --> Spalte F
Next
End SubÄndere nach "For i=" die Nummer der ersten Zeile, aus der Daten kopiert werden sollen (derzeit Zeile 3). Auch die letzte Zeilennummer (derzeit 5003) solltest Du anpassen,
Danach kannst Du das Programm direkt mit F5 oder einem Klick auf das "Play"-Symbol starten.
HTH
bastla
Hallo Bastla,
das ist es!!! Vielen, vielen Dank!
Herzliche Grüße
Barbershopper
das ist es!!! Vielen, vielen Dank!
Herzliche Grüße
Barbershopper
