Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Text und Zahlen teilen

Text und Zahlen teilen
05.03.2009 14:39:23
Bernie
Hallo Leute,
ich suche ganz dringen nach einem Makro, mit dem ich aus einer Tabelle mit Straßennamen - diese sind oft chaotisch geschrieben- z.B. Bahnhofstraße45A
a) die Straße in eine Spalte
b) die Hausnummer (mit A usw.) in eine Spalte
ausgeben kann.
Hat jemand ein zündende Idee?
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Quatsch Makro
05.03.2009 15:20:05
Höttl
Hallo!
Habe dies erst vorige Woche beim googlen gefunden.
https://www.herber.de/bbs/user/60015.xls
Gruß
Wilfried
Anzeige
AW: Quatsch Makro
05.03.2009 15:30:56
Bernie
Hallo Wilfried und WF,
danke für die schnelle INFO. Ich suche das Ganze aber als VBA-Makro.
Vielleicht habt ihr da auch eine Idee?
Bernie
VBA benutze ich nicht ! ___ o.T.
05.03.2009 15:36:27
WF
.
AW: Text und Zahlen teilen
05.03.2009 17:04:34
UweD
Hallo
ich hab mal WF 's Formeln in ein Makro gepackt.
Die Einschränkungen siehe auf der Seite nach.


Sub aufteilen()
    Dim SPa, Z, Trenn%, TText$, Anz%, TTemp$, Str$, Nr$
    'der markierte Bereich des aktuellen Blattes wird so bearbeitet
    SPa = Selection.Columns.Count
    If SPa > 1 Then MsgBox "Nur eine Spalte markieren"Exit Sub
    For Each Z In Selection
        TText = Trim(Z.Value) 'ungewollte Leerzeichen vorne/ hinten weg
        Anz = Len(TText) - Len(Replace(TText, " """)) 'Anzahl Leerzeichen
        If Anz > 0 Then
            TTemp = Application.Substitute(TText, " ""#", Anz)
            Trenn = InStr(1, TTemp, "#")
            Str = Left(TText, Trenn - 1)
            Nr = Right(TTemp, Len(TTemp) - Len(Str) - 1)
        Else
            Str = TText
            Nr = ""
        End If
        Z.Offset(0, 1) = Str
        Z.Offset(0, 2).NumberFormat = "@"
        Z.Offset(0, 2) = Nr
   Next
End Sub


Gruß UweD
Anzeige
AW: Text und Zahlen teilen
05.03.2009 18:40:07
bernie
Hallo Uwe, hallo WF,
vielen Dank für die super Hilfe,
klappt wunderbar.
Bernie
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige