Thema Datum  Von Nutzer Rating
Antwort
07.02.2020 21:39:38 VBA
NotSolved
07.02.2020 22:02:40 tscharl
NotSolved
Rot Erwartet Listentrennzeichen oder )
07.02.2020 22:02:42 Mase
Solved
07.02.2020 22:10:48 tscharl
Solved

Ansicht des Beitrags:
Von:
Mase
Datum:
07.02.2020 22:02:42
Views:
650
Rating: Antwort:
 Nein
Thema:
Erwartet Listentrennzeichen oder )

Weil Du die Zeichenketten syntaktisch falsch miteinander verbindest:

 

Cells(Zeile + 11, Spalte + 10).FormulaLocal = _
"=WENN(" & Cells(Zeile + 1, Spalte + 11).Address & "=1;" & Cells(Zeile + 1, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
 "+WENN(" & Cells(Zeile + 1, Spalte + 11).Address & "=1;" & Cells(Zeile + 1, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
 "+WENN(" & Cells(Zeile + 3, Spalte + 11).Address & "=1;" & Cells(Zeile + 3, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
 "+WENN(" & Cells(Zeile + 4, Spalte + 11).Address & "=1;" & Cells(Zeile + 4, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
 "+WENN(" & Cells(Zeile + 5, Spalte + 11).Address & "=1;" & Cells(Zeile + 5, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
 "+WENN(" & Cells(Zeile + 6, Spalte + 11).Address & "=1;" & Cells(Zeile + 6, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
 "+WENN(" & Cells(Zeile + 7, Spalte + 11).Address & "=1;" & Cells(Zeile + 7, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
 "+WENN(" & Cells(Zeile + 8, Spalte + 11).Address & "=1;" & Cells(Zeile + 8, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
 "+WENN(" & Cells(Zeile + 9, Spalte + 11).Address & "=1;" & Cells(Zeile + 9, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
 "+WENN(" & Cells(Zeile + 10, Spalte + 11).Address & "=1;" & Cells(Zeile + 10, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)"

 

Beispielzelle.FormulaLocal = "Zeichenkette" & "Zeichenkette" & _

                                                  "Zeichenkette"


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.02.2020 21:39:38 VBA
NotSolved
07.02.2020 22:02:40 tscharl
NotSolved
Rot Erwartet Listentrennzeichen oder )
07.02.2020 22:02:42 Mase
Solved
07.02.2020 22:10:48 tscharl
Solved