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
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