Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen
02.12.2004 18:00:53
Heinrich
Hallo zusammen,
möchte gerne über ein Makro Zeilen löschen.
Von der aktiven Zelle aus ( z.B. A123 ) sollen alle Zeilen
aufwärts, bis einschließlich Zeile 2 gelöscht werden. Zeile 1 in ausgeblendet und soll nicht
gelöscht werden
Mit folgenden, aufgezeichnetem, Makro werden immer
die gleichen Zeilen gelöscht.

Sub Makro1()
Range("A2:A123").Select
Range("A123").Activate
Selection.EntireRow.Delete
Range("A2").Select
End Sub


Hoffe mich verständlich ausgedrückt zu haben, und würde mich über
jede Hilfe freuen.
Gruß
Heinrich
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
02.12.2004 18:05:17
Hajo_Zi
Hallo Heinrich,
in VBA kann zu 99% auf select verzichtet werden.

Sub Makro1()
Rows(ActiveCell.Rows & ":2").Delete
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Zeilen löschen
02.12.2004 18:07:07
ransi


      
hallo
versuchs mal so:
Public Sub weg()
Dim r As Long
r = ActiveCell.Row
Rows(r & ":2").Delete
End Sub
ransi 


Anzeige
AW: Zeilen löschen
02.12.2004 18:07:41
Ulf 

Sub Zeilen_weg()
Dim Zeile As Long
Zeile = ActiveCell.Row
Rows("2:" & Zeile).Delete
End Sub

Ulf
AW: Zeilen löschen
02.12.2004 18:21:34
Heinrich
Hallo
Danke Euch allen drei
Der Code von ransi und Ulf ist genau das
was ich gesucht habe.
Der Code von Hajo funktioniert leider nicht
Habe mich wohl nicht richtig ausgedrückt
Wünsche noch einen schönen Abend
Und nochmals DANKE
Gruß
Heinrich
Anzeige
AW: Zeilen löschen
02.12.2004 18:26:30
andre
Hallo Heinrich,
bei Hajo ist ein s zu viel - Hajo ? s ?

Sub Makro1()
Rows(ActiveCell.Row & ":2").Delete
End Sub

Grüße, Andre
AW: Zeilen löschen
02.12.2004 18:45:05
Heinrich
Stimmt!!!
Jetzt funktioniert auch Hajo's Code
Nochmals DANK an alle
Bis zum nächsten mal
Gruß
Heinrich
Anzeige
AW: Zeilen löschen
02.12.2004 18:24:47
andre
... und falls Zellen gemeint war und nicht Zeilen:

Sub Makro1()
'löscht und zieht unten liegende Zellen nach oben
If ActiveCell.Row > 1 Then _
Range(Cells(2, ActiveCell.Column), _
Cells(ActiveCell.Row, ActiveCell.Column)).Delete shift:=xlShiftUp
End Sub



Sub Makro2()
'löscht durch Eintrag von ""
If ActiveCell.Row > 1 Then _
Range(Cells(2, ActiveCell.Column), _
Cells(ActiveCell.Row, ActiveCell.Column)) = ""
End Sub

Anzeige
AW: Zeilen löschen
02.12.2004 18:35:04
Heinrich
Hallo Andre
Ich habe Zeilen gemeint.
Danke aber auch Dir
Werde mir den Code kopieren
Kann ihn bestimmt mal gebrauchen
Gruß
Heinrich
;

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