Mit "Find-Methode" löschen
01.03.2007 16:14:32
Sophie
habe eine Excel-Mappe die viele Messdaten enthält.
Hieraus erstelle ich Diagramme, da es immer wieder vorkommt, daß in einzelnen Zeilen keine Werte drinstehen (anstatt eines Wertes steht eine Null drin "0" und dieses in mehreren Spalten der Zeile) möchte ich diese entfernen bzw. löschen bevor ich das Diagramm dazu erstelle.
Nun habe ich mir ein Programm erstellt, daß die Nullwerte super findet, aber ich komme nicht weiter wie ich die Zeilen gleich löschen kann. Habe mit der Find-Methode gearbeitet, bekomme aber es nicht hin, daß die Zeilen gleich gelöscht werden. (Vielleicht liegt daß Problem darin, daß die Find-Methode in der selben Zeile mehrere Nullwerte findet). Die Spalten F bis O möchte ich abfragen, wenn einer dieser Spalten einen Nullwert enthält möchte ich diese Spalte löschen.
With Worksheets("Daten").Range("F:O")
Set c = .Find("0", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstaddress = c.Address
Do
If Zähler c.Row Then
Zähler = c.Row
.Rows(c.Row & ":" & c.Row).Delete
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstaddress
End If
End With
End If
Für Euere Hilfe wäre ich Euch dankbar.
Gruß
Sophie