Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

NumberFormat("dd.mm.yyyy") ?

Forumthread: NumberFormat("dd.mm.yyyy") ?

NumberFormat("dd.mm.yyyy") ?
Karsten
Hallo
kann mir jemand folgenden Code richtig schreiben. So, wie ich es versucht habe, funktioniert es noch nicht.
If Target.Address = NumberFormat("dd.mm.yyyy") Then
Hier nochmal mein gesamter Code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Target.Address = NumberFormat("dd.mm.yyyy") Then
Application.Run "a"
Else
Application.Run "b"
End If
End If
End Sub

Besten Dank füt eure Hilfe.
Gruß
Karsten
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: NumberFormat("dd.mm.yyyy") ?
02.12.2011 09:07:34
Rudi
Hallo,
mal mit der Syntax vertraut machen.
Target.Address gibt doch $A$1 zurück.
Willst du prüfen, welches Zellformat Target hat?
If Target.NumberFormat= "DD.MM.YYYY" Then
Gruß
Rudi
AW: NumberFormat("dd.mm.yyyy") ?
02.12.2011 09:16:26
Karsten
Hallo Rudi,
danke. Nun müsste doch, wenn in A1 z.B 02.02.2012 steht, Application.Run "a" durchlaufen werden. Macht er aber nicht. Ich denke schon, dass ich das Zellformat prüfen will. Bloß, was ist da noch falsch?
Gruß
Karsten
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Target.NumberFormat = "DD.MM.YYYY" Then
Application.Run "a"
Else
Application.Run "b"
End If
End If
End Sub

Anzeige
AW: NumberFormat("dd.mm.yyyy") ?
02.12.2011 09:40:14
Rudi
Hallo,
Ich denke schon, dass ich das Zellformat prüfen will.
Du weißt also nicht genau, was du willst?
Wie sollen wir das wissen?
If IsDate(Target) Then
Gruß
Rudi
AW: NumberFormat("dd.mm.yyyy") ?
02.12.2011 09:47:24
Karsten
Hallo Rudi,
doch, wie immer es heißt, das war's was ich suchte.
Danke
Gruß
Karsten
Anzeige
AW: NumberFormat("dd.mm.yyyy") ?
02.12.2011 09:12:42
hary
Hallo Karsten
Ich glaube, dass was Du vor hast, wird so nicht klappen.
Gib mal in eine leere Tabelle in A1 ein Datum ein Format: 11.01.11
Dann hast Du ein Datum drinstehen.
Jetzt gib mal 456 ein, das wird auch in ein Datum umgewandelt in dem Format 00.00.00
also wird Application.Run "b" nie ausgefuehrt.
Lasse mich aber gern eines besseren belehren. daher frage noch offen.
Vlt. eine Option: Nimm statt ZelleA1 eine Textbox.
gruss hary
Anzeige
AW: NumberFormat("dd.mm.yyyy") ?
02.12.2011 09:25:02
Karsten
Hallo Hary,
das stimmt. Allerdings die Zahlen, die ich eingeben will, sind höchstens zweistellig und nicht größer als 31. Und die lassen sich von einem "richtigen" Daten unterscheiden und auswerten.
Gruß
Karsten
jetzt geht das wieder los....
02.12.2011 10:44:24
robert
;

Forumthreads zu verwandten Themen

Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Datumsformat "ddd.dd.mm.yyyy"
Sonnenpeter

Hallo.
habe mal wieder ein Problem mit dem DATUM.
Die nachfolgenden Makros funktionieren werden aber im Aufbau noch verbessert.
Private Sub UserForm_Initialize() Dim Datum1, EDatum1, EDatum2 As Date Datum1 = Date Wochentag1 = Weekday(Datum1) ZF1 = Format(Datum1, "####0") If Wochen...
29.12.2008 14:31:19
Thread-ID: 1035743
3 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Anzeige
ddmmyy oder ttmmjj
dieter

