Anzeige
Archiv - Navigation
1692to1696
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
Inhaltsverzeichnis

Fehler in Code

Fehler in Code
16.05.2019 11:10:41
Peter
Hallo ihr Excelspezialisten,
ich benötige wieder einmal eure Hilfe.
Folgender Code wurde von mir erstellt:
<pre>Sub Wert_inSpalte_suchen4()
Dim Zelle As Range
Dim Bereich As Range
Dim lz As Long
Dim Zelle_A As String
Zelle_A = "333 333 33"
With ActiveSheet
lz = .Cells(Rows.Count, 3).End(xlUp).Row
Set Bereich = Range("E2:E" & lz)
For Each Zelle In Bereich
If Zelle.Row > 1 Then
If Zelle = Zelle_A Then
Range(Zelle.Offset(0, -3), Zelle.Offset(0, 1)).Delete Shift:=xlUp
End If
End If
Next Zelle
End With
End Sub</pre>
Das Problem ist aber, dass nach dem Löschen der Zeile die Zeilenreihenfolge nicht mehr stimmt.
Was muss hier bitte geändert werden, dass die Zelle zurückgesetzt wird.
Besten Dank für Eure Hilfe.
Gruss
Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler in Code
16.05.2019 11:30:34
{Boris}
Hi Peter,
löschen immer von UNTEN nach OBEN. Dann hast Du das Problem nicht.
Dazu nicht For Each sondern For Next Step -1 verwenden.
VG, Boris
AW: Fehler in Code beseitigt
16.05.2019 12:50:51
Peter
Hallo Boris,
besten Dank für Deinen Tip.
Habe den Code wie folgt umgebaut und funktioniert:
<pre>Sub Zeile_loeschen2()
Application.ScreenUpdating = False
Dim SuWert As String
Dim i As Integer
SuWert = "333 333 33" 'später Textbox5
'Jede Zeile durchlaufen
For i = 15 To 2 Step -1 'von unten nach oben
'Jede Zeile durchlaufen in Spalte E
If Cells(i, 5) = SuWert Then Range(Cells(i, 5).Offset(0, -3), Cells(i, 5).Offset(0, 2)).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True
End Sub</pre>
Wünsche Dir noch einen schönen Tag.
Gruss
Peter
Anzeige
Sehr gut! :-) oT
16.05.2019 14:22:52
{Boris}
...

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige