Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 21:22:24
In vorhandener Formel Jahreszahl mit einbeziehen
08.05.2024 21:15:37
Koordinaten im XY-Diagramm per Cursor ändern.
08.05.2024 19:10:09
doppelte Zeile gem. mehrerer Bedingungen löschen?
08.05.2024 17:16:08
Randomize, RND, Timer() , (@Onur, Opawinni)
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen verschieben

Zeilen verschieben
04.09.2019 10:39:32
Nadja
Hallo liebe Forum Mitglieder,
ich bin etwas unerfahren bezüglich Excel VBA und benötige eure Hilfe.
In den Zellen B2 bis DM20 des Worksheets "Info" stehen Zahlen.
Meine Aufgabe ist es ab Zelle H2 eine Zeile nach unten zu verschieben und ab Zelle H2 immer nach 5 Spalten eine Zeile nach unten zu gehen. Das ganze soll aber bis ins "unendliche" gehen und nicht nur bis DM20.
Bildliche Darstellung am Ende:
O O O O O O O O
O O O O O O O O O O O O O
O O O O O O O O O O O O O O O O O O
Ich bin euch sehr Dankbar, wenn ihr mir helfen könnt.
VG
Nadja

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beim Visualisieren besteht noch Luft nach oben
04.09.2019 11:34:15
lupo1
... ich verstehe nicht, was Du willst.
Mach Dir die Mühe und visualisiere ein Vorher und ein Nachher, und zwar mit
_____________________________________________
a b c d e f g h i j k l m n o p q r s t u v w x y z
wird zu
a b c d e
f g h i j k l m n o
p q r s t u v w x y z
______________________________________________
... und nicht mit völlig unsinnigen O O O O
AW: Beim Visualisieren besteht noch Luft nach oben
04.09.2019 11:46:43
Bernd
Servus Nadja,
teste mal: 

Sub test()
Dim ws As Worksheet
Dim intLS As Integer
Dim i As Integer
Dim start As Integer
Dim intervall As Integer
intervall = 5   ' Jede wievielte Spalte soll um eins tiefer gesetzt werden?
start = 8       ' Start in Spalte "H" = 8
Set ws = ActiveSheet
With ws
intLS = .Cells(1, Columns.Count).End(xlToLeft).Column
For i = start To intLS Step intervall
.Range(.Cells(1, i), .Cells(1, intLS)).Insert shift:=xlDown, copyorigin:= _
xlFormatFromLeftOrAbove
Next i
End With
End Sub
Grüße, Bernd
Anzeige
AW: Zeilen verschieben
04.09.2019 13:02:17
Nadja
Vielen Dank Bernd,
Das klappt super bis Spalte AF.
Wie kann ich das umschreiben, dass der Vorgang bis "ins unendliche" geht?
Viele Grüße,
Nadja
AW: Zeilen verschieben
04.09.2019 14:05:45
Bernd
Servus Nadja,
aufgrund deiner Aufgabenstellung war ich davon ausgegangen, dass sich die letzte befüllte Spalte in der ersten Zeile befindet.
ersetze: 

intLS = .Cells(1, Columns.Count).End(xlToLeft).Column
durch: 

intLS = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
Grüße, Bernd
AW: Zeilen verschieben
08.09.2019 11:53:39
Nadja
Viel Dank Bernd

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige