Einträge doppeln?

15/11/2008 - 13:34 von Fabian Knauf | Report spam
Hallo,


habe eine Tabelle mit ein paar Spalten und dann 4 Spalten mit Zahlen.

Ich möchte nun jede einzelne Zeile doppeln und dabei im ersten Satz
rechtsangehàngt die beiden ersten Zahlenfelder haben und im zweiten in
diesen Spalten die Zahlenspalten 3 und 4.

Aus
x;y;z;1;2;3;4

soll also werden
x;y;z;1;2;3;4;1;2
x;y;z;1;2;3;4;3;4

wobei ; hier als Spaltentrenner zu verstehen ist.

Am Ende möchte ich dann nàcmlich die 4 ursprünglichen Zahlenspalten
einfach löschen und für das Beispiel erhalten
x;y;z;1;2
x;y;z;3;4


Ist das mit Excel-Bordmitteln irgendwie machbar?


Danke für Eure Tips
Fabian
 

Lesen sie die antworten

#1 Dietmar Vollmeier
15/11/2008 - 18:19 | Warnen spam
Servus Fabian!

*Fabian Knauf* schrieb am 15.11.2008 um 13:34 Uhr...
habe eine Tabelle mit ein paar Spalten und dann 4 Spalten mit Zahlen.

Aus
x;y;z;1;2;3;4

soll also werden
x;y;z;1;2
x;y;z;3;4

Ist das mit Excel-Bordmitteln irgendwie machbar?



Versuchs mal mit diesem Makro

8<--[ Code ]-->8
Sub EintraegeAendern()
Dim lRow As Long
Dim Zeile As Long

lRow = Range("A" & Rows.Count).End(xlUp).Row * 2

For Zeile = 1 To lRow Step 2
Rows(Zeile).Copy
Rows(Zeile + 1).Insert Shift:=xlDown
Range("F" & Zeile & ":G" & Zeile).ClearContents
Range("D" & Zeile + 1 & ":E" & Zeile + 1).Delete Shift:=xlToLeft
Next
Application.CutCopyMode = False
End Sub
8<>8

HTH und tschüss,
Didi
Der Student studiert, der Arbeiter arbeitet, der Chef scheffelt!

Ähnliche fragen