Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige