Zellen überschreiben

Forumthread: Zellen überschreiben

15.05.2006 15:30:42

kle

Hallo zusammen,
ich habe eine Tabelle, so es "falsch" oder "wahr" steht (aus Access exportiert). Ich will, dass die Zellen, so es "wahr" steht mit "1" überschrieben werden, die, wo es "falsch" steht, sollen leer bleiben. Wie mache ich das?
Danke
kle

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen überschreiben

15.05.2006 15:52:19

Bertram

AW: Zellen überschreiben

15.05.2006 15:52:19

Bertram

Hallo Kle,
füge diesen Code in ein normales Modul ein:


Sub Wahr_Falsch()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange.Cells
If Zelle.Value = True Then Zelle.Value = "1"
If Zelle.Value = False Then Zelle.Value = ""
Next Zelle
End Sub

Gruß
Bertram

Forumthread: Zellen überschreiben

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread