Excel Experte gesucht
-
don -
21. Januar 2021 um 13:24 -
Unerledigt
-
-
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.
-
-
Es geht um das einfache Abschreiben der Tabelle.
Am Ende werden das Radwegweiser.
Und auf jedem Wegweiser sind zwei Zeilen.
In der Tabelle sind die nebeneinander - auf dem Schild aber untereinander. -
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?
-
-
Ja, Zeile einfügen.
-
-
-
Aber vorsicht,
es ist KEIN schönes Makro!
Schnell kruz hibngebastelt...Code
Alles anzeigenPublic 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 werdenMakro 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
-
Probiere ich morgen aus. DANKE!
-
Jetzt mitmachen!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!