Thema Datum  Von Nutzer Rating
Antwort
17.04.2017 11:08:45 excel_clue
NotSolved
18.04.2017 07:57:21 BigBen
NotSolved
18.04.2017 15:06:25 BigBen
NotSolved
Blau Excel Zellenformatierung Datum
18.04.2017 15:16:46 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
18.04.2017 15:16:46		 Views:
586		 Rating:
     
Antwort:
  Ja
Thema:
Excel Zellenformatierung Datum

Hallo,

beim letzten Code tritt ein Fehler auf, wenn die generierte Formel nochmals bearbeitet wird. In der überarbeiteten Version tritt kein Fehler mehr auf.

Zusätzlich wurde der Variablentyp von Long auf Double geändert, da beim bearbeiten von manchen Eingaben ein Überlauf-Fehler aufgetreten ist:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dblValue As Double
    Dim dblMs As Double, dblSec As Double, dblMin As Double, dblHour As Double
    Dim rngTime As Range
        
    Set rngTime = Intersect(Range(ThisWorkbook.Names("Uhrzeiten").RefersTo), Target)
    
    If Not rngTime Is Nothing Then
        If IsNumeric(rngTime.Value) And Not Left(rngTime.Formula, 1) = "=" Then
            dblValue = rngTime.Value
            dblMs = dblValue - (Int(dblValue / 1000) * 1000)
            dblValue = (dblValue - dblMs) / 1000
            dblSec = dblValue - (Int(dblValue / 100) * 100)
            dblValue = (dblValue - dblSec) / 100
            dblMin = dblValue - (Int(dblValue / 100) * 100)
            dblValue = (dblValue - dblMin) / 100
            dblHour = dblValue
            Application.EnableEvents = False
            With rngTime
                .Formula = "=TimeValue(""" & dblHour & ":" & dblMin & ":" & dblSec & "," & dblMs & """)"
                .NumberFormat = "hh:mm:ss.000"
            End With
            Application.EnableEvents = True
        End If
    End If
End Sub

LG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.04.2017 11:08:45 excel_clue
NotSolved
18.04.2017 07:57:21 BigBen
NotSolved
18.04.2017 15:06:25 BigBen
NotSolved
Blau Excel Zellenformatierung Datum
18.04.2017 15:16:46 BigBen
NotSolved