Registriert seit: 21.03.2019
Version(en): 2013
13.07.2020, 08:58
(Dieser Beitrag wurde zuletzt bearbeitet: 13.07.2020, 09:07 von WillWissen.
Bearbeitungsgrund: Unnötige Leerzeilen entfernt
)
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
Registriert seit: 11.04.2014
Version(en): Office 365
13.07.2020, 09:14
(Dieser Beitrag wurde zuletzt bearbeitet: 13.07.2020, 09:17 von Klaus-Dieter.)
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?
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 21.03.2019
Version(en): 2013
13.07.2020, 09:27
(Dieser Beitrag wurde zuletzt bearbeitet: 13.07.2020, 09:41 von JuergenSch.)
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
Registriert seit: 16.04.2014
Version(en): xl2016/365
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
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 |
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 21.03.2019
Version(en): 2013
Hallo Günter,
danke für deine Hilfe.
Registriert seit: 29.09.2015
Version(en): 2030,5
13.07.2020, 10:58
(Dieser Beitrag wurde zuletzt bearbeitet: 13.07.2020, 10:58 von snb.)
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
Registriert seit: 21.03.2019
Version(en): 2013
Hallo snb,
danke für den code.
Registriert seit: 22.08.2019
Version(en): 2010
(13.07.2020, 11:18)JuergenSch schrieb: Hallo snb,
danke für den code.
Danke auch von mir
