VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
Mario

Datum:
05.05.2017 19:14:29

Views:
992

Rating:

Antwort:

Thema:
Integer und Goalseek

Hallo Zusammen

Ich hoffe mir kannjemand helfen:

Ich habe folgende Funktion

Dim i As Integer

Dim g As Integer

For i = 8914 To 8914 + Range("C16")

For g = 0 To Range("C16")

g = Range("C16")

Cells(i, 43).GoalSeek Goal:=g, ChangingCell:=Cells(i, 41)

Next g

Next i

gemacht.

Nur funktioniert es nicht richtig

Eigentlich sollte es so funktionieren

Cells(8914, 43).GoalSeek Goal:=0, ChangingCell:=Cells(8914, 41)

Cells(8915, 43).GoalSeek Goal:=1, ChangingCell:=Cells(8915, 41)

Cells(8916, 43).GoalSeek Goal:=1, ChangingCell:=Cells(8916, 41)

usw.

Wäre froh um einen Tipp

Vilen Dank schon im voraus.

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