Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.


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
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
Anzeige
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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige