Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1256to1260
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
Inhaltsverzeichnis

Zellen umformatieren

Zellen umformatieren
GT
Hallo liebe Helfer,
bin neu hier und habe ein Frage.
Wenn ich eine Zelle habe mit Zahlen und Text und möchte diese umwandeln das nur noch die Zahl vorhanden ist...wie mache ich das?
BSP: BU 50 Halle.... hier möchte ich nur noch die 50 stehen haben....
Ich weiß das es mit ersetzen geht...aber ich habe ganz viele Zeilen mit immer anderen Zahlen und Text.... kann ich die alle auf einmal umwandeln das nur noch die Zahl stehen bleibt?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Nur wenn immer gleiche position...
25.03.2012 22:10:12
Matthias
Hallo Gt,
Tabelle1
 AB
1BezeichnungHilfsspalte
2BSP: BU 50 Halle50
3BSP: BU 51 Halle51
4BSP: BU 52 Halle52
5BSP: BU 53 Halle53
6BSP: BU 54 Halle54

verwendete Formeln
Zelle Formel Bereich
B2 =TEIL(A2;9;2) 
B3 =TEIL(A3;9;2) 
B4 =TEIL(A4;9;2) 
B5 =TEIL(A5;9;2) 
B6 =TEIL(A6;9;2) 

Tabellendarstellung in Foren Version 5.43


reicht dir das so?
Gruß Matthias
Anzeige
AW: Nur wenn immer gleiche position...
25.03.2012 22:20:02
Gerd
Hallo,
für eine Zahl pro Zelle.
Sub teste()
Dim Ganz_viele As Range
Dim objCell As Range
Dim strTemp As String
Dim i As Integer
Set Ganz_viele = ActiveSheet.UsedRange
For Each objCell In Ganz_viele
If Not IsNumeric(objCell.Text) Then
strTemp = ""
For i = Len(objCell) To 1 Step -1
If Mid$(objCell, i, 1) Like "#" Then strTemp = Mid$(objCell, i, 1) & strTemp
Next
objCell.Value = strTemp
End If
Next
End Sub

Gruß Gerd
AW: Nur wenn immer gleiche position...
25.03.2012 22:22:43
GT
Hallo Matthias,
super !!!!!! Danke !!!!
Was mache ich aber wenn ich folgende Daten habe:
BU 50 Halle
BU 565 Halle
BU 1040 Halle
also, mal 2 stellige Zahlen, mal 3 stellige und mal 4 stellige?
Hast du dazu auch ne Idee?
Anzeige
und wenn du es dann richtig machst,...
25.03.2012 22:36:26
Matthias
und du Sepp seinen Link in die Tat umsetzt,
sieht das dann nachher so aus :
Tabelle1
 AB
1BSP: BU 503 Halle503
2BSP: BU 512345 Halle512345
3BSP: BU 52 Halle52
4BSP: BU 22253 Halle22253
5BSP: BU 524 Halle524

verwendete Formeln
Zelle Formel Bereich
B1 {=TEIL(LINKS(A1;MAX(ISTZAHL(TEIL(A1;SPALTE(1:1);1)*1)*SPALTE(1:1)));VERGLEICH(1;ISTZAHL(TEIL(A1&0;SPALTE(1:1);1)*1)*1;0);LÄNGE(A1))} $B$1
B2 {=TEIL(LINKS(A2;MAX(ISTZAHL(TEIL(A2;SPALTE(2:2);1)*1)*SPALTE(2:2)));VERGLEICH(1;ISTZAHL(TEIL(A2&0;SPALTE(2:2);1)*1)*1;0);LÄNGE(A2))} $B$2
B3 {=TEIL(LINKS(A3;MAX(ISTZAHL(TEIL(A3;SPALTE(3:3);1)*1)*SPALTE(3:3)));VERGLEICH(1;ISTZAHL(TEIL(A3&0;SPALTE(3:3);1)*1)*1;0);LÄNGE(A3))} $B$3
B4 {=TEIL(LINKS(A4;MAX(ISTZAHL(TEIL(A4;SPALTE(4:4);1)*1)*SPALTE(4:4)));VERGLEICH(1;ISTZAHL(TEIL(A4&0;SPALTE(4:4);1)*1)*1;0);LÄNGE(A4))} $B$4
B5 {=TEIL(LINKS(A5;MAX(ISTZAHL(TEIL(A5;SPALTE(5:5);1)*1)*SPALTE(5:5)));VERGLEICH(1;ISTZAHL(TEIL(A5&0;SPALTE(5:5);1)*1)*1;0);LÄNGE(A5))} $B$5
{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!


Tabellendarstellung in Foren Version 5.43


Gruß Matthias
So gute N8t @ All
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige