Office: (Office 2016) Zell-Wert anhand der Usereingabe in der selben Zelle definieren?

Hi,

Ist es möglich, den eigentlichen Wert einer Zelle abhängig von der User-Eingabe in der selben Zelle zu machen?

Beispiel:

1. Gebe ich z.B. 7:30 ein, so ist dies auch der Wert und soll nach einem deutschen Zeitformat formatiert werden.
2. Gebe ich einen Buchstabe wie z.B. F ein, so sollte das "F" weiter in der Zelle zu sehen sein aber der eigentliche Wert dahinter soll 8h sein.

Könnt ihr mir folgen oder geht sowas überhaubt?
Ansonsten muss ich mir was anderes einfallen lassen.

Gruß Mario

 

Hi Mario,

und wie legst du fest, welcher Buchstabe welcher Uhrzeit entsprechen soll?

Vom Prinzip her kann man das so lösen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim varWert As Variant
    ' Eingabe ist nicht numerisch
    If Not IsNumeric(Target) Then
        Application.EnableEvents = False
        varWert = Target.Value
        ' Eingabe wird in Uhrzeit 8:00 umgewandelt
        Target = TimeValue("08:00:00")
        ' Zellformat wird in den Eingabetext ungewandelt
        Target.NumberFormat = varWert
        Application.EnableEvents = True
    Else
        Target.NumberFormat = "hh:mm"
    End If
End Sub

bis später,
Karin

 

Hi Karin,

Vielen Dank für die schnelle Antwort.
Ok... jetzt hast du mich doch erwischt. :) Erst wollte ich schreiben, dass ich nicht gänzlich neu in Excel bin aber bzgl. Makros oder Sckripting in Excel hab ich dann doch noch keinen Plan. Wo müsste ich solche Funktionen oder Event-Listener denn hinterlegen, damit das greift?
Und kann ich sowas für bestimmte Zellen geltend machen?

Ich merk schon, dass mir hier einiges an Excel-Macro-Scripting Wissen fehlt :)

Gruß Mario