Lösung ist unklar
29.03.2010 19:33:29
Erich
Hallo ,
deine Lösung verstehe ich so nicht.
Wie lautet die Formel?
Was ist der Wert von Zelle?
Was soll nachher in der Zelle stehen - Zahl oder Text?
Wie ist die Zelle formatiert?
Das Copy/Paste halte ich für überflüssig. Probier bitte mal diese Versionen aus:
Sub aaUnb1() ' das ist deine Version
If Zelle.Value = "099" Or Zelle.Value = "095" Then
With Zelle
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Else
Zelle.Formula = Zelle.Value
End If
End Sub
Sub aaUnb2() ' With ist gut, dann aber auch gleich überall
With Zelle
If .Value = "099" Or .Value = "095" Then
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Else
.Formula = .Value
End If
End With
End Sub
Sub aaUnb3() ' Copy/PasteSpecial wird wohl nicht gebraucht
With Zelle
.Formula = .Value
End With
End Sub
Sub aaUnb4() ' vermeidet den geschützen Begriff "Zelle" (ist eine Excelfkt.)
With rngZ
.Formula = .Value
End With
End Sub
Sub aaUnb5() ' kürzer ohne "With"
rngZ.Formula = rngZ.Value
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort