Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
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
12.07.2006 13:48:17
Wolfgang
Hallo!!
Habe ein Problem!
möchte gerne Zeilen löschen doch da kommt immer ein Fehler:
Dies ist der Code
For e = 1 To 10000
If Range("E" & e).Text = dat(1) Then
Rows(e & ":" & e).ClearContents
End If
If Range("E" & e).Text = dat(2) Then
Rows(e & ":" & e).ClearContents
End If
If Range("E" & e).Text = dat(3) Then
Rows(e & ":" & e).ClearContents
End If
If Range("E" & e).Text = dat(4) Then
Rows(e & ":" & e).ClearContents
Next e
Hat von euch wer eine idee?
Vielen Dank im voruas
Wolfgang

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
12.07.2006 13:56:56
Fred
Hi,
was ist dat und wo kommen die Werte her?
mfg Fred
AW: Zeilen löschen
12.07.2006 14:23:17
UweD
Hallo
so?

Sub test()
Dim dat(4), e%, LR&
LR = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row 'letzte Zeile der Spalte E
'zum testen
dat(1) = "a"
dat(2) = "b"
dat(3) = "c"
dat(4) = "d"
For e = 1 To 10000
If e > LR Then Exit 


Sub ' keine weiteren Daten vorhanden
Select Case ActiveSheet.Range("E" & e).Text
Case dat(1), dat(2), dat(3), dat(4)
ActiveSheet.Rows(e).ClearContents
End Select
Next e
End Sub



Gruß UweD

(Rückmeldung wäre schön)
Anzeige
AW: Zeilen löschen
12.07.2006 14:55:22
Aigner
So bei diesem code da löscht er nur 1 Zeile aber nicht alle Zeilen mit beschtimmten werten:

Private Sub CommandButton1_Click()
Dim dat(4)
Application.ScreenUpdating = False
dat(1) = TextBox1.Text
dat(2) = TextBox2.Text
dat(3) = TextBox3.Text
dat(4) = TextBox4.Text
' For j = 1 To 2
For e = 1 To 1000
If Range("E" & e).Text = dat(1) Then
Rows(e & ":" & e).Select
Selection.Delete shift:=xlUp
End If
If Range("E" & e).Text = dat(2) Then
Rows(e & ":" & e).Select
Selection.Delete shift:=xlUp
End If
If Range("E" & e).Text = dat(3) Then
Rows(e & ":" & e).Select
Selection.Delete shift:=xlUp
End If
If Range("E" & e).Text = dat(4) Then
Rows(e & ":" & e).Select
Selection.Delete shift:=xlUp
End If
Next e
'Next j
Unload Me
End Sub

Anzeige
AW: Zeilen löschen
12.07.2006 15:28:50
Kurt
Option Explicit

Private Sub CommandButton1_Click()
Dim dat(4), i As Byte
Application.ScreenUpdating = False
dat(1) = TextBox1.Text
dat(2) = TextBox2.Text
dat(3) = TextBox3.Text
dat(4) = TextBox4.Text
For e = 1000 To 1 Step -1
For i = 1 To 4
If Range("E" & e).Text = dat(i) Then
Rows(e).Delete
End If
Next
Next
Unload Me
End Sub

mfg Kurt
AW: Zeilen löschen
12.07.2006 15:51:12
Aigner
Hallo Kurt!
Wahnsinn des funzt extrem gut!!!
Danke nochmal!!
mfg
Wolfgang
AW: Zeilen löschen
12.07.2006 15:30:26
UweD
Hallo
hast du meine Lösung mal getestet?
Gruß UweD
(Rückmeldung wäre schön)
AW: Zeilen löschen
12.07.2006 16:33:54
Wolfgang
Hallo Uwe!
Ja habe ich getestet kamm auch ein Fehler!!!
For ohne Next
mfg
Wolfgang
Anzeige
AW: Zeilen löschen
13.07.2006 07:44:14
UweD
läuft bei mir problemlos...

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige