Supportnet / Forum / Tabellenkalkulation
Zelleninhalte trennen
Frage
Hallo zusammen,
ich habe in einer Zelle sowohl Strasse, Hausnummer, PLZ und Ort stehen, möchte nun aber 2 Zellen haben, zum einen mit der STrasse und Hausnummer zum anderen nach PLZ und Ort. Ist das möglich?
Antwort 1 von Saarbauer
Hallo,
grundsätzlich möglich, jedoch sind die Angaben etwas mager. Du solltest mal ein Beispiel zur Verfügung stellen.
Es hängt etwas vom Aufbau des Feldes und der Trennung der einzelnen Felder ab.
Gruß
Helmut
grundsätzlich möglich, jedoch sind die Angaben etwas mager. Du solltest mal ein Beispiel zur Verfügung stellen.
Es hängt etwas vom Aufbau des Feldes und der Trennung der einzelnen Felder ab.
Gruß
Helmut
Antwort 2 von kuestenjung06
Hallo hierher..
als Idee zu diesem Problem gibt es zB die Split-Funktion in VBA. mit
Adresse() Split(strText, ",")
könntest du ein dyn Array mit dem abgespalteten Adressbestandteilen füllen. Dabei trennt die Funktion nach jeden Komma. Hier ensteht also ein Array mit 4 Feldern. Weiter in der Anweisung kannst du ja deklarieren wie die Datenfelder wieder zusammen gesetzt werden sollen,z.B. Feld 1 und Feld2 um dann Strasse und Hausnummer in einer Zelle zu haben wie du wünscht.
mit
For i = 0 to Ubound(Adresse)
´hier die Anweisung zum belegen der Speicherfelder
´ hier jkönntest du z.B. die Felder die du wünscht zusammenfügen und in einer Zelle ausgeben.
Ist nur ne Idee und bei dem kopletten Sub kann ich dir leider auch nicht helfen. Bin da auch kein Experte. Aber vielleicht kann ja Saarbauer als Experte den Gedanken aufgreifen.
als Idee zu diesem Problem gibt es zB die Split-Funktion in VBA. mit
Adresse() Split(strText, ",")
könntest du ein dyn Array mit dem abgespalteten Adressbestandteilen füllen. Dabei trennt die Funktion nach jeden Komma. Hier ensteht also ein Array mit 4 Feldern. Weiter in der Anweisung kannst du ja deklarieren wie die Datenfelder wieder zusammen gesetzt werden sollen,z.B. Feld 1 und Feld2 um dann Strasse und Hausnummer in einer Zelle zu haben wie du wünscht.
mit
For i = 0 to Ubound(Adresse)
´hier die Anweisung zum belegen der Speicherfelder
´ hier jkönntest du z.B. die Felder die du wünscht zusammenfügen und in einer Zelle ausgeben.
Ist nur ne Idee und bei dem kopletten Sub kann ich dir leider auch nicht helfen. Bin da auch kein Experte. Aber vielleicht kann ja Saarbauer als Experte den Gedanken aufgreifen.
Antwort 3 von Saarbauer
Hallo,
war auch meine Idee, aber ohne weitere Angaben kommen auch wie du schreibst "Experten" (wir kochen auch nur mit Wasser, nur schon etwas länger) nicht weiter.
Gruß
Helmut
Zitat:
Es hängt etwas vom Aufbau des Feldes und der Trennung der einzelnen Felder ab.
Es hängt etwas vom Aufbau des Feldes und der Trennung der einzelnen Felder ab.
war auch meine Idee, aber ohne weitere Angaben kommen auch wie du schreibst "Experten" (wir kochen auch nur mit Wasser, nur schon etwas länger) nicht weiter.
Gruß
Helmut
Antwort 4 von kuestenjung06
Hallo Saarbauer
na wenigstens war meine Idee nicht schlecht. : )
Beruhigt mich als Beginner. Ich versuch mich ja gerade an einem entsprechenden Code. Bin aber nicht grad der beste VBA- programmierer. Ich kann den ja dann mal einstellen und du kannst ihn dir ja anschaun. Wenn nicht mehr Infos kommen von hierher kommen denk ich mir den Rest.
Gruß von der Ostseeküste
na wenigstens war meine Idee nicht schlecht. : )
Beruhigt mich als Beginner. Ich versuch mich ja gerade an einem entsprechenden Code. Bin aber nicht grad der beste VBA- programmierer. Ich kann den ja dann mal einstellen und du kannst ihn dir ja anschaun. Wenn nicht mehr Infos kommen von hierher kommen denk ich mir den Rest.
Gruß von der Ostseeküste
Antwort 5 von Saarbauer
Hallo,
es muss nicht unbedingt mit VBA gemacht werden es geht auch über Formeln mit Finden() oder Suchen() in Verbindung mit Rechts(), Links() und Teil().
Da aber @ hierher vorsichtshalber keine ergänzenden Angaben liefert werde ich mir nicht die Mühe machen und etwas aufbauen, was nachher nicht passt (der Mensch ist von Natur aus faul).
Gruß
Helmut
es muss nicht unbedingt mit VBA gemacht werden es geht auch über Formeln mit Finden() oder Suchen() in Verbindung mit Rechts(), Links() und Teil().
Da aber @ hierher vorsichtshalber keine ergänzenden Angaben liefert werde ich mir nicht die Mühe machen und etwas aufbauen, was nachher nicht passt (der Mensch ist von Natur aus faul).
Gruß
Helmut
Antwort 6 von kuestenjung06
Hallöchen saarbauer..
So der String funktioniert : ). Kannst dir ja mal anschaun und vielleicht hast du ne bessere Idee. Bin grad stolz auf mich. Also bitte nicht alles verändern
Public Sub SplittFunktion()
Dim adresse() As String, testtext As String
Dim i As Byte
Dim feld1 As Variant, feld2 As Variant
testtext = Range("C34")
´hier geschieht die Zuweisung des Zelleninhalts
adresse() = Split(testtext, ", ")
feld1 = adresse(0) + ", " + adresse(1)
´hier die _Zusammenfassung zu den Strings wie gewünscht
feld2 = adresse(2) + ", " + adresse(3)
Range("G34") = feld1
Range("K34") = feld2
End Sub
Gruß von der Küste
So der String funktioniert : ). Kannst dir ja mal anschaun und vielleicht hast du ne bessere Idee. Bin grad stolz auf mich. Also bitte nicht alles verändern
Public Sub SplittFunktion()
Dim adresse() As String, testtext As String
Dim i As Byte
Dim feld1 As Variant, feld2 As Variant
testtext = Range("C34")
´hier geschieht die Zuweisung des Zelleninhalts
adresse() = Split(testtext, ", ")
feld1 = adresse(0) + ", " + adresse(1)
´hier die _Zusammenfassung zu den Strings wie gewünscht
feld2 = adresse(2) + ", " + adresse(3)
Range("G34") = feld1
Range("K34") = feld2
End Sub
Gruß von der Küste
Antwort 7 von Saarbauer
Hallo,
sehr schön und grundsätzlich ok. Ich werde aber hier nichts machen, s. AW 5
Alles was hier gemacht wird ohne Rückmeldung von @ hierher ist vergebliche Liebesmühe.
Es gibt schon genug Anfragen, bei denen zwar die Fragestellung klar ist und man keine Rückmeldung auf die Lösung erhält, warum soll ich mir dann eine Lösung überlegen, wenn die Fragestellung nicht klar ist und man auf Rückfragen keine Antwort gegeben wird.
Gruß
Helmut
sehr schön und grundsätzlich ok. Ich werde aber hier nichts machen, s. AW 5
Alles was hier gemacht wird ohne Rückmeldung von @ hierher ist vergebliche Liebesmühe.
Es gibt schon genug Anfragen, bei denen zwar die Fragestellung klar ist und man keine Rückmeldung auf die Lösung erhält, warum soll ich mir dann eine Lösung überlegen, wenn die Fragestellung nicht klar ist und man auf Rückfragen keine Antwort gegeben wird.
Gruß
Helmut
Antwort 8 von kuestenjung06
Hallo Saarbauer...
hast ja recht, ich mach das für mich als Übung bin ja noch am lernen.
Also bis zur nächsten Frage und danke auf jeden Fall für die Hilfen. : )
hast ja recht, ich mach das für mich als Übung bin ja noch am lernen.
Also bis zur nächsten Frage und danke auf jeden Fall für die Hilfen. : )
Antwort 9 von Saarbauer
Hallo,
sehr lobenswert.
Gruß
Helmut
Zitat:
ich mach das für mich als Übung bin ja noch am lernen
ich mach das für mich als Übung bin ja noch am lernen
sehr lobenswert.
Gruß
Helmut