wie wert in Zelle zurückschreiben?
08.04.2003 14:48:50
HansMaus
ich hab ein kleines Problem :-(
Ich habe ein kleines Script geschrieben, welches in einem bestimmten Bereich ein definiertes Zeichen zählt. je nach anzahl möchte ich den wert in der ausgelesenen Zelle verändern.
das Script funktioniert soweit nur kann ich den veränderten Wert nicht in die Zelle zurückschreiben....was ist falsch ?
Danke schoneinmal für eure Antworten
Hans
gestertet wird das script mittels:
=ZeichenZaehlen(B1:B1;".")
in einer beliebigen Zelle
zum Script:
Sub ZeichenZaehlen(Bereich As Range, strZeichen As String)
Dim Zelle As Variant
Dim Testvar As Variant
Dim ZeichenZaehlen As Double
ZeichenZaehlen = 0
For Each Zelle In Bereich
ZeichenZaehlen = ZeichenZaehlen + (Len(Zelle) - _
Len(Replace(Zelle, strZeichen, "")))
If ZeichenZaehlen = 3 Then
Zelle = "9 " & Zelle
End If
Next
End Sub