Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

führende nullen bei datum

führende nullen bei datum
Sonja
Hallo Hilfesuchende und Helfende!
Ich bin mit meinem Latein mal wieder am Ende und frage nach zermürbender langer Suche hier in die Runde:
Aus einer Zelle (formatiert mit Datumsfformat "tt.mm.yy") wird per VBA das Datum ausgelesen. Die Punkte werden ersetzt mit "", also mit "nix". (Gewünschtes) Resultat: Zeichenfolge im Format "ttmmyy", 6stellig mit Nullen dort wo sie hingehören.
Diese Zeichenfolge wird -kombiniert mit einer laufenden Nummer und einem Buchstabenteil- wieder in das Auslese-Sheet in eine andere bestimmte Zelle plaziert. (Danke Roland Hochhäuser!!!)
Das Problem: Hab jetzt an 3 versch. Computern damit gearbeitet (Excel2000, Excel2003 und Excel2003) , und gerade beim 3. tritt folgendes auf: Excel schneidet mir die FÜHRENDEN NULLEN ab. Nun habe ich statt meiner 6-stelligen Zeichenfolge aus dem Datum entweder 4 oder 5 Stellen, und bei den 5 Stellen natürlich keine Präferenz, ob denn die Tages- oder Monats-Angabe einstellig ist.
(02.03.09 wird zu 2309, 12.03.09 zu 12309)
In Text umformatieren wäre das einfachste, jedoch ist die Datumszelle mit einer Gültigkeitsprüfung belegt, die verhindern soll, dass ein zukünftiges Datum oder eines, das vor heute minus 4 Tagen eingegeben werden kann.
Falls jemand eine Lösung parat hat, wäre ich sehr froh drum!
Und auch noch nen schönen Abend an alle!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: führende nullen bei datum
24.09.2009 21:10:33
Gerd
Hallo Sonja!
Diese Zeichenfolge wird -kombiniert mit einer laufenden Nummer und einem Buchstabenteil ...
Hat diese Kombination insgesamt eine bestimmte fixe Zeichenanzahl?
Gruß Gerd
AW: führende nullen bei datum
24.09.2009 22:37:35
Sonja
Hallo Gerd!
Die Zeichenfolge würde so aussehen: "an1001-ttmmjj".
Kontext: Sie stellt eine Angebotsnummer dar, das vorangestellte "an" ist gleichbleibend, 1001 stellt die fortlaufende Nummer dar, dazu dann noch das Datum, durch einenBindestrich getrennt. Insgesamt also 13Zeichen.
Schöne Grüsse,
Sonja
AW: führende nullen bei datum
25.09.2009 13:48:12
Gerd
Hallo Sonja,
guck' mal, ob Du so hinkommst.
Sub test()
Cells(1, 1).NumberFormat = "dd.mm.jj"
Cells(1, 1).Value = "01.01.2009"
Cells(2, 1).NumberFormat = "000000"
Cells(2, 1).Value = Format(Cells(1, 1).Text, "ddmmyy")
Dim testnummer As String
testnummer = "1001"
Cells(3, 1).Value = "an" & testnummer & "-" & Cells(2, 1).Text
End Sub
Gruß Gerd
Anzeige
AW: führende nullen bei datum
25.09.2009 15:34:53
Sonja
Hallo Gerd!
Genau sowas hab ich gebraucht!
Ich hab die relevanten Zeilen in mein Makro integriert, funktioniert super!
Danke für deine Hilfe!
Schönes Wochenende,
Sonja.

172 Forumthreads zu ähnlichen Themen


Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
Anzeige

Hallo,
ich bin auf der Suche nach einer Formel (nicht VBA), welche die Differenz zwischen Datum in Spalte F und Spalte G (z.B. 12.01.09 - 28.02.09) ermittelt und mir als Monat mit einer Stelle nach dem Komma z.B. 1,5 auswirft. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
...

Hallo,
für ein Diagramm will ich die Anzahl von Datensätzen die nach dem Datumsfeld in einen Monat fallen ermitteln.
Wie kann ich den Monat und das Jahr aus einem Datumsfeld extrahieren.
Ich meine nicht die Anzeige (Format Zellen), sondern den tatsächlichen Feldinhalt?
Anzeige

Hallo,
...an sich benötige ich für eine GIS-Software stehts PLZ's ohne führende Null - eben als reine Zahlen.
Jetzt aber - brauche ich mal für was anderes die führende Null!
Wie kann ich eine Textbox in der ein Wert (4stellig) steht mit einer führenden Null auffüllen ?
Habe es s...

Hallo,
es steht in:
A1=800
A2=1200
als ein Zeitwert von einer Stempelkarte.
Der Cursor steht in A1.
VBA soll nun A2 minus A1 rechnen und der errechnete Wert soll im Format 08:00 in E1 ausgegeben werden.
WERT = ActiveCell.Offset(0, 1) - ActiveCell
ActiveCell.O...

Hallo,
es steht in:
A1=800
A2=1200
als ein Zeitwert von einer Stempelkarte.
Der Cursor steht in A1.
VBA soll nun A2 minus A1 rechnen und der errechnete Wert soll im Format 08:00 in E1 ausgegeben werden.
WERT = ActiveCell.Offset(0, 1) - ActiveCell
ActiveCell.O...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige