Live-Forum - Die aktuellen Beiträge
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige