Zeilen löschen

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

AW: Zeilen löschen

12.07.2006 13:56:56

Fred
AW: Zeilen löschen

12.07.2006 14:23:17

UweD
AW: Zeilen löschen

12.07.2006 14:55:22

Aigner
AW: Zeilen löschen

12.07.2006 15:28:50

Kurt
AW: Zeilen löschen

12.07.2006 15:51:12

Aigner
AW: Zeilen löschen

12.07.2006 15:30:26

UweD
AW: Zeilen löschen

12.07.2006 16:33:54

Wolfgang
AW: Zeilen löschen

13.07.2006 07:44:14

UweD

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)

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

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

AW: Zeilen löschen

13.07.2006 07:44:14

UweD

läuft bei mir problemlos...

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeilen löschen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread