Office: (Office 2007) Spalte per VBA durchlaufen und auf Zellwert prüfen

Hallo zusammen,

zuerst danke für Deine Hilfe.
Mit folgender Herausforderung komme ich nicht weiter ...

Ich möchte in einem Tabellenblatt in der Spalte B alle Zellen durchlaufen, die einen Zellenwert haben.
Wenn der Eintrag eine 0 (Null) hat, soll dieser Zelleneintrag und die beiden Zelleneinträge in der gleichen Zeile in der Spalte C und D gelöscht werden.

Mein kläglicher Ansatz:

Code:

With Sheets("Tabelle1")
?? With .Range("B2")Set rng =.Range("B2:B" & .Range("B2").End(xlDown).Row)
?? If  .range = Empty then ClearContents and Zelle C und D??
End If
End With
End With
[code/]

Danke,schönen Tag!
Gruß
Klaus

[trace]230255[/trace]

 

Hallo!

So sollte es funktionieren: Code:

Gruß rastrans

 

Hi Klaus,
probier mal das hier

For x = 2 ro range("B1000".end(xlup).row
if cells(x, 1).offset(0, 1) = "" Then _
cells(x, 1). offset(0,2) = ""
cells(x, 1). offset(0,3) = ""
end if

next x

also Spalte B von Zeile 2 bis 1000
wenn Zelle B2 (x = 2 ; 1 = Spalte B) = "" also leer
dann Zelle C2 (x = 2 ; 2 = Spalte C) = ""

usw.

dass ist allerdings in Excel 2003 , sollte aber auch bei 2007 funktionieren

Gruß
DeBabba

PS.: Einen Nobelpreis erwarte ich nicht für diesen Tipp, es gibt vielleicht auch was eleganteres, aber ein Feedback wäre nett

 

Moin, DeBabba,

da fehlt eine Kammer:

Code:

Und Bereiche kann man wunderschön zusammenfassen... *wink.gif*

@rastrans:
Specialcells angewandt auf Zellen mit Wert wäre klasse gewesen...

 

\@jinx:

Wie soll das gehen? Von den XlCellType-Werten sieht für mich keine so aus, das ich diese nutzen könnte! Wenn es nur um leere Zellen geht, dann hätte ich darauf zurückgreifen können.

Gruß
rastrans

 

Moin, rastrans,

dann sieh Dir doch bitte einmal den Vorschlag von Thomas Ramel in "Optimierung" des Codes möglich? an - man muss ja anschließend nicht die ganzen Zeilen löschen.

Code:

für Zahlen als Konstante...

 

Hi,

als kurze Alternative geht auch das hier:
Code:

Allerdings nur wenn keine Formeln in dem Bereich stehen. Sind Formeln enthalten dann werden die in Konstanten umgewandelt.

 

Hallo zusammen,

vielen Dank für Eure Ideen - für mich war der Ansatz von DeBabba der richtige.

Gruß
Klaus