Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1040to1044
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
Inhaltsverzeichnis

Makro 2te Zeile hochschieben und löschen

Makro 2te Zeile hochschieben und löschen
19.01.2009 15:16:00
lobby007
Hallo Excel-Profis,
ich lade aus dem Internet immer eine Liste runter, geht von A1:G62.
in der 2ten Zeile steht immer etwas, das zu der oberen gehört.
D.h. das Makro sollte folgendes tun:
Gehe in Zeile 2, Spalte A:G, schneide die Werte aus und kopiere sie eine Zeile hoch in Adresse H1, lösche Zeile 2 (oder alle leeren Zeilen am Ende löschen),
dann gehe in Zelle A4:G4 und füge den Inhalt an H3 an etc.
Am Ende hätte ich dann eine fortlufende Liste.
Der Code sollte so sein, dass er das einfach so lange macht bis in Spalte A nichts mehr steht.
Wer kann helfen?
Gruß lobby

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro 2te Zeile hochschieben und löschen
19.01.2009 16:09:00
fcs
Hallo lobby,
mein Vorschlag:

Sub ZeilenBereinigen()
Dim wks As Worksheet, lngZeile As Long, LastRow As Long
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
For lngZeile = 1 To LastRow Step 2
.Range(.Cells(lngZeile + 1, 1), .Cells(lngZeile + 1, 7)).Cut _
Destination:=.Cells(lngZeile, 8)
.Rows(lngZeile + 1).Clear
Next
For lngZeile = IIf(LastRow Mod 2 = 0, LastRow, LastRow - 1) To 2 Step -2
.Rows(lngZeile).Delete shift:=xlShiftUp
Next
End With
Application.ScreenUpdating = True
End Sub


Gruß
Franz

Anzeige
AW: Makro 2te Zeile hochschieben und löschen
19.01.2009 17:28:31
lobby007
Hallo Franz,
perfekt, vielen Dank und noch einen schönen Tag.
Liebe Grüße
lobby

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige