Hilfe bei Syntaxänderung :(

  • Excel

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

    Hilfe bei Syntaxänderung :(

    Hallo,

    stehe gerade vor einem Problem.

    Quellcode

    1. Dim i&
    2. For i = 1 To 1098
    3. Cells(i, 1) = RTrim$(Cells(i, 1)) & "M"
    4. Next
    6. 'baut m hinten an ende
    9. 'tauscht unterzeichen aus
    10. Dim rngZelle As Range
    12. On Error Resume Next
    13. For Each rngZelle In Range("a1:a1098")
    14. rngZelle.Value = Replace(rngZelle.Value, "-", "_")
    15. Next rngZelle
    16. 'unterzeichen ende



    Habe diesen Programmcode und er funktioniert. Er soll sich jedoch nur auf ein Bestimmtes Tabellenblatt beziehen. Habt ihr eine Idee, wie ich den Code auf "Tabelle2" anwenden kann?
    Habe schon div. Syntaxen ausprobiert aber kann mich da irgendwie nicht reindenken, da es mir vermutlich an Grundlagen fehlt.

    Danke Euch!

    Hallo,

    Visual Basic-Quellcode

    1. Dim i&
    3. With Worksheets("Tabelle2")
    4. For i = 1 To 1098
    5. .Cells(i, 1) = RTrim$(.Cells(i, 1)) & "M"
    6. Next
    7. 'baut m hinten an ende
    10. 'tauscht unterzeichen aus
    11. Dim rngZelle As Range
    12. 'On Error Resume Next
    14. For Each rngZelle In .Range("a1:a1098").Cells
    15. rngZelle.Value = Replace(rngZelle.Value, "-", "_")
    16. Next rngZelle
    17. End With
    18. 'unterzeichen ende
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende