Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro 2te Zeile hochschieben und löschen

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige