Wenn 1 dann Zellen in gleicher Zeile löschen
05.08.2004 22:05:10
MichiM
die Frage kommt ähnlich zwar öfters vor - aber etwas passendes habe ich nicht gefunden :-(
Ich habe in den Spalten A,B,C,D,E,F und H Werte stehen.
Wenn nun in der Spalte J eine "1" steht, sollen in dieser Zeile die Werte aus den Zellen A,B,C,D und F gelöscht werden.
Die ganze Zeile löschen geht leider nicht - sonst gibt es an anderer Stelle BEZUG-Fehler...
Mein vorhandenes Suchmakro sieht angepasst so aus (der wesentliche Teil)
Sub nach_60_Tagen_löschen()
Dim Suchzeichen As String
Dim Auswahlsumme As Integer
Suchzeichen = ""
If Not (Worksheets("Übersicht").Cells(1, 10).Value) = "" Then
Suchzeichen = Worksheets("Übersicht").Cells(1, 10).Value
Auswahlsumme = Auswahlsumme + 1
End If
Select Case Auswahlsumme
Case 1
Suche1 (Suchnummer)
End Select
End Sub
---------------------------------------------------
Sub Suche1(Zeichen As String)
Dim I As Integer
For I = 2 To Worksheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Row
If Zeichen = Worksheets("Übersicht").Cells(I, 10).Value Then
Worksheets("Übersicht").Cells(I, 1) = Delete
Worksheets("Übersicht").Cells(I, 2) = Delete
Worksheets("Übersicht").Cells(I, 3) = Delete
Worksheets("Übersicht").Cells(I, 4) = Delete
Worksheets("Übersicht").Cells(I, 6) = Delete
End If
Next
End Sub
Sowiet funktioniert es - allerdings löscht er immer (egal in welcher Zeile die 1 steht) die Zelle D6.
Kann mir da einer weiterhelfen?
Gruss
MichiM