Rückfrage an UweD

Hallo Uwe zunächst einmal Vielen Dank für die schnelle Hilfe, welche mich meinem Ziel ein großes Stück näher gebracht hat.
Durch ausprobieren, habe ich festgestellt, dass es Probleme mit den Kommastellen bei Berechnung durch das VBA gibt. Kannst Du mir hier auch noch weiter helfen?
Besten Dank im Voraus
Gruß AR
Bisheriger Lösungsansatz wie nachfolgend
Betrifft: AW: Tab mit Gewichten? ist nicht vorhanden owT

Hallo nochmal
Unter den Vorraussetzungen musst du in meiner Datei das Eventmakro so abändern

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
If Not Target.MergeCells And Target.Row > 1 Then
If Not Intersect(UsedRange, Target) Is Nothing And _
Target <> "" Then
If Target.Count = 1 Then
UserForm1.Show
Else
MsgBox "Nur einzelne Zellen bearbeiten"
End If
End If
End If
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub