Zahlen verschieben in Spalte B

Bild

Betrifft: Zahlen verschieben in Spalte B
von: Silke
Geschrieben am: 01.11.2003 21:54:26

Hallo,
ich habe eine kleine Frage, in meine Spalte A habe ich die Verzeichnisnamen einer CD mittels Makro eingelesen, da die Verzeichnisnamen aus je einen oder mehreren Namen und einer Zahl bestehen wollte ich jetzt die Zahlen in Spalte B schreiben
Beispiel A B
abcd 333 soll werden abcd 333
avc djd 22 avc djd 22

und so weiter und so fort
kann mir da jemand helfen ?

Gruss
Silke

Bild


Betrifft: AW: Zahlen verschieben in Spalte B
von: PeterW
Geschrieben am: 01.11.2003 22:05:00

Hallo Silke,

lass folgendes Makro laufen:

Sub ZahlenTrennen()
Dim lgZeile As Long
Dim intStellen As Integer
Dim strName As String
Dim strZahl As String
For lgZeile = 1 To Range("A65536").End(xlUp).Row
    For intStellen = 1 To Len(Cells(lgZeile, 1))
        If Not IsNumeric(Mid(Cells(lgZeile, 1), intStellen, 1)) Then
            strName = strName & Mid(Cells(lgZeile, 1), intStellen, 1)
        Else
            strZahl = strZahl & Mid(Cells(lgZeile, 1), intStellen, 1)
        End If
    Next
    Cells(lgZeile, 1) = strName
    Cells(lgZeile, 2) = strZahl
    strName = ""
    strZahl = ""
Next
End Sub

Gruß
Peter


Bild


Betrifft: Vielen Dank- oT
von: Silke
Geschrieben am: 01.11.2003 22:25:58




Bild


Betrifft: Noch eine Variante...
von: Ramses
Geschrieben am: 01.11.2003 22:13:52

Hallo

Kopiere den Code in Modul deiner Mappe


Option Explicit

Function GetNumber(myR As Range) As Double
Dim i As Integer
For i = 1 To Len(myR.Value)
    Debug.Print i
    Debug.Print Mid(myR.Value, i, 1)
    If IsNumeric(Mid(myR.Value, i, 1)) Then
        Debug.Print "Definitv: " & Right(myR.Value, Len(myR.Value) - (i - 1))
        GetNumber = Right(myR.Value, Len(myR.Value) - (i - 1))
        Exit Function
    End If
Next i
End Function
 
     Code eingefügt mit Syntaxhighlighter 1.16



Dann kannst du ihn in der Tabelle so verwenden.

Gruss Rainer


Tabelle1
 AB
1kdfkaljfdkf 2323
Formeln der Tabelle
B1 : =getnumber(A1)
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  

Bild


Betrifft: Vielen Dank -oT
von: Silke
Geschrieben am: 01.11.2003 22:24:24




Bild


Betrifft: AW: Zahlen verschieben in Spalte B - ohne VBA
von: FP
Geschrieben am: 01.11.2003 22:40:27

Hallo Silke,

... geht es auch (Arrayformel)

Excel Jeanie HTML
Formeln der Tabelle
B2 : {=TEIL(A2;VERGLEICH(WAHR;ISTZAHL(TEIL(A2;SPALTE(2:2);1)+0);0);9)+0}
B3 : {=TEIL(A3;VERGLEICH(WAHR;ISTZAHL(TEIL(A3;SPALTE(3:3);1)+0);0);9)+0}
  Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download   Servus aus dem Salzkammergut Franz

Bild


Betrifft: AW: Zahlen in B - ohne VBA - ohne Array
von: FP
Geschrieben am: 01.11.2003 22:54:31

Hallo Silke,

... geht es auch, siehe Beispiel :-)

Excel Jeanie HTML
Formeln der Tabelle
B2 : =RECHTS(A2;SUMMENPRODUKT(ISTZAHL(TEIL(A2;SPALTE(2:2);1)+0)+0))+0
B3 : =RECHTS(A3;SUMMENPRODUKT(ISTZAHL(TEIL(A3;SPALTE(3:3);1)+0)+0))+0
  Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  
Servus aus dem Salzkammergut Franz

Bild


Betrifft: Danke werde ich ausprobieren - oT
von: Silke
Geschrieben am: 01.11.2003 23:50:12




 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zahlen verschieben in Spalte B"