Daten 1 in Daten 2

[Steffl]

Hallo Michael,

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

[michel34497]

Hallo Stefan!

Tausen Dank für die Hilfe!
Die ersten versuche mit dem neuen Code habe ich gemacht und es sieht gut aus das alles richtig eingetragen wird.
Werde jetzt erstmal weiter testen. Was mich etwas stört ist das es etwas dauert bis alles eingetragen ist, ist aber im moment nicht so schlimm haupt sache es funkt. Solte es probleme gebe melde ich mich!

Nochmals Tausen Dank! :100:

PS: Könntest du vieleicht, wenn ich wieder eine VBA frage habe Kommentare dazu schreiben damit ich das auch begreife. DANKE!

[Steffl]

Hallo Michael,

Was mich etwas stört ist das es etwas dauert bis alles eingetragen ist, ist aber im moment nicht so schlimm haupt sache es funkt.

Ich habe eigentlich nur feststellen können, das beim Abspeichern deiner Datei es manchmal sehr lange dauert. Beim Ablauf des Codes konnte ich bei mir das nicht feststellen, das Excel hier lange brauchen würde. Und es können in der Summe je nach Teilnehmeranzahl und 9er und Kränze doch einige Zellzugriffe sein. Bedingt natürlich auch dadurch, daß ich für die 9er und/oder Kränze insgesamt 19 oder 38 Zellzugriffe mache zuzüglich noch die Abzüge für den Werfer. Zuerst hatte ich mir überlegt, die Eintragung in einem Block zu machen aber den Plan verworfen, weil ich hierzu einen Bereich brauche, wo ich die Daten reinkopiere und da ich nicht weiß, wie Du deine Datei weiter aufbauen willst, habe ich darauf verzichtet.

PS: Könntest du vieleicht, wenn ich wieder eine VBA frage habe Kommentare dazu schreiben damit ich das auch begreife.

Wenn ich nicht an meiner Bequemlichkeit scheitere kann ich das schon machen, möchte aber nichts versprechen. Was aber mancher Befehl macht könntest Du auch selber rausfinden indem du den Cursor auf den Befehl setzt und dann die F1-Taste drückst. Hier sollte die OH aufgehen und Du kannst nachlesen was der Befehl bedeutet, welche Parameter vorhanden sind, welche angegeben sein müssen und welche optional sind und so weiter.