Microsoft Excel

Herbers Excel/VBA-Archiv

Datenteile aus Zelle löschen

    Betrifft: Datenteile aus Zelle löschen von: Martin Halberstadt
    Geschrieben am: 29.09.2003 10:00:17

    Guten Morgen Forumsbesucher,

    wie kann ich es realisieren, dass bestimmte Datenteile aus Zellen gelöscht werden?

    Bsp.:

    In Zelle A1 steht "222200 Ergebnis". (keine Formatierung bzw. Teilergebnis, sondern 6-stellige Zahl, eine Leerstelle, und "Ergebnis" als Text)

    Nun soll per Makro die angeklickte Zelle bearbeitet werden. Gelöscht werden soll: "Ergebnis".

    Übrig bleiben soll nur die Zahl. Hier: 222200!

    Wie kann ich dies in einem Makro realisieren?

    Vielen Dank im voraus für Eure Hilfe.

    MfG,
    Martin Halberstadt

      


    Betrifft: AW: Datenteile aus Zelle löschen von: WernerB.
    Geschrieben am: 29.09.2003 10:06:41

    Hallo Martin,

    das geht so:
    Sub Martin()
        ActiveCell.Value = Left(ActiveCell.Value, 6)
    End Sub
    

    Viel Erfolg wünscht
    WernerB.

    P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


      


    Betrifft: Perfekt!!! :-) von: Martin
    Geschrieben am: 29.09.2003 10:12:06

    Hallo Werner,

    vielen Dank für Deine superschnelle Antwort.
    Genau hab ich gesucht!!!

    1000 Dank und einen schönen Tag noch!

    MfG,
    Martin Halberstadt


      


    Betrifft: AW: Perfekt? von: Matthias G
    Geschrieben am: 29.09.2003 10:13:51

    Hallo Martin,
    wenn es andere als 6-stellige Zahlen sind, solltest Du dir mal meinen Code anschauen (s.u.).
    Gruß Matthias


      


    Betrifft: Danke für den Tip!!! von: Martin Halberstadt
    Geschrieben am: 29.09.2003 10:17:46

    Hallo Matthias,

    hab vielen Dank für Deine Antwort.
    Es sind zwar immer nur 6-stellige Zahlen, aber da Dein Code sich auf einen bestimmten Bereich bezieht, kann ich dies auch sehr gut verwenden.

    Also, hab 1000 Dank.
    Schönen Tag noch.

    MfG,
    Martin Halberstadt


      


    Betrifft: AW: Danke für die Rückmeldung - o.T. von: Matthias G
    Geschrieben am: 29.09.2003 10:30:09

    -


      


    Betrifft: AW: Datenteile aus Zelle löschen von: Matthias G
    Geschrieben am: 29.09.2003 10:07:09

    Hallo Martin,
    Umzuwandelnden Bereich markieren und folgenden Code ausführen:
    Public
    Sub Wandle()
    Dim z As Range
    For Each z In Selection
    If z.Value <> "" Then z.Value = Val(z.Value)
    Next z
    End Sub
    

    Grüße,
    Matthias