zeilen per vba verschieben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Verschieben() Dim Sp As Integer, LR As Integer, i As Integer Sp = 4 'Startspalte LR = Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte For i = 2 To LR If IsNumeric(Cells(i, Sp)) Then Cells(i, Sp).Resize(1, 2).Insert Shift:=xlToRight ElseIf IsNumeric(Cells(i, Sp + 1)) Then Cells(i, Sp + 1).Insert Shift:=xlToRight End If Next i End Sub

Sub Verschieben() Dim Sp As Integer, LR As Integer, i As Integer Sp = 4 'Startspalte LR = Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte For i = 2 To LR If IsNumeric(Cells(i, Sp)) and Cells(i, Sp)>0 Then Cells(i, Sp).Resize(1, 2).Insert Shift:=xlToRight ElseIf IsNumeric(Cells(i, Sp + 1)) and Cells(i, Sp+1)>0 Then Cells(i, Sp + 1).Insert Shift:=xlToRight End If Next i End Sub

Sub Verschieben() Dim lastRow As Long Dim i As Long Dim j As Long With Worksheets("Tabelle1") lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 2 To lastRow For j = 3 To 7 If IsNumeric(.Cells(i, j).Value) And (.Cells(i, j).Value "") Then 'PLZ gefunden .Range(.Cells(i, j - 1), .Cells(i, 7)).Cut Destination:=.Cells(i, 5) Exit For End If Next j Next i End With End Sub

Sub Spalten_PLZ_untereinander() Dim lngS As Long, lngZ As Long, lngLS As Long 'lngLS=größte Spaltennr. mit PLZ 'Größte Spaltennummer mit PLZ ermitteln : For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row For lngS = 1 To Cells(lngZ, Columns.Count).End(xlToLeft).Column If Cells(lngZ, lngS) Like Application.Rept("[0-9]", 5) Then If lngS > lngLS Then lngLS = lngS End If Next Next If lngS = 0 Then MsgBox "keine 5-stellige PLZ gefunden!" Else 'Spalten ab PLZ nach rechts verschieben For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row For lngS = 1 To Application.Min(lngLS, Cells(lngZ, Columns.Count).End(xlToLeft). _ Column) If Cells(lngZ, lngS) Like Application.Rept("[0-9]", 5) Then If lngS

Hallo NoNet,
... wünsch ich Dir als erstes, dass Du inzwischen wieder hoffentlich genesen bist oder zumindest es bald wieder sein wirst. Wir können nicht klagen und diesbzgl. sind unsere Gedanken Deinen gleich.
Nun zum noch ausstehenden XL-Treffen. Wir meinen, dass dieses aus offensichtlichen Gründen wohl nicht vor August stattfinden kann und sollte. Diese erneute Verschiebung hätte dann allerdings den Nachteil, dass aus gleichen Gründen zumindest einige - wie wir auch - die im letzten Jahr teilweise und in diesem Jahr bis dahin ausgefallenen Urlaubsplanungen nachholen wollen, was zu Terminproblemen führen könnte.
Deshalb käme unseres Erachtens als Alternative eine nochmalige Verschiebung bis ins Jahr 22 in Betracht. Oder mal was ganz anderes: Evtl. könnte nach abgeschlossene Impf-Kampagne ein Treffen in der Adventszeit (gerade im Erzgebirgsvorland besonders sehenswert) in Erwägung gezogen werden. Was meinst Du?
Wie auch immer, wir würden uns freuen, alle bekannten + bis jetzt noch unbekannten "Neue" in nicht zu ferner Zeit gesund und frohen Mutes zu treffen.
Viele Grüße an alle von
Werner und seiner besseren (! natürlich) Hälfte
.. , - ...

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread