Herbers Excel/VBA-Archiv

Datenteile aus Zelle löschen

• Datenteile aus Zelle löschen von Martin Halberstadt vom 29.09.2003 10:00:17
  • AW: Datenteile aus Zelle löschen - von WernerB. am 29.09.2003 10:06:41
    • Perfekt!!! :-) - von Martin am 29.09.2003 10:12:06
      • AW: Perfekt? - von Matthias G am 29.09.2003 10:13:51
        • Danke für den Tip!!! - von Martin Halberstadt am 29.09.2003 10:17:46
          • AW: Danke für die Rückmeldung - o.T. - von Matthias G am 29.09.2003 10:30:09
  • AW: Datenteile aus Zelle löschen - von Matthias G am 29.09.2003 10:07:09

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