Hallo Forum,
mit der unten stehenden Excelformel (die ich hieraus dem Forum habe)
erreiche ich,dass das Datum (steht in J19) und die zahl zweier kalenderwochen (zb. Woche 27 +28) ohne punkt und komma als zahl geschrieben wird.
Beispiel: 10.07.09 und die Wochen 27 +28 werden dann dar...
13.07.2009 13:36:11
Thread-ID: 1087989
2 Beiträge
if Len(Dir("I:\xxx\yyyy\", vbDirectory)) then
Martin

Guten Tag
Kann mir jemand in Detail erklären, was folgender Befehl genau macht:
if Len(Dir("I:\xxx\yyyy\", vbDirectory)) then ......
Besten Dank
27.09.2010 10:18:47
Thread-ID: 1179524
7 Beiträge
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
3 Beiträge
Bedingtes Format Datenbalken widersetzt sich VBA
Andreas

Hallo Herber Fans,
es sollte eigentlich doch nur ein kleiner Code am Abend werden… und nun bin ich leider mittelprächtig entnervt, die Augen schmerzen und ich komm nicht drauf… In PivotTabellen verwende ich für Abweichungsdarstellungen zuweilen Datenbalken. Diese skalieren sich innerhalb ei...
16.09.2013 21:17:26
Thread-ID: 1331066
11 Beiträge
Format in Txt-Datei geänd - VBA- geht nimmer
Speditx

Excel 2007 - Lösung bitte in Excel oder mit Makro(VBA) - vielen Dank
--------------------------------------------------------------------------------
Hallo VBA-Profis, ich brauche bitte Eure Hilfe!
bisher hat mein VBA-Markro (Excel 2007 und auch XP 2003) funktioniert. Nun sind die P...
19.09.2013 00:17:33
Thread-ID: 1331414
2 Beiträge
Anzeige
Date$, "yyyy-mm-dd" - Merkwürdiger Fehler
zesa_suzuki@live.de

Hallo Zusammen,
seit zwei Wochen arbeite ich mit einem Marko, was super funktioniert.
DateiPfad & ":" & Format(Date$, "yyyy-mm-dd") & " Liste.xlsx"
Ich kriege damit die Datei 2014-02-28 Liste.xlsx.
Alles also super.
HEUTE aber wurde die Liste anders exportiert.
01.03.2014 11:49:21
Thread-ID: 1351766
4 Beiträge
MM/TT/YY in TT.MM.YY
zesa_suzuki@live.de

Hallo,
ich habe das Problem, dass beim Import ein String so übernommen wird
MM/TT/YY ALS TEXT.
Ich habe verschiedene Sachen versucht mit LEFT, RIGHT UND SEARCH um alles so zu machen, wie ich es will,
also TT.MM.YY
Das Problem ist, dass es nicht dynamisch genug ist.
Sobal...
22.04.2014 14:03:49
Thread-ID: 1358128
10 Beiträge
Zeitzone (ddd mmm dd yyyy hh:mm:ss) umwandeln
Martin
Hi,
ich benötige Hilfe Zeitstempel in die deutsche Schreibweise umzuwandeln und anschließend richtig zu sortieren.
Quelle (innerhalb einer Spalte):
Fri Apr 02 1999 16:31:20
Fri Apr 02 2004 13:05:30
Fri Apr 01 2011 12:31:06
[...]
1.) Zeitstempel umwandeln
Fri Apr 01 2...
24.05.2014 17:58:48
Thread-ID: 1363227
2 Beiträge
Zeitzone (ddd mmm dd yyyy hh:mm:ss) umwandeln
Martin
Hi,
ich benötige Hilfe Zeitstempel in die deutsche Schreibweise umzuwandeln und anschließend richtig zu sortieren.
Quelle (innerhalb einer Spalte):
Fri Apr 02 1999 16:31:20
Fri Apr 02 2004 13:05:30
Fri Apr 01 2011 12:31:06
[...]
1.) Zeitstempel umwandeln
Fri Apr 01 2...
24.05.2014 18:08:59
Thread-ID: 1363229
2 Beiträge
Anzeige

Infobox / Tutorial

Datum im Excel VBA Formatieren: dd.mm.yyyy

Schritt-für-Schritt-Anleitung

  1. Öffne den Visual Basic for Applications (VBA) Editor in Excel, indem Du ALT + F11 drückst.

  2. Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf "VBAProject (deineDatei.xlsx)" klickst und dann "Einfügen" > "Modul" wählst.

  3. Kopiere den folgenden Code in das Modul:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(0, 0) = "A1" Then
       If Target.NumberFormat = "DD.MM.YYYY" Then
           Application.Run "a"
       Else
           Application.Run "b"
       End If
   End If
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Gib in Zelle A1 ein Datum im Format dd.mm.yyyy ein (z. B. 02.02.2012).

  6. Überprüfe, ob die richtige Subroutine (Application.Run "a") ausgeführt wird.

Häufige Fehler und Lösungen

  • Fehler: If Target.Address = NumberFormat("dd.mm.yyyy")

    • Lösung: Stelle sicher, dass Du Target.NumberFormat verwendest, um das Zellformat zu überprüfen.

  • Problem: Der Code wird nicht ausgeführt, wenn eine Zahl (z. B. 456) eingegeben wird.

    • Lösung: Achte darauf, dass das Datum im richtigen Format eingegeben wird. Zahlen können in Excel automatisch in Datumsformate umgewandelt werden.

Alternative Methoden

  • Verwendung von Textboxen: Anstatt Zellen zu verwenden, kannst Du auch eine Textbox in Deinem Excel-Blatt nutzen, um das Datum im Format dd/mm/yyyy einzugeben. Hier ist ein Beispiel:

    Private Sub TextBox1_Change()
   If IsDate(TextBox1.Value) Then
       ' Formatieren des Datums
       TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
   End If
End Sub

  • Direkte Eingabe: Du kannst auch das CDate-Format verwenden, um sicherzustellen, dass die Eingabe als Datum interpretiert wird:

    Dim Datum As Date
Datum = CDate(TextBox1.Value)

Praktische Beispiele

  • Beispiel für eine Datumsüberprüfung:

    If IsDate(Target.Value) Then
   MsgBox "Das eingegebene Datum ist gültig."
Else
   MsgBox "Bitte ein gültiges Datum im Format dd.mm.yyyy eingeben."
End If

  • Formatierung eines Datums in einem anderen Format:

    Target.NumberFormat = "dd-mm-yyyy"

Tipps für Profis

  • Verwende IsDate für die Validierung: Nutze IsDate(Target) vor dem Formatieren, um sicherzustellen, dass die Eingabe ein gültiges Datum ist.

  • Automatisiere die Formatierung: Du kannst die Formatierung automatisch anpassen, wenn der Benutzer ein Datum eingibt, indem Du die Worksheet_Change-Ereignisprozedur nutzt.

  • Beachte regionale Unterschiede: Stelle sicher, dass Du die richtige Datumsformatierung verwendest, die zu den regionalen Einstellungen Deines Systems passt.

FAQ: Häufige Fragen

1. Wie formatiere ich ein Datum in Excel VBA?
Du kannst das Datum formatieren, indem Du die NumberFormat-Eigenschaft des Zielbereichs verwendest, z. B. Target.NumberFormat = "dd.mm.yyyy".

2. Was ist der Unterschied zwischen Date und String in VBA?
Ein Date-Typ speichert das Datum in einem speziellen Format, während ein String einfach Text ist. Verwende CDate, um einen String in ein Datum zu konvertieren.

3. Wie kann ich sicherstellen, dass das Datum korrekt eingegeben wird?
Nutze die IsDate-Funktion, um zu überprüfen, ob die Eingabe ein gültiges Datum ist, bevor Du weitere Aktionen durchführst.

4. Warum wird mein Datum nicht im richtigen Format angezeigt?
Stelle sicher, dass Du das richtige Format in der NumberFormat-Eigenschaft angibst und dass das eingegebene Datum gültig ist.

Beliebteste Forumthreads (12 Monate)

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