Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1056to1060
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
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?

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

Betreff
Datum
Anwender
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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige