Freigeben über

automatische Zielwertsuche

Anonym
2024-07-04T13:54:23+00:00

Hallo,

bei der Was wäre wenn Analyse muss ich mehrere 100 Zellen manuell ansteuern um die gleiche Funktion zu tätigen

Zielzelle immer Zeile 22

Zielwert immer 0

variable Zelle immer Zeile 11

nur die Spalten wechseln von A bis EYS

Meine Frage: wie kann man so etwas automatisieren?

Vielen Dank

Neuling Jannis

Microsoft 365 und Office | Excel | Für Zuhause | Windows

Gesperrte Frage. Diese Frage wurde aus der Microsoft-Support-Community migriert. Sie können darüber abstimmen, ob sie hilfreich ist, aber Sie können keine Kommentare oder Antworten hinzufügen oder der Frage folgen.

0 Kommentare Keine Kommentare

4 Antworten

Sortieren nach: Am hilfreichsten
  1. Andreas Killer 144.1K Zuverlässigkeitspunkte Freiwilliger Moderator
    2024-07-04T14:31:49+00:00

    Jannis,

    hier erstmal zum Testen, das geht von E22 bis J22, wenn das funktioniert dann schreibt einfach "E22:J22" zu "A22:EYS22", lass laufen und guten Hunger. Bis das fertig ist dauert bestimmt. :-)

    Andreas.

    Sub Test()
    Dim R As Range, C As Range
    'Durchlaufe jede dieser Zellem:
    For Each R In Range("E22:J22")
    'Im ersten Schritt ist R die Zelle E22 und Cells(11, R.Column) ist E11
    'Im zweiten Schritt das gleiche nur F, usw.
    R.GoalSeek Goal:=0, ChangingCell:=Cells(11, R.Column)
    Next
    End Sub

    2 Personen fanden diese Antwort hilfreich.
    0 Kommentare Keine Kommentare
  2. Anonym
    2024-07-04T14:52:09+00:00

    Hallo Andreas,

    vielen vielen Dank! Das hat sehr gut geklappt.

    Jannis

    0 Kommentare Keine Kommentare
  3. Anonym
    2024-07-04T14:16:30+00:00

    Hallo Andreas,

    erstmal vielen Dank!

    Sub Makro2()

    '

    ' Makro2 Makro

    '

    '

    Application.CutCopyMode = False 
    
    Application.CutCopyMode = False 
    
    Application.CutCopyMode = False 
    
    Range("E22").GoalSeek Goal:=0, ChangingCell:=Range("E11") 
    
    Range("F22").Select 
    

    End Sub

    Beste Grüße

    Jannis

    0 Kommentare Keine Kommentare
  4. Andreas Killer 144.1K Zuverlässigkeitspunkte Freiwilliger Moderator
    2024-07-04T14:02:33+00:00

    Wähle die erste Zielzelle

    Starte den Makrorekorder

    Führe die Zielwertsuche aus

    Wenn er das Ziel erreicht hat, Ok klicken

    Wähle die nächste Zielzelle

    Stoppe den Makrorekorder

    Kopiere das Makro und poste es hier, dann schreibe ich es Dir für viele Zellen um.

    Andreas.

    0 Kommentare Keine Kommentare