Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatische Formatierung/Umwandlung

Forumthread: automatische Formatierung/Umwandlung

automatische Formatierung/Umwandlung
17.09.2007 21:11:00
SteffenS
Hallo,
ich möchte das wenn ein Benutzer ein Eingabe im Format:
mmyyyy macht das automatisch mm/yyyy daraus wird.
Zum Beispiel 042007 --> 04/2007.
Wie kann ich dies erreichen.
Es soll auch nur passieren wenn es in dem Format eingegen wird.
Danke im Voraus.
MFG
Steffen Schmerler

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatische Formatierung/Umwandlung
17.09.2007 22:55:00
SteffenS
Danke für die Hilfe, aber bei Deiner Variante muss der Anwender immer
den Tag mit angeben.
Ich möchte aber das der Anwender nur der Monat und das Jahr angibt und dann mm/yy erhält.
Vielleicht kannst Du mir ja nochmal helfen?
Danke im Voraus
Steffen

Anzeige
AW: automatische Formatierung/Umwandlung
17.09.2007 23:26:00
Josef
Hallo Steffen,
Beispiel für Spalte "A".
' **********************************************************************
' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target(1, 1)
    If .Column = 1 Then
        If IsNumeric(.Value) And Len(.Value) > 4 And Len(.Value) <= 6 Then
            If Mid(.Value, 1, Len(.Value) - 4) > 0 And Mid(.Value, 1, Len(.Value) - 4) <= 12 Then
                Application.EnableEvents = False
                .Value = CDate("1/" & Mid(.Value, 1, Len(.Value) - 4) & "/" & Right(.Value, 4))
                .NumberFormat = "MM\/YYYY"
                Application.EnableEvents = True
            End If
        End If
    End If
End With
End Sub

Gruß Sepp

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige