Wenn sie Daten etwa aus Excel-Tabellen oder anderen Quellen importieren, liegen diese nicht immer in der gewünschten Form vor. Dann sind Felder wie Vorname und Nachname in einem Feld zusammengefasst, oder Sie möchten vielleicht Straße und Hausnummer trennen und auf zwei Felder aufteilen. Wie das mit möglichst wenig manuellem Aufwand gelingt, zeigen wir in diesem Artikel am Beispiel von Straße und Hausnummer.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1905_FeldinhalteAufteilen.accdb<\/b>.<\/p>\nWo und wie aufteilen<\/h2>\n
Bevor wir uns überhaupt an eine Tabelle heranwagen, die Daten zum Aufteilen enthält, machen wir uns mit dem Handwerkzeug vertraut, das wir dazu benötigen – und das heißt in diesem Fall Zeichenkettenfunktionen. Schauen wir uns zunächst ein einfaches Beispiel an – eine Straße mit einer Hausnummer, wobei beide Informationen durch ein Leerzeichen getrennt sind:<\/p>\n
Gerichtsstr. 27<\/pre>\nDas ist ein einfacher Fall: Wir brauchen nur das Leerzeichen in der Zeichenkette zu suchen und den Teil davor als Straße und den dahinter als Hausnummer zu speichern.<\/p>\n
Das erledigen wir mit folgendem Codeschnippsel (siehe Prozedur StrasseUndHausnummer_1<\/b>). Wir deklarieren eine Variable für den Ausgangsausdruck sowie für die resultierenden Elemente:<\/p>\n
Dim <\/span>strStrasseUndHausnummer As String<\/span>\r\nDim <\/span>strStrasse As String<\/span>\r\nDim <\/span>strHausnummer As String<\/span><\/pre>\nDann legen wir den Startausdruck fest:<\/p>\n
strStrasseUndHausnummer = \"Gerichtsstr. 27\"<\/pre>\nDie Strasse ermitteln wir, indem wir das erste Auftreten eines Leerzeichens suchen und den Teil bis zu diese Leerzeichen extrahieren:<\/p>\n
strStrasse = Left<\/span>(strStrasseUndHausnummer, InStr<\/span>(1, strStrasseUndHausnummer, \" \") - 1)<\/pre>\nBei der Hausnummer sieht es ähnlich aus, nur dass wir mit der Mid<\/b>-Funktion hier den Teil nach dem Leerzeichen ermitteln:<\/p>\n
strHausnummer = Mid<\/span>(strStrasseUndHausnummer, InStr<\/span>(1, strStrasseUndHausnummer, \" \") + 1)<\/pre>\nDanach geben wir beides aus:<\/p>\n
Debug.Print<\/span> \"*\" & strStrasse & \"*\"\r\nDebug.Print<\/span> \"*\" & strHausnummer & \"*\"<\/pre>\nDie Sternchen geben wir hier aus, um sicherzustellen, dass das Leerzeichen nicht in einer der beiden Zeichenketten enthalten ist. Wir erhalten:<\/p>\n
*Gerichtsstr.*\r\n*27*<\/pre>\nDas war der erste, naive Ansatz. Dieser funktioniert schon nicht mehr, wenn wir diese Straße untersuchen:<\/p>\n
Borkhofer Str. 17<\/pre>\nHier erhalten wir dann:<\/p>\n
*Borkhofer*\r\n*Str. 17*<\/pre>\nHier haben wir schon ein Leerzeichen im Straßennamen. Wir müssen also nicht das erste, sondern das letzte Leerzeichen ermitteln. Dem werden wir in der nächsten Version gerecht (siehe Prozedur StrasseUndHausnummer_2<\/b>). Hier speichern wir die Position des letzten Leerzeichens auch direkt in einer Variablen:<\/p>\n
Dim <\/span>intLetztesLeerzeichen As Integer<\/span>\r\nstrStrasseUndHausnummer = \"Borkhofer Str. 17\"\r\nintLetztesLeerzeichen = InStrRev<\/span>( strStrasseUndHausnummer, \" \")<\/pre>\nDamit ermitteln wir dann wie zuvor die beiden Teile des Strings:<\/p>\n
strStrasse = Left<\/span>(strStrasseUndHausnummer, intLetztesLeerzeichen - 1)\r\nstrHausnummer = Mid<\/span>(strStrasseUndHausnummer, _\r\n intLetztesLeerzeichen + 1)<\/pre>\nDas Ergebnis sieht nun wie gewünscht aus:<\/p>\n
*Borkhofer Str.*\r\n*17*<\/pre>\nTestroutine schreiben<\/h2>\n
Aber klappt das auch noch für unser zuerst verwendetes Beispiel Das können wir ja leicht und zuverlässig testen, indem wir aus unserer bisherigen Prozedur eine Funktion machen, diese mit verschiedenen Parameterwerten aufrufen und die Ergebnisse mit den erwarteten Ergebnissen abgleichen.<\/p>\n
Wie das geht, haben wir im Detail im Artikel VBA-Funktionen testen <\/b>beschrieben. Dort haben wir die Funktion StrasseUndHausnummer <\/b>auch etwas umgestaltet, sodass diese nun drei Parameter enthält: den Eingangsparameter strStrasseUndHausnummer <\/b>und die Ausgangsparameter strStrasse <\/b>und strHausnummer<\/b>. Wie unterscheiden sich Eingangs- und Ausgangsparameter Auf den ersten Blick gibt es keinen sichtbaren Unterschied, was aber daran liegt, dass das Schlüsselwort ByRef, welches für die Verwendung von Ausgangsparametern zwingend erforderlich ist, standardmäßig verwendet wird. Die Funktion sieht nun im aktuellen Zustand wie in Listing 1 aus.<\/p>\n
<font color=blue>Public Function <\/font>StrasseUndHausnummer(strStrasseUndHausnummer<font color=blue> As String<\/font>, strStrasse<font color=blue> As String<\/font>, strHausnummer<font color=blue> As String<\/font>)<font color=blue> As Boolean<\/font>\r\n <font color=blue>Dim <\/font>intLetztesLeerzeichen<font color=blue> As Integer<\/font>\r\n intLetztesLeerzeichen = <font color=blue>InStrRev<\/font>(strStrasseUndHausnummer, \" \")\r\n strStrasse = <font color=blue>Left<\/font>(strStrasseUndHausnummer, intLetztesLeerzeichen - 1)\r\n strHausnummer = <font color=blue>Mid<\/font>(strStrasseUndHausnummer, intLetztesLeerzeichen + 1)\r\n StrasseUndHausnummer = <font color=blue>True<\/font>\r\nEnd Function<\/span><\/pre>\nListing 1: Funktion zum Ermitteln von Strasse und Hausnummer aus einer Zeichenkette<\/p>\n
Hausnummer mit Leerzeichen<\/h2>\n
Wir sind nun soweit, dass wir Leerzeichen im Straßennamen nicht mit dem Leerzeichen zwischen Straße und Hausnummer verwechseln. Der nächste Schritt ist, dass wir Hausnummern erkennen, die selbst ein Leerzeichen enthalten. Das sollte normalerweise nicht der Fall sein, aber es kann sein, dass der Benutzer etwa folgende Zeichenkette eingibt:<\/p>\n
Gerichtsst. 2 a<\/pre>\nMit der aktuellen Version unserer Funktion StrasseUndHausnummer <\/b>erhalten wir für die Strasse nun den Wert Gerichtsstr. 2 <\/b>und als Hausnummer a<\/b>. Wie können wir das noch korrekt behandeln Wir könnten prüfen, ob die Zeichen vor dem letzten Leerzeichen numerisch sind und diese dann noch in die Hausnummer übernehmen. Wie würden wir das machen Dieser Schritt würde nach den bisherigen Schritten stattfinden und wir würden den Inhalt von strStrasse <\/b>separat untersuchen.<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t