Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
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
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wertformatierung

Wertformatierung
Andre
Hallo,
ich suche nach einer Lösung für folgendes Problem. Aus einer Anwendung bekomme ich Werte
geliefert (Antw) in Form von Strings. Diese Werte werden in Zellen eingetragen: 

Worksheets("Tabelle1").Range("B8").Value = Antw
Die Variable "Antw" enthält ua. auch das Datum und zwar die ersten 10 Stellen von links. Bisher löse ich das Problem so: 


Range("B8") = Left(Range("B8"), 10)
Um den Code etwas zu optimieren, habe ich folgendes versucht: 


Worksheets("Tabelle1").Range("B8").Value = CDate(Antw)
oder 


Worksheets("Tabelle1").Range("B8").Value = Antw(Left(Range("B8"), 10))
Beides funktioniert nicht.
Gibt es dafür eine Lösung?
Für Info's wäre ich sehr dankbar!
Gruß Andre

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wertformatierung
13.10.2009 10:00:55
Björn
Hallo Andre,
Worksheets("Tabelle 1").Range("B8").Value = Left(Antw, 10)
Gruß
Björn B.
AW: Wertformatierung
13.10.2009 10:02:08
Josef
Hallo Andre,

Worksheets("Tabelle1").Range("B8") = CDate(Left(Antw, 10))

Gruß Sepp

AW: Wertformatierung
13.10.2009 11:53:13
Andre
Hallo,
vielen Dank euch beiden!!! Habe wieder etwas dazu gelernt.
Ich habe das jetzt nur "trocken" in einer Tabelle getestet. Der String hat folgenden Aufbau:
2009-10-12T... mir fällt gerade auf, ich weiß nicht genau, wie der String zB. für August aussieht. Steht dort dann 2009-8-12T... funktioniert das natürlich nicht. Das T steht aber immer nach dem Datum, könnte man das evtl. in die Formatierung einbauen?
Gruß Andre
Anzeige
AW: Wertformatierung
13.10.2009 12:06:10
Josef
Hallo Andre,
If InStr(1, antw, "T") > 0 Then
  Worksheets("Tabelle1").Range("B8") = CDate(Left(antw, InStr(1, antw, "T") - 1))
End If

Gruß Sepp

Anzeige
AW: Wertformatierung
13.10.2009 12:15:47
Andre
Hallo Josef,
vielen Dank für den Code, habe ihn getestet, funktioniert super!
Gruß Andre

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige