Thema Datum  Von Nutzer Rating
Antwort
Rot Dateityp ändern: String-Double (bzw. Währung)
07.10.2017 22:07:54 Stefan
Solved
08.10.2017 07:28:51 Werner
NotSolved
08.10.2017 08:35:13 jörg
NotSolved
08.10.2017 10:44:16 Stefan
NotSolved
08.10.2017 10:54:51 Gast18899
NotSolved
08.10.2017 11:11:49 Gast94618
NotSolved
08.10.2017 11:33:18 Werner
NotSolved

Ansicht des Beitrags:
Von:
Stefan
Datum:
07.10.2017 22:07:54
Views:
75
Rating: Antwort:
 Nein
Thema:
Dateityp ändern: String-Double (bzw. Währung)

Hallo,

ich führe ein Haushaltsbuch in Excel. Die einzelnen Ausgaben erfasse ich über eine App auf dem Smartphone und exportiere die Datensätze dann Monatsweise als csv und importiere diese im Excel. Nun möchte ich den Import gern automatisieren mittels VBA, wobei ich hier noch nicht allzuviel Ahnung habe. Probleme bereitet mir die Beträge in ein zahlenformat umzuwandeln. Zuerst teile ich die Daten in Spalten auf, wobei ich Text als Datentyp angebe, sodass die Beträge nicht als Datum fehlinterpretiert werden (Format  z.B. 10.84 oder auch nur 7)

 

Sub Andromoney_konvertieren()
'Text trennen
Columns("A:A").Select
    Selection.TextToColumns DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 1), _
        Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2 _
        ), Array(14, 2)), TrailingMinusNumbers:=True

'Punkte durch Komma ersetzen in Beträgen
    Columns("C:C").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

'Format der Währung ändern        (Text->Währung)
    With Range("C:C")                    
        .NumberFormat = "Double"
        .Value = .Value              'Laut einem anderen Forenbeitrag sollte diese Zeile das Problem beheben
    End With
    Selection.NumberFormat = "#,##0.00 $"
    
End Sub

Als Ergebnis werden allerdings nur die Zahlen ohne Komma umgewandelt, nicht die Zahlen mit nachkommastellen. Hat jemand eine Idee wie ich alle Zahlen, egal ob mit oder ohne Komma von STrings in Double umwandeln kann?

 

Danke schonmal

Stefan


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateityp ändern: String-Double (bzw. Währung)
07.10.2017 22:07:54 Stefan
Solved
08.10.2017 07:28:51 Werner
NotSolved
08.10.2017 08:35:13 jörg
NotSolved
08.10.2017 10:44:16 Stefan
NotSolved
08.10.2017 10:54:51 Gast18899
NotSolved
08.10.2017 11:11:49 Gast94618
NotSolved
08.10.2017 11:33:18 Werner
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar