Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zielwertsuche - Spalten statt Zellen

Zielwertsuche - Spalten statt Zellen
27.08.2018 11:10:50
Andre
Hallo zusammen,
ich wollte über die "Was-Wäre-Wenn-Analyse - Zielwertsuche" den Wert für die Zelle J2 bestimmen. Zielwert der Formel (Zelle Q2) soll dabei 0 sein. Makro dazu:

Sub Zielwertsuche()
' Zielwertsuche Makro
Range("Q2").GoalSeek Goal:=0, ChangingCell:=Range("J2")
End Sub

Soweit hat das gut geklappt.
Nun möchte ich dies jedoch auf die gesamten Spalten (so weit wie befüllt / nicht statisch) ab J2 und Q2 übertragen, da es sich um über 3000 Werte handelt.
Wie muss ich das Makro dazu verändern? (absoluter Anfänger)
Vielen Dank vorab.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zielwertsuche - Spalten statt Zellen
27.08.2018 11:24:24
ChrisL
hi
ungetestet
Sub Zielwertsuche()
Dim i As Long
For i = 2 To 3000
Range("Q" & i).GoalSeek Goal:=0, ChangingCell:=Range("J" & i)
Next i
End Sub
cu
Chris
AW: Zielwertsuche - Spalten statt Zellen
27.08.2018 11:37:39
Andre
Hi Chris,
vielen lieben Dank für die schnelle Antwort, das bringt mich einen großen Schritt weiter!!!!
Die Werte werden nun (nach einer halben Ewigkeit :-)) ermittelt. Allerdings "nur" bis zur Zeile 3000. Da sich die Anzahl der zu ermittelten Werte verändert, wäre es super, wenn man "bis Ende" schreiben könnte, damit die Anzahl im Marko nicht vor jeder Ausführung angepasst werden muss.
Was muss ich dazu anstelle der "to 3000" hinterlegen?
Besten Dank vorab.
Anzeige
AW: Zielwertsuche - Spalten statt Zellen
27.08.2018 12:36:10
ChrisL
Hi
For i = 2 To Cells(Rows.Count, "J").End(xlup).Row
cu
Chris
AW: Zielwertsuche - Spalten statt Zellen
27.08.2018 12:41:07
Andre
Du bist der Beste - herzlichen Dank!!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zielwertsuche in Excel für mehrere Zellen


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Arbeitsmappe, in der du die Zielwertsuche durchführen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.
  4. Kopiere den folgenden Code in das Modul:

    Sub Zielwertsuche()
       Dim i As Long
       For i = 2 To Cells(Rows.Count, "J").End(xlUp).Row
           Range("Q" & i).GoalSeek Goal:=0, ChangingCell:=Range("J" & i)
       Next i
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle Zielwertsuche aus und klicke auf Ausführen.

Mit dieser Anleitung kannst du die Zielwertsuche für mehrere Zellen in Excel durchführen. Der Code sucht automatisch bis zur letzten befüllten Zeile in Spalte J und passt die entsprechenden Werte in Spalte Q an, um den Zielwert von 0 zu erreichen.


Häufige Fehler und Lösungen

  • Fehler: "Zielwert kann nicht erreicht werden."

    • Lösung: Überprüfe die Formeln in den Zellen und stelle sicher, dass es einen Zusammenhang zwischen den Werten in Spalte J und dem Zielwert in Spalte Q gibt.
  • Fehler: Das Makro stoppt vorzeitig.

    • Lösung: Stelle sicher, dass die Zellen in Spalte J befüllt sind, da das Makro nur bis zur letzten gefüllten Zeile geht.

Alternative Methoden

Falls du keine VBA-Makros verwenden möchtest, kannst du die Zielwertsuche in Excel über das Menü nutzen:

  1. Wähle die Zelle Q2 aus.
  2. Gehe zu Daten > Was-wäre-wenn-Analyse > Zielwertsuche.
  3. Setze den Zielwert auf 0 und wähle die Zelle J2 als zu ändernde Zelle.
  4. Klicke auf OK und wiederhole diesen Prozess manuell für jede Zeile, was jedoch bei großen Datenmengen unpraktisch ist.

Praktische Beispiele

Angenommen, du hast folgende Daten in Spalte J:

J Q
1 1
2 2
3 3
... ...

Nach dem Ausführen des Makros wird die Spalte Q so angepasst, dass der Zielwert in jeder Zeile 0 erreicht wird.


Tipps für Profis

  • Wenn du regelmäßig mit der Zielwertsuche in Excel arbeitest, speichere das Makro in deiner persönlichen Makroarbeitsmappe (PERSONAL.XLSB), um es für alle zukünftigen Projekte verfügbar zu haben.
  • Achte darauf, die Zielwertsuche nur auf Zellen anzuwenden, die sich in einem logischen Zusammenhang befinden, um bessere Ergebnisse zu erzielen.

FAQ: Häufige Fragen

1. Kann ich die Zielwertsuche auch auf andere Spalten anwenden? Ja, du kannst den Code anpassen, indem du die Spaltenbezüge änderst, z.B. Range("A" & i) und Range("B" & i) für andere Spalten.

2. Ist die Zielwertsuche auch in Excel Online verfügbar? Die Zielwertsuche über die Menüoption ist in Excel Online nicht verfügbar, jedoch kannst du VBA-Makros in der Desktop-Version von Excel verwenden.

3. Welche Excel-Version benötige ich für die Zielwertsuche? Die Zielwertsuche ist in den meisten Versionen von Excel verfügbar, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige