19.05.2014, 18:16
Hallo Michael,
so ist es, wenn man was ungetestet postet. Es geht nicht. Habe den Code umgeschrieben.
so ist es, wenn man was ungetestet postet. Es geht nicht. Habe den Code umgeschrieben.
Code:
Sub prcBerechnen(strBereich As String, strTrenner As String, lngWerte As Long)
Dim arWerte As Variant, arSpieler As Variant
Dim lngC As Long
Dim rngZelle As Range
If strTrenner <> "" Then
For Each rngZelle In Worksheets("Daten").Range(strBereich)
rngZelle.Value = rngZelle.Value + lngWerte
Next rngZelle
arWerte = Split(strTrenner, ",")
For lngC = 0 To UBound(arWerte) - 1
arSpieler = Split(arWerte(lngC), "::")
Worksheets("Daten").Range(arSpieler(0)).Value = Worksheets("Daten").Range(arSpieler(0)).Value - arSpieler(1)
Next lngC
End If
End Sub