ich habe mit meinen geringen VBA-Kenntnissen folgende Funktionen gebastelt:
Sub formatieren()
If (Range("A1").Value Range("A2").NumberFormat = "\*0########\*"
Else
Range("A2").NumberFormat = "\*########\*"
End If
End Sub
Public Function THISFORMAT(Zahl As Variant) As Variant
THISFORMAT = Zahl - 100000000
'formatieren()
End Function
Ich denke man kann ungefähr erkennen, was ich vorhabe:
ich habe in Zelle A1 eine neunstellige Zahl, die in Zelle A2 um 100000000 (und somit achtstellig wird, da keine Werte über 199999999 zu erwarten sind), deshalb habe ich in A2 die Funktion THISFORMAT eingefügt. Jetzt soll die Zeile halt nur noch die Zeile so wie in der Funktion formatieren gescriptet formatiert werden, wie muss ich das in THISFORMAT einfügen.
Wenn es einfachere Wege ohne VBA gibt wäre ich auch für diesen Hinweis dankbar, trotzdem würde mich auch die VBA-Lösung interessieren, da ich über sowas jetzt schon häufiger gestolpert bin.
Gruß
Alois