Das Archiv des Excel-Forums

Datenteile aus Zelle löschen

Bild

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
Bild


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).


Bild


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


Bild


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


Bild


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


Bild


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

-


Bild


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


 Bild