Excel Experte gesucht

Ich bin jetzt kein Excel-Experte, aber beruflich arbeite ich mit vielen Tabellen und Macros (die andere erstellt haben). Aber dein Vorhaben ergibt doch gar kein Sinn? Ich mein, wenn du eine Filterung nach Spalte machst, geht zwangsläufig deine Zeile unter dem Datensatz verloren. Grundprinzip ist ja, pro Zeile ein Datensatz mit allen zugehörigen Infos. Vereinfacht gesagt.

Kann man automatisieren...
Klar...

aber auch ich verstehe den Sinn nicht so ganz

Ah, wobei, jetzt verstehe ich
Auch das kann man automatisieren, sprich, jede zweite Zeile die letzten x Spalten nach vorne einfügen...

Edit: bei deinem ersten Bild wo links steht Spalte einfügen, meintest du sicherlich Zeile einfügen, richtig?

Ok, schau mal, ob das das ist, was du wolltest:

Ausgangslage:

Nach dem Makro durclauf:

Aber vorsicht,
es ist KEIN schönes Makro!
Schnell kruz hibngebastelt...

Public Sub ForDon()
    Dim iNumRows As Integer
    Dim iStartRow As Integer
    Dim iColFirstCol As Integer
    Dim iColToMoveTo As Integer
    Dim iStartColToMove As Integer
    Dim iNumColToMove As Integer
    Dim iCurRow As Integer




    iStartRow = 2
    iColFirstCol = 1
    iColToMoveTo = 2
    iNumRows = 10
    iStartColToMove = 6
    iNumColToMove = 3




    'Ab hier nichts mehr ändern
    iCurRow = iStartRow


    Do
        Rows(iCurRow + 1).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range(Chr(iStartColToMove + 64) & iCurRow & ":" & Chr(iStartColToMove + 64 + iNumColToMove) & iCurRow).Select
        Selection.Cut
        Range(Chr(iColToMoveTo + 64) & iCurRow + 1).Select
        ActiveSheet.Paste
        Range(Chr(iColFirstCol + 64) & iCurRow).Select
        Selection.Copy
        Range(Chr(iColFirstCol + 64) & iCurRow + 1).Select
        ActiveSheet.Paste
        iCurRow = iCurRow + 2
    Loop Until iCurRow > ((iStartRow + iNumRows) - 1) * 2
End Sub

Die Variablen musst du setzen:
iStartRow => Startzeile
iColFirstCol => das ist die Spalte, in der quasi deine Nummer reinkopiert werden soll
iColToMoveTo => das ist die Spalte, in die die Werte dann eingefügt werden sollen
iNumRows => Anzahl Zeilen die dein Dokument hat (höätte man auch automatisch werkenne lassen kjönne, aber war zu faul dafür
iStartColToMove => Ab welcher Spalte soll der Inhalt kopiert / verschoben werden
iNumColToMove => wieviele Spalten sollen verschoben werden

Makro Editor öffnen mit ALT + F11

Inhalt in "Diese Areitsmappe" dann einfügen, mit F5 kannst du es ausführen... kann aber eine Weile gehen, bei vielen Zeilen, und es gibt kein StatusUpdate, also, ggf. mal mit einer kleineren Version oder so vorher testen