Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
16.04.2024 11:48:22
Blatt in HTML exportieren wenn Checkbox aktiv ist
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1276to1280
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
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mid-Funktion

Mid-Funktion
Manuela
Hallo,
ich schreibe in einen Dateinamen einen bestimmten Bereich aus meiner Datei und möchte immer ein 2-Stelliges Zahlenformat, aber irgendwie klappt das nicht bzw. ich weiß nicht wie ich das anstellen soll.
Damit lese ich ab der 31. Stelle für 2 Zeichen aus: 

[...] & Mid(strTxt, 31, 2)  & [...]
Mein Problem ist jetzt, dass 1-Stellige Zahlen z.B. " 1" auch in " 1" im Dateinamen umgesetzt werden. Ich möchte aber, dass bei 1-Stelligen Zahlen (0-9) die Leertaste vor der Ziffer durch eine 0 ersetzt wird.
Ich hoffe das ist verständlich erläutert..
Kann mir jemand einen Tipp geben? Wenn die Umsetzung zu kompliziert ist, lebe ich mit meinen Leertasten ;-)
LG,
Manu

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

Betreff
Benutzer
Anzeige
AW: Mid-Funktion
31.08.2012 11:56:13
UweD
Hallo
so gehts
    strTxt = "123456789012345678901234567890 2345"
MsgBox Format(Mid(strTxt, 31, 2), "00")
Gruß UweD

AW: Danke!
31.08.2012 11:59:15
Manuela
Super, funktioniert genau so wie ich es mir gewünscht habe :-)
Vielen Dank und Gruß,
Manu

AW: Mid-Funktion
31.08.2012 11:59:55
Dirk
Hallo Manu,
ab Office 97 glaub ich gibt es die Funktion "replace"
der Rest ist dann nur eine wenn Abfrage

Dim ergausmid as String
ergausmid = [...]  & Mid(.............
If ergausmid
er ersetzt dann das Leerzeichen durch eine 0
Denk nur daran, das deine Zelle (fals du das ausgeben möchtest als Text formatiert sein muss.
Gruß Dirk

Anzeige
AW: Danke!
31.08.2012 12:15:40
Manuela
Hallo Dirk,
auch dir vielen Dank! Die Replacefunktion peil ich irgendwie nicht so ganz ;-))), aber die Variante von UweD mit dem Format(Mid(strTxt, 31, 2), "00") reicht für meine Zwecke vollkommen.
LG,
Manu

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige