Zelleninhalt tauschen

  • Excel

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

    Zelleninhalt tauschen

    Hallo Ihr lieben,

    ich habe folgendes Anliegen,
    wie ändere ich den Text in VBA?

    Bsp. Wenn der Textinhalt in A1 "TextEins" ist, dann soll der Inhalt der Zelle A1 mit "InhaltEins" ersetzt werden.


    		ABCDE
    1TextEinsTextZweiTextDrei
    		......
    2





    Ich habe es mit Schleife versucht:

    Visual Basic-Quellcode

    1. Dim x As Range
    2. Dim i As String
    4. x = Sheets(1).Range("A1:E1").Select
    6. For Each i In Range("A1:E1")
    8. If Cells(1, i).Value = "TextEins" Then
    9. Cells(1, i).Value = "InhaltEins"
    10. End If
    12. If Cells(1, i).Value = "TextZwei" Then
    13. Cells(1, i).Value = "InhaltZwei"
    14. .
    15. .
    16. .
    18. End If
    19. Next i


    Ich bin VBA Anfängerin. Bestimmt sind in dem Code 1000 Fehler drin. Könnt ihr mir da bitte weiterhelfen?

    Vielen Dank vorab. :)

    CodeTags gesetzt
    Thema verschoben; Das Thema wird automatisch dort erstellt, wo man sich befindet, wenn man auf [* Neues Thema] klickt.     ~VaporiZed

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „maylee“ ()

    Alternativ kannst Du es auch so machen:

    Visual Basic-Quellcode

    1. Dim x As Range
    2. Dim c As Cell
    4. x = Sheets(1).Range("A1:E1").Select
    6. For Each c In x.cells
    7. Select Case c.value
    8. Case "TextEins"
    9. c.value="InhaltEins"
    10. Case "TextZwei"
    11. c.Value="InhaltZwei"
    12. ....
    13. End Select
    14. Next


    BTW: Etwas zu Sprachgebrauch: Es gibt kein IF-Schleifen:
    Schleifen sind For / Next oder Do /Loop
    If und Select sind Kontrollstrukturen
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

Facebook
Telefonspende