interessantes Range Problem

Forumthread: interessantes Range Problem

11.11.2003 16:44:41

golem

Hallo,
Mit folgender Anweisung sollen "0" in die Zellen geschrieben werden, wenn (alle)Rangeobjekte Leer sind:

If Range(Cells(1, 1), Cells(4, 4)) = "" Then Range(Cells(1, 1), Cells(4, 4)) = "0"

Compiler meckert.
Wie kann ich das hinbekommen (wenn möglich ohne Schleife)?
Gruß
Goli

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Tabellenfunktion COUNTBLANK

11.11.2003 16:48:11

ChrisL
AW: Häppchen- äh Zellenweise...

11.11.2003 16:50:50

Nike
Danke für flotte Hilfe! o.T.

11.11.2003 16:54:11

golem

Tabellenfunktion COUNTBLANK

11.11.2003 16:48:11

ChrisL

Hi Goli

Überprüf mit der Funktion COUNTBLANK.

If Application.WorksheetFunction.CountBlank(Range("A1:D4")) = 16 Then ...

Gruss
Chris

AW: Häppchen- äh Zellenweise...

11.11.2003 16:50:50

Nike

Hi,
wenn dann wohl eher so:


Sub test()
Dim rngCell As Range
For Each rngCell In Range(Cells(1, 1), Cells(4, 4))
If rngCell = "" Then
rngCell = "0"
End If
Next
End Sub

Bye

Nike

Danke für flotte Hilfe! o.T.

11.11.2003 16:54:11

golem

Forumthread: interessantes Range Problem

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread