Hallo Forummitglieder,
in der Beispieldatei sind Positionsnummer aufgelistet.
Wie kann ich bei jeder Zahl von eins bis neun diese mit einer beginnenden null erweitern.
Danke.
Jürgen
Hallo,
benutzerdefiniertes Format 00.
Hallo,
Korrektur: da du ja sowieso mit Texten Arbeitest, gibst du sie einfach mit ein. Oder was stellst du dir da vor?
Hallo Klaus-Dieter,
die Zahlen in der Spalte A werden aus
einem externen Programm importiert.
Spalte B soll die Positionsnummer sein
wie ich sie zum Weiterarbeiten benötige.
mein Vorgehen,
Die Einträge in Spalte A mit "Text in Spalten" trennen,
dann mit "=TEXTKETTE(A1;" ";TEXT(B1;"00");"-";TEXT(C1;"00"))" die
Werte wieder verbinden.
Ergebnis passt soweit, bis auf den Wert z.B. POS 6a-1 hier
wird POS 6a-01 angezeigt und nicht POS 06a-01
Hallo,
Text in Spalten, dann mit der Formel in D1 weiter. Kopiere die Spalte D und füge sie als Werte in deine Originalspalte ein; alle Hilfsspalten löschen.
Arbeitsblatt mit dem Namen 'Tabelle1' |
| A | B | C | D |
1 | POS | 1c | 1 | POS 01c-01 |
2 | POS | 1 | 2 | POS 01-02 |
3 | POS | a | 3 | POS a-03 |
4 | POS | 1 | 4 | POS 01-04 |
5 | POS | 1 | 5 | POS 01-05 |
6 | POS | 1 | 6 | POS 01-06 |
7 | POS | 1 | 7 | POS 01-07 |
Zelle | Formel |
D1 | =WENN(LÄNGE(B1)=2;A1&" "&TEXT(LINKS(B1;1);"00")&RECHTS(B1)&"-"&TEXT(C1;"00");TEXTKETTE(A1;" ";TEXT(B1;"00");"-";TEXT(C1;"00"))) |
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016 |
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg |
Hallo Günter,
danke für deine Hilfe.
in VBA:
Code:
Sub M_snb()
UsedRange.Columns(1).Copy Columns(6)
Columns(6).Replace " ", " 0"
Columns(6).Replace "-", "-0"
For j = 10 To 99
Columns(6).Replace "0" & j, j
Next
End Sub
Hallo snb,
danke für den code.
(13.07.2020, 10:18)JuergenSch schrieb: [ -> ]Hallo snb,
danke für den code.
Danke auch von mir