|
Guten Morgen,
ich kopiere mir per VBA-Werte aus einem Blatt in ein anderes.
In dem Blatt1, aus dem ich kopiere sind in Texten teilweise Zahlen enthalten, die ich herausfilter.
1 2 3 4 5 6 7 8 | Worksheets(blatt2).Cells(j, 7).Value = Mid(Worksheets(blatt1).Cells(n, 1).Value, 69, 19)
If Right(Worksheets(blatt2).Cells(j, 7).Value, 1) = "-" Then
Worksheets(blatt2).Cells(j, 7).Value = "-" & Left(Worksheets(blatt2).Cells(j, 7).Value, Len(Worksheets(blatt2).Cells(j, 7).Value) - 1)
End If
Worksheets(blatt2).Cells(j, 8).Value = Right(Worksheets(blatt1).Cells(n, 1).Value, 19)
If Right(Worksheets(blatt2).Cells(j, 8).Value, 1) = "-" Then
Worksheets(blatt2).Cells(j, 8).Value = "-" & Left(Worksheets(blatt2).Cells(j, 8).Value, Len(Worksheets(blatt2).Cells(j, 8).Value) - 1)
End If
|
Die Zahlen sind bspw. so enthalten:
1.635,000
700,000-
34,000
Beim den Zahlen, die ich mit dem Mid-Befehl kopiere z.B. 700,00- behält er zunächst da Komma richtig bei. Sobald ich aber mit dem darauffolgenden IF-Befehl das Minus Zeichen an den Anfang setze (Ziel: -700,000) wandelt Excel das Komma in einen Punkt um also -700.000 mit der Folge das es jetzt den Wert minus siebenhunderttausend und nicht mehr minus siebenhundert hat.
Bei Zahlen, die ich mit dem rechts Befehl kopiere wandelt Excel direkt, also bereits vor der If-Überprüfung des Minusszeichens, das Komma in einen Punkt um. z.B. 34.000 statt 34,000.
Bei Zahlen die sowohl Punkt & Komma enthalten (1.635,000) tritt das Problem in beiden Fällen nicht auf.
Ich habe über einen Replace-Befehl nachgedacht, da es allerdings ja nicht bei allen Zahlen auftritt kann ich nicht pauschal den Punkt wieder durch ein Komma ersetzen. Hat jemand eine Idee wie man das Problem lösen kann?
Jenny
|