Makro ausführen nach einfügen von Daten in Spalte
08.11.2016 14:26:52
Daten
ich kopiere Daten aus SAP und füge sie in mein Tabellenblatt ein. SAP hat ja leider das Format 2.400-, also minus hinter der Zahl.
Das Makro FormChange löst mein Problem:
Sub FormatChange()
'Negative Werte aus SAP in Excelformat umwandeln
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("I4:I632")
For Each Zelle In Bereich
With Zelle
If Right(.Value, 1) = "-" Then
.Value = CDbl("-" & Replace(Left(.Value, Len(.Value) - 1), ".", ","))
End If
End With
Next
End Sub
Beim Einfügen von den neuen Datenätzen durch strg+V soll das Makro nun automatisch starten. Dies wollte ich realisieren durch:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then Call FormChange.FormatChange
End Sub
Allerdings startet das Makro nach dem einfügen nicht, sondern erst wenn ich in Spalte I eine Zelle durch F2+Enter bearbeite.
Was muss ich ändern, wenn dies automatisch passieren soll?
Im Voraus besten Dank für eure Hilfe
Mfg John
Anzeige