EXCEL, zweizeiliger Datensatz

Verehrte Gemeinde,

folgendes Problem:
In einer importierten Tabelle (über 2.000 Datensätze) besteht jeweils ein Datensatz aus zwei Zeilen. Für die Weiterverarbeitung benötige ich jeden Datensatz in e i n e r Zeile. Anders: Ich muß jede zweite Zeile erst nach rechts und dann nach oben versetzen. Weiß jemand Rat, wie ich das automatisieren kann?

Gruß
Yorck

 

Hallo Hascheff,

die Tabelle besteht aus sechs Spalten und zwei Zeilen, also zwölf Zellen pro Datensatz. Insgesamt 4.576 Zeilen.

Die Arbeit ist Teil eines monatlichen Berichtswesens, kommt also öfter auf mich zu.

Die Pflicht wäre, die unteren sechs Zellen jedes Datensatzes neben die oberen sechs Zellen zu verschieben.
Die Kür wäre, zunächst Leerspalten einzufügen, und dann die untere Zeile/Hälfte des Datensatzes eins nach rechts und dann eins nach oben zu verschieben. Das ist aber die Luxusvariante. Abschließend die Spalten in die korrekte Reihenfolge zu bringen, ist derzeit mein geringstes Problem.

 

Hi,

versuche es mit diesem Code

Code:

Sub versetzen()
    Dim loZeile As Long
    Application.ScreenUpdating = False
    For loZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) - 1 To 1 Step -2
        Range(Cells(loZeile + 1, 1), Cells(loZeile + 1, 6)).Copy Cells(loZeile, 7)
        Rows(loZeile + 1).EntireRow.Delete
    Next loZeile
    Application.ScreenUpdating = True
End Sub

 

@York --- In meinem Excel 2003 funktioniert es so >

- Rechtsklick auf das Tab Deines Arbeitsblattes > Code anzeigen >> jetzt öffnet der VB-Editor
- Diesen Code mit Copy/Paste dort einfügen... und anpassen...
-- Meine Zellen "A9:F9" müssen Deinen 6 Zellen in der 2. Zeile des 1.Datensatzes entsprechen
-- Die 2288 ist die Anzahl der zweizeiligen Datensätze

Code:

Sub Zeilen_Anhängen()

        'A9-F9 ist die 2. Zeile im 1. Datensatz
    Range("A9:F9").Select
    
        'Anzahl der zweizeiligen Datensätze
For i = 1 To 2288

    copySel = Selection.Value
    Selection.Offset(-1, 6).Select
    Selection.Value = copySel
    Selection.Offset(1, -6).Select
    Selection.Rows.Delete
    Selection.Offset(1, 0).Select
    
Next
        'setzt Fokus an den Anfang
    Range("A9").Select
    
    
End Sub

Jetzt das Makro laufen lassen, direkt im VB-Editor, oder in Excel > Extras > Makros.
Nachher könnte man noch einen Button auf das Blatt setzen...

Es werden die Zellen 7-12 aus der 2.Zeile an die 1.Zeile angehängt - die überflüssige Zeile wird entfernt - in allen Datensätzen - am Schluss geht der Fokus wieder oben aufs Blatt.

Gruss Urs


@Karin
Superservice, gleich zwei Vorschläge aufs Mal
Jetzt darf er auswählen...
Gruss Urs

 

Dank an Beverly und Urs!

Ich habe beide Varianten ausprobiert und sie funktionieren perfekt. Beide haben ihren Charme. Welche sich durchsetzt, werde ich erst in den nächsten Wochen herausfinden. Egal, Ihr habt mir sehr geholfen.

Gruß
Yorck

 

@Urs,

wer die Wahl hat, hat die Qual, aber wohl dem, der die Wahl hat .

Deinen Code könntest noch ein Stückchen schneller machen, wenn du zu Beginn die Bildschirmaktualisierung aus- und am Ende wieder einschaltest - dann verringert sich der Durchlauf (unter den Bedingungen meines Rechners) von 48 auf 8 Sekunden .

 

@Beverly ---- Screenupdating... Richtig!
Zum Einzelschritt-Testen kann ich es nicht brauchen, bei meinen zehn Testzeilen war es auch nicht nötig, und nachher... habe ich einfach nicht daran gedacht.
Ich habe selten mit so vielen Durchgängen und jeweils neuen Bildschirmen zu tun. In Word musste ich es schon einsetzen, aber dort scheint mir der Bildschirmaufbau sowieso langsamer zu sein. Und ich mag es, anderen bei der Arbeit zuzusehen...


@Hascheff --- ...im Handumdrehen lösen...
Da hattest Du doch sicher nicht mich gemeint? Bei schwierigen Problemen brauche ich schon mal bis zu 2 Minuten...
An die veränderlich Anzahl der Datensätze hatte ich schon gedacht, dann müsste man sie vorgängig in eine Variable zählen und dann For... 1 to variable.
Trotz Deiner guten Fragen ist ja auch nicht klar, ob das immer die gleichen Mappen/Arbeitsblätter/Zellen sind. Der TO wird schon wissen, was er anpassen muss...


@yorck --- falls Du meinen Script testest...
...setze bitte vor die Zeile "For i = ..." bzw nach "next" die beiden Zeilen
Application.ScreenUpdating = False bzw. True

Gruss Urs

 

Hi Urs,

mein Beitrag war keinesfalls als Kritik an deinem Code gedacht. Da ich aber häufig mit großen Datenmengen arbeite und generell kein Freund vom Bildschirmflackern bin fallen mir solche Dinge halt einfach auf.

 

Hatte ich auch überhaupt nicht so verstanden, sondern als nützlichen Hinweis.
Hattest Du etwa meinen Satz "Und ich mag es, anderen bei der Arbeit zuzusehen." falsch verstanden?
Ich meinte damit, dem PC bei seiner Schwerarbeit zuschauen..

Gruss Urs