Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellenumformatierung mittels Makro

Forumthread: Zellenumformatierung mittels Makro

Zellenumformatierung mittels Makro
Robert
Hallo
Ich bin seit nunmehr 2 stunden auf der Suche nach einer Lösung zu folgendem Problem.
Ich lese Rechnungsdaten von einer Dat-Datei in ein Excel-Sheet rein.
Der Rechnungsbetrag ist dabei leider wie folgt formatiert:
12.90
d.h. zu beginn 4 Leerzeichen, dann die Zahl getrennt mittels Punkt.
Wenn ich nun mehrere Rechnungsbeträge addiere, konkateniert er lediglich die Zahlen, will heißen er hängt sie an einander.
Von Hand klappt die Umformatierung nur in dem ich auf den Autokorrekturbutton neben der Zelle klicke und "in Zahl konvertieren" wähle (die Zelle hat eine grüne Ecke)
Leider zeigt der Markorecorder keine Aktionen an.
Folgendes habe ich shcon probiert:
Val
Multiplikation mit 1
CDbl
Wäre nett wenn mir jemand einen Ansatz hätte.
Danke Robert
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellenumformatierung mittels Makro
Florian
Hallo, Robert,
Option ExplicitSub InZahlWandeln()
  Dim Zelle
  For Each Zelle In Selection
    Zelle.Replace What:=" ", Replacement:="", LookAt:=xlPart
  Next Zelle
End Sub


Code einer Schaltfläche zuweisen, die besagten Zahlen vorher markieren (sonst geht gar nichts in diesem Beispiel) und die Schaltfläche betätigen.
Gruß,
Florian
P.S. Alternative ohne Code: Alles markieren, Menü Bearbeiten | Ersetzen, Leerzeichen durch nichts ersetzen.
Anzeige
AW: Zellenumformatierung mittels Makro
Robert
So schauts gut aus :)
Danke Dir.
....obwohl die Zellen immernoch eine grüne Ecke haben.
AW: Zellenumformatierung mittels Makro
Ulf
Option Explicit

Sub InZahlWandeln()
Dim Zelle
For Each Zelle In Selection
Zelle.Replace What:=" ", Replacement:="", LookAt:=xlPart
Zelle = Zelle * 1
Next Zelle
End Sub

Ulf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige