Herbers Excel-Forum - das Archiv
Einzelne Ziffern aus Zahl auslesen
- Einzelne Ziffern aus Zahl auslesen von Jürgen K. vom 23.09.2003 08:08:28
- AW: Einzelne Ziffern aus Zahl auslesen - von BerndE am 23.09.2003 08:40:10
- AW: Einzelne Ziffern aus Zahl auslesen - von Jürgen K. am 23.09.2003 09:06:51
- Gern geschehen !!! oT - von BerndE am 23.09.2003 09:26:39
- Gern geschehen !!! oT - von BerndE am 23.09.2003 09:26:39
- AW: Einzelne Ziffern aus Zahl auslesen - von Jürgen K. am 23.09.2003 09:06:51
- AW: Einzelne Ziffern aus Zahl auslesen - von BerndE am 23.09.2003 08:40:10
 |
Betrifft: Einzelne Ziffern aus Zahl auslesen
von: Jürgen K.
Geschrieben am: 23.09.2003 08:08:28
Guten Morgen Excel Experten.
Ich habe in einer Spalte (A) untereinander mehrere zehnstellige Zahlen, die jeweils einen bestimmten Code darstellen. Ich möchte nun jeweils in die Spalte rechts neben der jeweiligen Ziffer zunächst die ersten beiden Ziffern der zehnstelligen Zahl darstellen (Spalte B) dann in Spalte C die Ziffern 4 und 5 und in Spalte D die Ziffern 7, 8 und 9. Das sieht dann z. B. so aus:
Wert in Zelle A1: 0135688260 Ausgabe in Zelle B1: 01, in Zelle C1: 56 und in Zelle D1: 826.
Über eine Formel würde ich das hinbekommen, ich muß dies aber in jedem Fall über VBA lösen.
Wie bekomme ich das hin?
Wie immer vielen Dank im voraus, Jürgen.
 |
Betrifft: AW: Einzelne Ziffern aus Zahl auslesen
von: BerndE
Geschrieben am: 23.09.2003 08:40:10
Hallo Jürgen,
versuch's mal mit folgendem Code:
For Zeile = 1 To ActiveSheet.UsedRange.Rows.Count
Code = Cells(Zeile, 1)
Cells(Zeile, 2) = Left(Code, 2)
Cells(Zeile, 3) = Mid(Code, 4, 2)
Cells(Zeile, 4) = Mid(Code, 7, 3)
Next
Ich hoffe, es funzt...
Gruß
Bernd
www.bernds.page.de.vu
|
Betrifft: AW: Einzelne Ziffern aus Zahl auslesen
von: Jürgen K.
Geschrieben am: 23.09.2003 09:06:51
Hi Bernd,
funktioniert einwandfrei!
Vielen Dank dafür!
Gruß, Jürgen
|
Betrifft: Gern geschehen !!! oT
von: BerndE
Geschrieben am: 23.09.2003 09:26:39
.
| |