Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zielwertsuche automatisieren

Forumthread: Zielwertsuche automatisieren

Zielwertsuche automatisieren
Gernot
Moin, ich hab das Problem, daß ich für die Auswertung von Meßdaten häufig die Zielwertsuche benutzen muß. Alle Daten für die Suche stehen aber in Zellen, so daß ich gern die Suche automatisch durchführen ließe, so ähnlich wie sonst bei Excel-Formeln üblich. Etwa folgende Struktur schwebt mir vor:
ZIELWERTSUCHE("Formel deren Ergenbis der Zielwert sein soll"; "Zelle mit dem Zielwert"; "veränderliche Zellle") oder anders:
ZIELWERTSUCHE(A1+B1+C1; D1; A1)
Geht das? Ich wollte schon ein Makro dafür aufzeichnen, aber leider funktioniert das Eingeben des "Zielwertes" in die Zielwertsuche nicht per Strg+V.
Vielen Dank
Gernot
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Zielwertsuche automatisieren
K.Rola
Hallo,
Prinzip:
Option Explicit

Sub goal_Test()
Sheets("Zielwertsuche").[d3].GoalSeek Goal:=40000, ChangingCell:=Sheets("Zielwertsuche").[a3]
End Sub

Gruß K.Rola
Wobei [d3] eine Formel enthalten m u s s
AW: Zielwertsuche automatisieren
Gernot
Hab Dank für die Antwort, leider kann ich damit nichts anfangen, da ich kein VB kann. Ich versuch, das Problem nochmal anders zu beschreiben. Ich hätte gern ein Makro, das zu einer bestimmten Zelle springt(BT46), mit der Formel in der Zelle (=BU41*BT45^4+BV41*BT45^3+BW41*BT45^2+BX41*BT45+BY41) eine Zielwertsuche durchführt. Der Zielwert ist in Zelle BV34 und die verändereliche Zelle ist BT45. Das ganze soll auf mehreren Tabellenblätter gemacht werden, die heißen bei mir schlicht "1", "2", "3" usw.
Vielen Dank
Gernot
Anzeige
AW: Zielwertsuche automatisieren
K.Rola
Hallo,
Sheets("Zielwertsuche").[d3].GoalSeek
D3 ist die Zelle mit der Formel
Das ist der Zielwert, das kann auch eine Zelle sein.
Goal:=40000,
A3 ist die veränderliche Zelle
ChangingCell:=Sheets("Zielwertsuche").[a3]
Auch wenn du kein VBA kannst, wirst du doch diese 3 Werte anpassen können.
Gruß K.Rola
Anzeige
AW: Zielwertsuche automatisieren
Gernot
Vielen Dank, ich glaub ich habs jetzt, nur noch zwei Fragen:
Für ("Zielwertsuche") muß ich meinen Tabellenanmen eingeben ("Tabelle1"), richtig?
Wenn ich statt goal:=40000 einen Zellinhalt nutzen will, muß ich auch goal:=sheets("Tabelle1").[BV34] eingeben, richtig?
Anzeige
Anzeige

Infobox / Tutorial

Zielwertsuche in Excel automatisieren


Schritt-für-Schritt-Anleitung

Um die Zielwertsuche in Excel zu automatisieren, kannst du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code ein:

    Sub ZielwertsucheAutomatisieren()
       Dim Zielwert As Double
       Dim Tabelle As String
       Dim FormelZelle As Range
       Dim VeranderlicheZelle As Range
    
       Tabelle = "Tabelle1" ' Ändere dies entsprechend deinem Tabellennamen
       Set FormelZelle = Sheets(Tabelle).Range("D3") ' Zelle mit der Formel
       Set VeranderlicheZelle = Sheets(Tabelle).Range("A3") ' Veränderliche Zelle
       Zielwert = Sheets(Tabelle).Range("BV34").Value ' Zielwert aus Zelle BV34
    
       FormelZelle.GoalSeek Goal:=Zielwert, ChangingCell:=VeranderlicheZelle
    End Sub
  4. Passe die Zellreferenzen (D3, A3, BV34) und den Tabellennamen an, um sie an deine Anforderungen anzupassen.

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Du kannst das Makro jetzt ausführen, um die Zielwertsuche automatisch durchzuführen.


Häufige Fehler und Lösungen

  • Fehler: "Zelle muss einen Wert enthalten."

    • Lösung: Stelle sicher, dass die Zelle, die du für die Zielwertsuche verwendest, tatsächlich einen Wert oder eine Formel enthält.
  • Fehler: "Zielwert kann nicht berechnet werden."

    • Lösung: Überprüfe, ob die Formel in der Zelle korrekt ist und ob die veränderliche Zelle auch einen gültigen Wert hat.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du die Zielwertsuche auch manuell durchführen:

  1. Gehe zu Daten > Was-wäre-wenn-Analyse > Zielwertsuche.
  2. Gib die Zelle ein, die die Formel enthält.
  3. Setze den Zielwert und die veränderliche Zelle manuell ein.

Das ist zwar weniger automatisiert, kann aber in vielen Fällen nützlich sein.


Praktische Beispiele

Hier sind einige Beispiele für die Zielwertsuche in Excel:

  • Beispiel 1: Du möchtest den Wert in Zelle A1 so anpassen, dass die Summe in Zelle B1 gleich 1000 ist.
  • Beispiel 2: Du hast eine Verkaufsprognose in Zelle C1 und möchtest wissen, welchen Preis du setzen musst, damit der Umsatz in Zelle D1 einen bestimmten Wert erreicht.

In beiden Fällen kannst du die Zielwertsuche verwenden, um die veränderliche Zelle zu finden, die den gewünschten Zielwert erreicht.


Tipps für Profis

  • Nutze benannte Bereiche, um deine Formeln und Zellreferenzen übersichtlicher zu gestalten.
  • Experimentiere mit der Zielwertsuche als Formel in Kombination mit anderen Excel-Funktionen, um komplexere Berechnungen durchzuführen.
  • Bei mehrfachen Tabellenblättern kannst du eine Schleife im VBA-Code verwenden, um die Zielwertsuche auf verschiedenen Blättern automatisch durchzuführen.

FAQ: Häufige Fragen

1. Kann ich die Zielwertsuche auch ohne VBA nutzen?
Ja, du kannst die Zielwertsuche manuell über das Menü Daten > Was-wäre-wenn-Analyse durchführen.

2. Wie kann ich einen Zellinhalt als Zielwert verwenden?
Du kannst den Zellinhalt einfach in deinem VBA-Code angeben, z. B. Goal:=Sheets("Tabelle1").Range("BV34").Value.

3. Was mache ich, wenn die Zielwertsuche nicht funktioniert?
Überprüfe, ob die Formel in der Zielzelle korrekt ist und ob die veränderliche Zelle gültige Werte enthält.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige