Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
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.07.2003 15:20:51
Monika
Hallo,
Ich habe folgenden Code zum Zellen löschen:
For Each x In Sheets("Aufstellung").Range("K4:K1000")
If x = "Löschen" Then Rows(x.Row).Delete Shift:=xlUp
Next
Es kommt die Fehlermeldung: "Die Delete-Methode des Range-Objektes ist fehlerhaft"
Was ist da falsch??
Vielen Dank für Eure Hilfe!!
Moni

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
02.07.2003 15:33:14
ChrisL
Hi Moni
Bei mir hats funktioniert, allerdings nicht richtig. Denn For Each... läuft von oben nach unten und Löschen geht nun mal besser von unten nach oben.
Versuch es mal mit einer For...Next Schlaufe. Beachte Step - 1.
Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long
With Sheets("Aufstellung")
For i = .Range("K65536").End(xlUp).Row To 4 Step -1
If .Cells(i, 11) = "Löschen" Then .Rows(i).Delete Shift:=xlUp
Next i
End With
End Sub

Gruss
Chris

AW: Zeilen löschen
02.07.2003 15:29:31
Bernd Held
Hallo Moni,
probier mal folgenden Code:
Dim x As Range
For Each x In Sheets("Aufstellung").Range("K4:K1000")
If x.Value = "Löschen" Then x.EntireRow.Delete
Next
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF) und VBA-Schulungen unter: http://held-office.de


Anzeige
AW: Zeilen löschen
02.07.2003 15:26:18
Andi_H
hi moni,
wie startest du das Makro???
falls du dieses über CommandButtun startest, dann stell mal bei den Eigenschaften des Buttons "TakeFocusOnClick" auf false.
Gruß
Andi

AW: Zeilen löschen
02.07.2003 15:39:47
Monika
Hallo Andi,
vielen Dank, das wars!!!
hab ich zwar nicht kapiert, aber Hauptsache es funktioniert.
Danke auch an die anderen!!
Viel Grüße
Moni

AW: Zeilen löschen
02.07.2003 15:50:38
ChrisL
Hi Moni
Funktioniert es auch wenn du 2 mal "Löschen" gleich nacheinander hast? ;-)
Gruss
Chris

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige