String Operation

Hallo Leute,
wer kann mir bei folgendem Problem helfen... ich erhalte einen String, den ich in meine Excel Tabelle schreibe in folgender Form:
47167Duisburg
nun möchte ich den String gerne reparieren, dazu muss ein Freizeichen zwischen der PLZ und dem Ortsnamen eingefügt werden.
Da es auch sein kann, dass es sich um eine PLZ/Ort Kombination aus ÖSterreich oder der Schweiz handeln kann (PLZ sind dort 4-stellig) ist das etwas tricky...
gibt es eine methode mit der man sagen kann, dass er zwischen einer beliebigen anzahl von zahlen und buchstaben zwischen diesen ein freizeichen einfügt?
Wäre über Eure Hilfe sehr dankbar, da ich wirklich nicht mehr weiter weiß.
Schon mal herzlichen Dank in voraus!
LG
Jens

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

''Daten stehen in Spalte A Option Explicit Sub trennen() Dim c As Range, z&, i&, j&, tmp1$, tmp2$ For j = 1 To 10 'letzte Zeile anpassen Set c = Cells(j, 1) i = 0 For z = 1 To Len(c) If IsNumeric(Mid(c, 1, z)) Then i = i + 1 End If tmp1 = Left(c, i) Next tmp2 = Mid(c, i + 1, Len(c) - i) Cells(j, 1) = tmp1 & " " & tmp2 Next End Sub

Sub trennen() Dim c As Range Dim z As Integer, j As Integer For j = 1 To 10 'letzte Zeile anpassen Set c = Cells(j, 1) For z = 1 To Len(c) If Not IsNumeric(Mid(c, 1, z)) Then Cells(j, 1) = WorksheetFunction.Substitute(c.Value, Mid(c, 1, z - 1), Mid(c, 1, z - 1) & " ") Exit For End If Next z Next End Sub

Function plzSplit(inhalt As String) As String Dim z As Integer For z = 1 To Len(inhalt) If Not IsNumeric(Mid(inhalt, 1, z)) Then inhalt = WorksheetFunction.Substitute(inhalt, Mid(inhalt, z, Len(inhalt) - z - 1), " " & Mid(inhalt, z, Len(inhalt) - z - 1)) Exit For End If Next z plzSplit = inhalt End Function

Hi K.Rola,
soeben gefunden - eine Forumsbeitrag von Gerhard Schröder:
Tach Kinder!
Toll, daß ihr alle da seid bei Onkel Gerhards Märchenstunde! HA HA!
Heute erzähl ich euch von SchneeBITchen und den sieben Informatik-Zwergen! HA HA HA!
Also, es war einmal ein attraktives junges Mädchen. Ihre Mutter hat immer gesacht, dasse Rot, Weiß und Schwarz sein soll. Dadurch hat sie jetz schwarze lange Haare, 90-60-90, nen roten Tanga, schwarze Strapse und weiße Pumps gekricht! HA HA HA! Aber Spaß beiseite. Ich seh hier so viele erwachsene Jugendliche, dann sach ich da nix mehr zu. Also, ihr Name war SchneeBITchen, oder so. Sie wollte unbedingt Informatik auf Lehramt studieren und zog hinaus ins weite Land. Eines Tages kam sie an ein großes rotes Schloß, genau so rot und groß, wie mein.. äh.. meine Partei! HA HA HA! Das war das berühmte Harry-Potter-Institut der Uni Münster! HA HA! Da ging sie dann rein und hat keinen gesehen, weil alle wech waren, wahrscheinlich wieder auf Seminar, oder so. Da hattese erstmal gewartet und alles angeschaut und angefaßt. Plötzlich hörte sie lauten Gesang: " Hei HO, Hei HO! Bill Gates, der ist jetzt tot...". Nacheinander kamen alle sieben Informatik-Zwerge hinein: Zwerg Grob (der Stratege), Zwerg Numerus-Clausing (der Mathematiker und weiser Herrscher aller Zahlen), Zwerg Vossen (Sean-Connery-Double), Zwerg Kuchen (Institutsbäckermeister), Zwerg Klein (der heißt nur so, ist aber erheblich größer als 64 BIT), Zwerg Müller-Funk (Dr. Seltsam) und Zwerg DATA-Becker (Datenadministrator). Alle mit Bart und Zipfelmütze. Da sahen alle das arme kleine SchneeBITchen, das da saß und sie mit großen unschuldigen Augen anschaute. "Was zum Teufel hast du hier verloren?", schimpfte DATA-Becker, der weiseste von allen WI-Zwergen. "Ich bin das arme kleine SchneeBITchen. Ich habe vorher im fernen Ruhrhattan studiert, aber die böse Queen Elisabeth hat in ihrem SemesterSpiegel gelesen, daß ich so ein schönes Mädchen bin und wollte mich töten. Zuerst sperrte sie mich in einen Deadlock, doch nach ihrer Konkatenation wurde ich verbannt. Ich hörte von meinem Traumprinzen, daß er auch hier studiert und jetzt suche ich ihn. Ich liebe ihn doch so sehr!", sagte sie ängstlich und weinte. "Wie heißt er denn? Vielleicht können wir dir helfen.", schlug Zwerg Numerus-Clausing vor. Er war der Weise aller Zahlen. "Er heißt Prinz Al-GO-Rhythmus .", schluchzte sie. "Den kenne ich gut! Er ist ein Stratege auf der Kryptologiebasis und EDV-Rechtsexperte! Leider ist er schon seit längerer Zeit auf einer Forschungsreise. Aber ich werde tun, was ich machen kann.", sagte Clausing. "Nun gut, bleibe hier und wir sorgen für dich. Aber mach ja nichts kaputt!" sagte DATA-Becker. Darauf blieb SchneeBITchen bei den sieben Informatik-Zwergen, lernte einiges, machte nichts kaputt und suchte weiter ihren Prinzen mit yahoo- und fireball-Suchmaschinen, doch sie konnte ihn nirgendwo finden.
Es begab sich aber zu der Zeit, daß Queen Elisabeth mal wieder eine Referenzabweichung durch ihr Virenabwehrprogramm auf ihrem Spiegelrechner entdeckt hatte und sofort das Spiegel-System neu konfigurieren ließ. Bisher bekam sie auf den Input: "Spiegelrechner an der Wand, wer ist die schönste Nutzerin im Land?" immer den Output: " Die schönste Nutzerin bist Du mit dem Verstand von einer Kuh!". Nach dieser Neuinstallation kam immer wieder der Output: Bei den Zwergen mit deren Schergen, lebt ein Mädchen in deren Städtchen. Das ist bestimmt noch schöner als du, mißratene arrogante Kuh!" .
Da war die Queen natürlich total kiewich mit. Kann ich mir ja auch vorstellen, wenn ich der Doris jetz sach, dasse ne Kuh is! Aber sie is doch ein Pferd, das fährt! HA HA HA!
Aber weiter im Text. So, der Prinz ahnte nichts davon und die Queen war sauer und das arme Mädchen war traurig, so weit, so gut. Ich mach das mal ein bischen kürzer, ihr Kinder müßt früh schlafen gehen, ihr habt doch morgen wieder Vorlesung! Also, nach vielen Attentaten der Queen konnte SchneeBITchen immer wieder gerettet werden, bis die Queen ne Idee hatte. Sie schickte ne e-mail mit nem Virus. Der war so verseucht, daß auch kein Informatiker das Problem lösen konnte! Da fiel SchneeBITchen in eine Endlosschleife und schlief und schlief wie ein Modem! HA HA HA! Alle Zwerge sahen das und heulten um die Wette. "So ein armes Ding!", rief Numerus-Clausing. Alle merkten nicht, daß in diesem Moment Prinz Al-GO-Rhythmus den Raum betrat. " Was zum Geier geht denn hier ab?", fragte der Prinz. Da sah er das kleine SchneeBITchen und wußte sofort, was zu tun ist. Er traversierte ihre inordere Baumstruktur einfach in eine präfixe Notation und switchte sämtliche Semaphoren und Mutexen. Danach ließ er einen Algorithmus für endliche Automaten, den ihm Zwerg Numerus-Clausing beigebracht hatte, rekursiv und iterativ in SchneeBITchens Herzen ablaufen, und sie erwachte wieder zum Leben. Als sie ihren Prinzen sah, sagte sie: "Mein Retter, laß uns konkatenieren!" . " Ja, meine Liebste, ich will dich konkatenieren!", sagte der Prinz. Als der Prinz das gesagt hatte, waren alle voller Freude. Bei der feierlichen Konkatenation stellten SchneeBITchen und Prinz Al-GO-Rhythmus schon ihren VoFi und Konsumplan für eine Unterklassenkapselung auf und lebten bis zu ihrer endgültigen Lebensalgorithmusterminierung in voller Effizienz und Effektivität ihres Arbeitsspeicheras. Und wenn sie nicht heruntergefahren sind, so laufen sie noch heute.
So, liebe Kinder, jetz is aber Schluß für heute.
Bis zum nächsten Mal.
Euer Onkel Gerhard
Grüße Boris

Beliebteste Forumthreads (12 Monate)

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread