Danke!
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)Um die Zielwertsuche in Excel schneller zu öffnen, kannst Du einen Button erstellen, der den entsprechenden Befehl ausführt. Hier sind die Schritte:
Entwicklertools aktivieren:
Button einfügen:
Makro zuweisen:
Sub ZielwertsucheStarten()
Application.Dialogs(xlDialogGoalSeek).Show
End Sub
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.
Falls Du keine Buttons verwenden möchtest, gibt es auch andere Möglichkeiten:
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
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.
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.
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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen