Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zielwertsuche schneller öffnen

Zielwertsuche schneller öffnen
13.11.2020 11:51:34
hans
Hey ich möchte gern die Zielwertsuche schneller öffnen können quasi durch einen Klick. Leider funktioniert der Schnellzugriff in der Leiste nicht, da auf anderen Computern diese Einstellung leider nicht übernommen wird. Ich habe an Makro Buttons oder ähnliches gedacht bekomm aber nichts auf die Reihe. Es sollte auf unterchiedlichen Rechnern mit unterschiedlichen Excel Einstellungen funktionieren also eine universelle Lösung.
Danke!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zielwertsuche schneller öffnen
13.11.2020 12:18:12
peterk
Hallo Hans
In Bezug auf den alten Beitrag (Zelle/Spalten)
Doppelklick auf A1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
If Not Range("A1").GoalSeek(Goal:=2.5, ChangingCell:=Range("B1")) Then
Range("C1") = "Undef."
End If
Cancel = True
End If
End Sub
P.S. Ich könnte Dir auch zeigen wie Du alle Stellen bekommst (theoretisch bis zu 4)
Peter
Anzeige
AW: Zielwertsuche schneller öffnen
13.11.2020 12:23:47
hans
hey danke für die erneute hilfe aber das ist mir schon zu komplex. Gäbe es eine einfachere Methode um z.b durch einen klick auf ein Button oder so die unausgefüllte Zielwertsuche zu starten?
AW: Zielwertsuche schneller öffnen
13.11.2020 12:37:06
peterk
Hallo Hans
Hier ein Beispiel mit Button
https://www.herber.de/bbs/user/141527.xlsm
Peter
Anzeige
AW: Zielwertsuche schneller öffnen
13.11.2020 12:31:09
Daniel
Hi
verwende den Befehl:
application.Dialogs(xlDialogGoalSeek).Show
kannst du als Marko einem Button zuweisen oder führe diese Zeile im BeforeDoubleClick-Event aus.
Gruß Daniel
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zielwertsuche schneller öffnen in Excel


Schritt-für-Schritt-Anleitung

Um die Zielwertsuche in Excel schneller zu öffnen, kannst Du einen Button erstellen, der den entsprechenden Befehl ausführt. Hier sind die Schritte:

  1. Entwicklertools aktivieren:

    • Gehe zu "Datei" > "Optionen" > "Menüband anpassen" und aktiviere das Kontrollkästchen "Entwicklertools".
  2. Button einfügen:

    • Wechsle zum Tab "Entwicklertools" und klicke auf "Einfügen".
    • Wähle "Button (Formularsteuerung)" und ziehe ihn auf das Arbeitsblatt.
  3. Makro zuweisen:

    • Im Dialogfeld "Makro zuweisen" kannst Du ein neues Makro erstellen oder ein bestehendes zuweisen.
    • Verwende den folgenden VBA-Code, um die Zielwertsuche auszuführen:
Sub ZielwertsucheStarten()
    Application.Dialogs(xlDialogGoalSeek).Show
End Sub
  1. Makro testen:
    • Klicke auf den Button, um die Zielwertsuche zu öffnen.

Häufige Fehler und Lösungen

  • Button funktioniert nicht: Stelle sicher, dass Du das Makro richtig zugewiesen hast. Überprüfe auch die Sicherheitseinstellungen für Makros unter "Datei" > "Optionen" > "Sicherheitscenter".

  • Zielwertsuche öffnet sich nicht: Achte darauf, dass Du die richtige Excel-Version verwendest, die die Zielwertsuche unterstützt.


Alternative Methoden

Falls Du keine Buttons verwenden möchtest, gibt es auch andere Möglichkeiten:

  • Doppelklick-Event: Du kannst die Zielwertsuche starten, wenn Du auf eine bestimmte Zelle doppelklickst. Hier ist ein Beispielcode:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$A$1" Then
        Application.Dialogs(xlDialogGoalSeek).Show
        Cancel = True
    End If
End Sub
  • Tastenkombination: Du kannst auch eine Tastenkombination für das Makro erstellen, um die Zielwertsuche schneller zu öffnen.

Praktische Beispiele

Angenommen, Du möchtest den Wert in Zelle B1 so anpassen, dass Zelle A1 den Wert 2,5 erreicht. Du kannst das Zielwertsuche-Makro wie folgt nutzen:

Sub ZielwertsucheBeispiel()
    Range("A1").GoalSeek Goal:=2.5, ChangingCell:=Range("B1")
End Sub

Füge diesen Code in das gleiche Makro ein, das Du dem Button zugewiesen hast.


Tipps für Profis

  • Makros speichern: Speichere Deine Excel-Datei als Macro-Enabled Workbook (*.xlsm), um die Makros zu erhalten.

  • Benutzerdefinierte Dialoge: Du kannst benutzerdefinierte Dialoge erstellen, um die Benutzererfahrung bei der Zielwertsuche zu verbessern.

  • Testen auf verschiedenen Rechnern: Teste Deine Makros auf verschiedenen Rechnern, um sicherzustellen, dass sie überall funktionieren.


FAQ: Häufige Fragen

1. Wie kann ich die Zielwertsuche für mehrere Zellen gleichzeitig nutzen?
Du kannst den GoalSeek-Befehl in einer Schleife verwenden, um mehrere Zellen nacheinander zu bearbeiten.

2. Funktioniert das auch in Excel Online?
Leider sind Makros in Excel Online nicht verfügbar. Du musst die Desktop-Version von Excel verwenden.

3. Was ist, wenn ich Excel auf einem Mac benutze?
Die Vorgehensweise bleibt ähnlich, aber die Benutzeroberfläche kann leicht abweichen. Stelle sicher, dass Du die entsprechenden Mac-Spezifischen Einstellungen berücksichtigst.

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