Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige