Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1820to1824
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
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Format Datum in Range

Format Datum in Range
15.03.2021 15:05:12
Jerry
Liebe Community,
Nach 4 Stunden Quälerei mit Datumsformat darf ich mich bitte an Euch wenden:
Es befinden sich im Bereich A5:A50 Datumswerte, zB 04.01.2021 etc
Wenn ich über TypeName(ActiveCell.Value) im Direktfenster die Einträge abfrage handelt es sich
um Strings.
Ich kann nicht mit Range("A5:A50).NumberFormat= "dd/mm/yy" diese Strings ins Format Datum umwandeln
es bleiben Strings.
Was muss ich bitte tun?
Mit bestem Dank für Eure Hilfe
Jerry Stewart

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Format Datum in Range
15.03.2021 15:10:07
ralf_b
format setzen und dann Werte auf sich selbst einfügen einfügen.
Range("A5:A50).value = Range("A5:A50).value nur so ne Idee.

AW: Format Datum in Range
15.03.2021 15:13:39
Werner
Hallo,
Sub Makro1()
Range("A4:A50").TextToColumns Destination:=Range("A4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
End Sub
Gruß Werner

AW: Format Datum in Range
15.03.2021 15:16:33
Daniel
Hi
Erstmal die Strings in Datumswerte wandeln.
Ich würde die Menüfunktion Daten - Datentools - Text in Spalten auf den Zellbereich A5:A50 anwenden und im Schritt 3 des Assistenten angeben, dass die Werte Datum sein sollen und in welcher Reihenfolge Tag, Monat und Jahr angegeben sind.
Wenn du das als Makro brauchst, lass den Recorde mitlaufen.
Alternativ kannst du auch eine leere Zelle kopieren und mit I halte-Einfügen und der Operation "addieren" in die Zellen einfügen.
Oder einfach mit der Menüfunktion "Ersetzen" Punkt durch Punkt austauschen.
Beides könnte aber bei Ausführung per Makro Probleme machen, WG der unterschiedlichen Anordnung von Monat und Tag in Europa und USA, bzw bei der Ausführung per Makro, nur bei text-,in-Spalten kannst du das explizit angeben.
Gruß Daniel

Anzeige
AW: Format Datum in Range
15.03.2021 15:17:03
Daniel
Hi
Erstmal die Strings in Datumswerte wandeln.
Ich würde die Menüfunktion Daten - Datentools - Text in Spalten auf den Zellbereich A5:A50 anwenden und im Schritt 3 des Assistenten angeben, dass die Werte Datum sein sollen und in welcher Reihenfolge Tag, Monat und Jahr angegeben sind.
Wenn du das als Makro brauchst, lass den Recorde mitlaufen.
Alternativ kannst du auch eine leere Zelle kopieren und mit I halte-Einfügen und der Operation "addieren" in die Zellen einfügen.
Oder einfach mit der Menüfunktion "Ersetzen" Punkt durch Punkt austauschen.
Beides könnte aber bei Ausführung per Makro Probleme machen, WG der unterschiedlichen Anordnung von Monat und Tag in Europa und USA, bzw bei der Ausführung per Makro, nur bei text-,in-Spalten kannst du das explizit angeben.
Gruß Daniel

Anzeige
noch mit entspr. Formatierung
15.03.2021 15:19:14
Werner
Hallo,
Sub Makro1()
Range("A4:A50").TextToColumns Destination:=Range("A4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Range("A4:A50").NumberFormat = "dd\/mm\/yy"
End Sub
Gruß Werner

AW: noch mit entspr. Formatierung
15.03.2021 15:29:00
Jerry
Besten Dank, Werner, funktioniert perfekt, Dein Code!
Nur eine Frage: das kann doch nicht sein, dass es so kompliziert ist, oder?
Gruss
Jerry

AW: noch mit entspr. Formatierung
15.03.2021 15:32:44
Werner
Hallo,
was bedeutet "kompliziert"? Text ist halt nun mal Text und keine Zahl. Da änderst du auch nichts dran, wenn du die Zellformatierung änderst - das bleibt trotzdem Text.
Stellt sich die Frage, ob du das Pferd von hinten aufzäumst. Wie kommen denn deine "Text-Datumswerte" in die Zellen? Wenn möglich solltest du vielleicht da ansetzen.
Gruß Werner

Anzeige
AW: noch mit entspr. Formatierung
15.03.2021 16:03:46
Jerry
Hallo Werner,
Dein Code funktioniert insofern perfekt, als dass die gesamte Range als Datum formatiert ist.
Aber er bringt Einträge durcheinander: in meiner Range sind nur aufsteigende Daten gereiht,
nach der Anwendung Deines Codes steht zB 11.03.21 und danach 02.03.21
Ich habe keine Ahnung nach welchem Muster die Datumsangabe durcheinander gebracht werden.
Vielleicht kannst Du mir eine Aufklärung geben.
Besten Dank
Jerry

AW: noch mit entspr. Formatierung
15.03.2021 17:27:37
Werner
Hallo,
bei mir nicht. Mehr kann ich dazu nicht sagen, deine Datei kenne ich nicht.
Also lade mal deine Datei, bei der das so ist, hier hoch.
Gruß Werner

Anzeige
AW: noch mit entspr. Formatierung
16.03.2021 09:21:27
Jerry
Hallo Werner,
Danke für Deine Hilfe!
Ich habe die Datei nun hochgeladen mit den Datumsangaben.
Wenn man den Datentyp abfragt zB im Direktfenster mit ?TypeName(ActiveCell.Value)
bekommt man Range zurück.
Man kann direkt zB mit "Zellen formatieren" in Zahl oder Datum nichts machen,
man bekommt die Eigenschaft Range nicht weg.
Man kann die Angaben weder in eine Zahl noch in ein Datum umwandeln.
Mysteriös!
LG
Jerry

du hast nix hochgeladen...
16.03.2021 09:37:18
Werner
Hallo,
...vermutlich hast du den Link, der von der Forensoftware erzeugt wird, nicht kopiert und in den Beitrag eingefügt.
Gruß Werner

Anzeige
AW: du hast nix hochgeladen...
16.03.2021 10:22:25
Jerry
Könntest du mir bitte Deine Email-Adresse geben, Werner, wär einfacher, Danke!

Wenn jetzt plötzlich deine Daten...
16.03.2021 10:54:00
Werner
Hallo,
...in B6 bis B50 stehen und nicht wie im Eingangsbeitrag in A4 bis A50, dann mußt du halt auch die Bezüge im Makro entsprechend anpassen. 
Sub Makro1()
Range("B6:B50").TextToColumns Destination:=Range("B6"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Range("B6:B50").NumberFormat = "dd\/mm\/yy"
End Sub
Gruß Werner

Anzeige
AW: Wenn jetzt plötzlich deine Daten...
16.03.2021 11:08:37
Jerry
ja das ist klar, Werner, hab ich auch gemacht, Danke!
Ich habe Dir ja nur einen kleinen Auszug aus der OriginalDatei in eine MAppe schnell kopiert.
In der OriginalDatei sind alle Datumsangaben in Spalte A und werden durcheinander gebracht.
Was hat es in Deinem Code mit :=Array(1,4) zu tun, das könnte eventuell ursächlcih für die Veränderung der Sortierung sein.
Danke für Deine Hilfe,
LG
Jerry

AW: Wenn jetzt plötzlich deine Daten...
16.03.2021 11:24:57
Werner
Hallo,
und warum schickst du nicht deine Originalmappe? Die Mappe mit den "Datumswerten" in Spalte A reicht, alle übrigen Daten kannst du löschen.
Gruß Werner

Anzeige
AW: Wenn jetzt plötzlich deine Daten...
16.03.2021 11:47:43
Jerry
Sorry, Werner, der Fehler lag nicht an Deinem Code, sondern an der Quelldatei!!!
Vielen Dank, ich hoffe ich komm weiter, sonst melde ich mich nochmal,
LG
Jerry

Gerne u. Danke für die Rückmeldung. o.w.T.
16.03.2021 12:15:45
Werner

75 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
For each c in Bereich
Gregor

Hallo
Ich habe folgende Abfrage:
For Each c In Bereich
Wert = Cells(c.Row, 7).Value
If Wert "kein" Then
usw.
Ich möchte also bei c (Zeile) Spalte 7 den Wert abfragen und je nach Wert weiterfahren. Bereich ist in Spalte 5 definiert.
Wie komme ich zu dieser Zeilen-Nu...
24.10.2008 16:32:40
Thread-ID: 1019066
8 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Anzeige
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
For Each OptionButton in Userform (oderFrame) mgl?
t4z

Hi Leute,
ist sowas wie im Betreff möglich?
Vielen Dank, der t4z
26.08.2009 12:14:58
Thread-ID: 1098716
8 Beiträge
For each zelle activecell.adress
Hartmut_M

Hallo, stehe im Moment neben mir.
Habe folgenden Code:
For Each zelle in [H12:X33]
If zelle.adress = [H12] then msgbox "OK"
Next
Also wenn der Name der Zelle H12 ist, soll eine Msgbox kommen. Funktioniert aber nicht.
Wo liegt mein Fehler?
Freu mich über jeden Tipp.
18.09.2009 18:09:00
Thread-ID: 1103973
5 Beiträge
In For each rng weiterspringen
Gregor

Hallo zusammen
Ich suche nach einer Zellfarbe. Die Zeile dieser Zelle wird dann bis zu 15 Zeilen erweitert und kopiert (eruiert erste und letzte zu kopierende Zeile). Anschliessend muss die Suche dieser Zellfarbe nach der kopierten Zeile weiterfahren, ansonsten werden die gleichen Zeilen me...
18.05.2010 11:00:44
Thread-ID: 1157557
4 Beiträge
Conditional Formatting mit Data Range
Clemens

Hallo zusammen,
ich möchte eine visuelle Validierung einer Spalte durchführen. Dazu möchte ich die Werte einer Spalte mit einem Data Range auf einem anderen Excel Sheet vergleichen. Falls der Wert nicht Teil des Data Ranges ist, soll die Zelle rot eingefärbt werden.
Mit Conditional Form...
15.07.2010 19:10:47
Thread-ID: 1167359
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
7
2
2
2
7
4
3
2
2
3
4
4
5
12
7
2
2
6
5
3
8
2
5