In einem File werden txt. Dateien importiert, um sie dann weiterzuverwenden.
Dabei auch Beträge in , welche auf dem ersten Schuss nicht berechenbar sind.
Manuell müsste ich nun die ganze Spalte mit 1 multiplizieren, was ich natürlich nicht immer will.
Das sollte über ein Makro laufen
Im Forum habe ich jetzt dieses Makro gefunden, was auch erstmal klappt:
Option Explicit
Sub Multiplizieren()
Dim Eingabe As String
Dim Faktor As Double
Dim Zelle As Range
On Error GoTo FEHLER
Eingabe = InputBox("Faktor eingeben!", "Mit Faktor multiplizieren", 2.5)
Faktor = CDbl(Eingabe)
For Each Zelle In Selection
Zelle.Value = Zelle.Value * Faktor
Next Zelle
Exit Sub
FEHLER:
MsgBox "Leider ein Fehler!", vbCritical, "FEHLER"
End Sub
Folgendes passiert jetzt, wenn ich den Faktor 1 eingebe:
- die Beträge sind in der Folgenden Schreibweise importiert: 1,000.99, aus diesen tausen Euro werden durch die Multiplikation 1 - doof.
- Die Spalten mit den Beträgen sind Teilweise unterbrochen durch textzeile o.ä. (das macht das ERP System, um Seiten zuteilen), wenn ich die gesamte Spalte markiere und das Makro durchlaufen lasse, zeigt er mir einen Fehler an. Markiere ich nur einen Bereich wo Werte drin sind funktionierts, ist aber aufwendig.
Was kann ich tun?
Danke schonmal,
Lucia