Zahleneingabe ohne Prozent
Werner Niederhäuser
Wir haben da ein Problem das auf eine gescheite Lösung wartet:
Es handelt sich um ein Arbeitsstundenblatt und in diesem befindet sich ein
Feld in dem die User ihre Arbeitszeit in Prozenten (100, 80, 60.52) eingeben
müssen. Eine Formel greift dann auf diese eingegebene Zahl zu. Nun darf aber
in diesem Feld das Prozentzeichen nicht eingegeben werden, das sonst ganz
andere Werte berechnet werden.
Jetzt die Frage:
Wir können wir verhindert, dass das Prozentzeichen (%) welches von den Usern
trotzdem eingegeben wird, nicht anerkannt wird und nur die Zahl im Feld
erscheint.
Beispiel: 100 % im Feld: 100
Sagt aber nicht, dass das ganz einfach ist ..... aber trotzdem vielen Dank
für Tipps oder gar Lösungen.
Werner
Gennaro della Rocca
ich sehe die Sache so:
da das Prozentzeichen eine Division des eingegebenen Wertes durch 100
bewirkt (z.B. aus 50% wird 0,5)
wäre es vielleicht möglich, die Zelle mit einem normalen Format ohne
Prozentzeichen zu definieren und in der
berechnenden Formel dieser Wert durch 100 zu teilen, dann wäre das Ergebnis
das gleiche wie bei einem
echten Prozentzahl, aber ohne dieses Zeichen.
Man könnte auch die Zelle so formatieren, dass Sie dem User eine echte
Prozentzahl "vorgaukelt"
Beispiel für einer solchen Formatierung: 0"%" (Prozentzeichne in
Anführungszeichen".
Der User gibt eine normale Zahl ein und diese wird als Prozentzahl
dargestellt.
Ich hoffe, Dir geholfen zu haben
mfg
Gennaro della Rocca
Werner Niederhäuser <wp...@swissonline.ch> schrieb in im Newsbeitrag:
ecd3bXGZAHA.2016@tkmsftngp04...
Michael Schwimmer
ecd3bXGZAHA.2016@tkmsftngp04...
> trotzdem eingegeben wird, nicht anerkannt wird und nur die Zahl im Feld
> erscheint.
> Beispiel: 100 % im Feld: 100
>
in das Klassenmodul des entsprechenden Tabellenblattes:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Pos As Integer, Zellinhalt As String
With Target
Zellinhalt = .Cells(1, 1).Text
Pos = InStr(1, Zellinhalt, "%")
If Pos > 0 Then
If IsNumeric(.Cells(1, 1).Value) Then
Application.EnableEvents = False
.Cells(1, 1).NumberFormat = "General"
.Cells(1, 1).Value = CDbl(Left$(Zellinhalt, Pos - 1))
Application.EnableEvents = True
End If
End If
End With
End Sub
MfG
Michael
Werner Niederhäuser
Werde das VBA verwenden, denn hier lässt sich wirklich was machen.
Nochmals vielen Dank
Werner
"Werner Niederhäuser" <wp...@swissonline.ch> schrieb im Newsbeitrag
news:ecd3bXGZAHA.2016@tkmsftngp04...