Microsoft Excel

Herbers Excel/VBA-Archiv

Komma aber Doppelpunkt

Betrifft: Komma aber Doppelpunkt von: walter mb
Geschrieben am: 04.04.2014 09:52:24

Guten Morgen,
ich möchte gern, wenn ich Komma eingebe, das mir der Doppelpunkt
dargestellt wird.
Als Text, möchte keine Zeitdarstellung.
Habe das mal so probiert, leider ohne Erfolg:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lrgRange As Range
On Error GoTo ERR_Handler
Set lrgRange = Range("E5:E65000, F5:F65000")
If Intersect(Target, lrgRange) Is Nothing Then Exit Sub
 With Target
    If .Count = 1 Then
         If .Value = "," Then
             Application.EnableEvents = False
             .Value = ":"
         End If
     End If
 End With
ERR_Handler:
 Application.EnableEvents = True
 End Sub

mfg walter mb

  

Betrifft: AW: Komma aber Doppelpunkt von: Matthias L
Geschrieben am: 04.04.2014 10:01:32

Hallo

ich möchte gern, wenn ich Komma eingebe, das mir der Doppelpunkt
dargestellt wird.

Verstehe nicht ganz, das passiert doch auch.

Oder meinst Du etwas ganz Anderes?
Evtl. die AutoKorrektur benutzen.

Gruß Matthias


  

Betrifft: geht nicht von: walter mb
Geschrieben am: 04.04.2014 10:05:15

Guten Morgen Matthias,
wenn ich so in der Zelle ein Komma eingebe, wird es Doppelpunkt.
Wenn ich aber 14,30 eingebe bleibt es so.
Ich möchte gern dann 14:30 haben.
Die Spalten habe ich als Text formatiert.
gruß Walter mb


  

Betrifft: Keine AutoKorrektur von: walter mb
Geschrieben am: 04.04.2014 10:06:30

Hallo Matthias,
keine Autokorrektur, soll nur für eine Tabelle sein !
mfg
walter mb


  

Betrifft: Substitute von: Matthias L
Geschrieben am: 04.04.2014 10:19:57

Hallo

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim lrgRange As Range
On Error GoTo ERR_Handler

Set lrgRange = Range("E5:E65000, F5:F65000")
If Intersect(Target, lrgRange) Is Nothing Then Exit Sub
With Target
   If .Count = 1 Then
    Application.EnableEvents = False
     If IsNumeric(Target) Then
      Target = Application.WorksheetFunction.Substitute(Target.Value, ",", ":")
     End If
    Application.EnableEvents = True
   End If
End With

ERR_Handler:
Application.EnableEvents = True

End Sub
Gruß Matthias


  

Betrifft: DANKE, hervorragend Matthias -) von: walter mb
Geschrieben am: 04.04.2014 10:23:47

Danke Matthias,
klappt genaus so, wie ich es wünschte.
Schönen Tag noch,
gruß walter mb


  

Betrifft: Danke für die Rückmeldung :-) owT von: Matthias L
Geschrieben am: 04.04.2014 10:25:07




 

Beiträge aus den Excel-Beispielen zum Thema "Komma aber Doppelpunkt"