Text in Zelle einfügen

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Text in Zelle einfügen

    Hallo,



    nachdem ihr mir gestern schon super geholfen hab, bitte ich nochmal um Unterstützung.

    Ich habe aus meiner vorherigen Aufgabe Teile eines Zellinhaltes "abgeschnitten" und möchte diesen nun in eine andere Zelle schreiben. Diese Zelle enthält aber evtl. bereits einen anderen Text und dieser soll erhalten bleiben. Der "abgeschnittene" Text soll also in díeser Zelle vorne stehen und dann erst der Text, der ursprünglich drinstand.



    Beispiel:

    A1: "Pferde Esel Menschen Hunde Löwen Giraffen"

    Makro trennt "Hunde Löwen Giraffen" ab in Zelle B1 und anschließend trennt das Makro noch "Giraffe" ab (ohne es bisher irgendwo hinzuschreiben => es fällt also bisher raus).

    Nun steht in Zelle C1 z.B. "Autos Fahrräder Boote" bereits drin. Die "Giraffe" sollte nun dazu, so dass C1 nachher wie folgt lautet:

    "Giraffen Autos Fahrräder Boote"



    Kann mir dabei jemand helfen?



    Vielen Dank vorab!
    Meinst Du so?

    Visual Basic-Quellcode

    1. Private Sub TierSpalter()
    2. Dim i As Long
    3. Dim s As String
    4. s = Cells(1, 1)
    5. i = InStrRev(s, " ", 30, vbTextCompare)
    6. If i > 0 Then
    7. Cells(1, 1) = Left$(s, i - 1)
    8. Cells(1, 2) = trim(Mid$(s, i + 1) & " " & cells(1,2))
    9. End If
    10. s = Cells(1, 2)
    11. i = InStrRev(s, " ", 30, vbTextCompare)
    12. If i > 0 Then
    13. Cells(1, 2) = Left$(s, i - 1)
    14. Cells(1, 3) = trim(Mid$(s, i + 1) & " " & cells(1,3))
    15. End If
    16. End Sub


    Fehler nicht auszuschließen, war zu faul zum testen...
    Gruß
    Peterfido

    Keine Unterstützung per PN!