Das Archiv des Excel-Forums
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