Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zielwertsuche über viele Spalten laufen lassen

Forumthread: Zielwertsuche über viele Spalten laufen lassen

Zielwertsuche über viele Spalten laufen lassen
03.12.2014 10:38:43
Daniel
Das Makro sieht wie folgt aus.
Ich habe 100 Zielwertsuchen. Eine Zielwertsuche pro Spalte.
Kann man dafür eine Schleife erstellen, dass sie solange rechnet bis in Zeile 24 Spalte ? keine Wert mehr vorhanden ist?
Weil so ist der Code recht lange geworden.
Und mein Wunsch wäre es so ein Makro zu erstellen, dass Abfragt wie viele Spalten erstellt werden soll, diese dann erstellt und dann die Zielwertsuche für jede Spalte ausrechnet.
Sub Makro1()
' Makro1 Makro
' Tastenkombination: Strg+d
Range("C28").Select
ActiveCell.FormulaR1C1 = "10000"
Range("C28").Select
Selection.AutoFill Destination:=Range("C28:CX28"), Type:=xlFillDefault
Range("C28:CX28").Select
Range("C25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("C28")
Range("D25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("D28")
Range("E25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("E28")
Range("F25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("F28")
Range("G25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("G28")
Range("H25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("H28")
Range("I25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("I28")
Range("J25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("J28")
Range("K25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("K28")
Range("L25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("L28")
Range("M25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("M28")
Range("N25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("N28")
Range("O25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("O28")
Range("P25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("P28")
Range("Q25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("Q28")
Range("R25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("R28")
Range("S25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("S28")
Range("T25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("T28")
Range("U25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("U28")
Range("V25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("V28")
Range("W25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("W28")
Range("X25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("X28")
Range("Y25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("Y28")
Range("Z25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("Z28")
Range("AA25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AA28")
Range("AB25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AB28")
Range("AC25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AC28")
Range("AD25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AD28")
Range("AE25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AE28")
Range("AF25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AF28")
Range("AG25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AG28")
Range("AH25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AH28")
Range("AI25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AI28")
Range("AJ25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AJ28")
Range("AK25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AK28")
Range("AL25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AL28")
Range("AM25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AM28")
Range("AN25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AN28")
Range("AO25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AO28")
Range("AP25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AP28")
Range("AQ25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AQ28")
Range("AR25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AR28")
Range("AS25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AS28")
Range("AT25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AT28")
Range("AU25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AU28")
Range("AV25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AV28")
Range("AW25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AW28")
Range("AX25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AX28")
Range("AY25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AY28")
Range("AZ25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("AZ28")
Range("BA25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BA28")
Range("BB25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BB28")
Range("BC25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BC28")
Range("BD25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BD28")
Range("BE25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BE28")
Range("BF25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BF28")
Range("BG25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BG28")
Range("BH25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BH28")
Range("BI25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BI28")
Range("BJ25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BJ28")
Range("BK25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BK28")
Range("BL25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BL28")
Range("BM25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BM28")
Range("BN25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BN28")
Range("BO25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BO28")
Range("BP25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BP28")
Range("BQ25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BQ28")
Range("BR25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BR28")
Range("BS25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BS28")
Range("BT25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BT28")
Range("BU25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BU28")
Range("BV25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BV28")
Range("BW25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BW28")
Range("BX25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BX28")
Range("BY25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BY28")
Range("BZ25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("BZ28")
Range("CA25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CA28")
Range("CB25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CB28")
Range("CC25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CC28")
Range("CD25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CD28")
Range("CE25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CE28")
Range("CF25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CF28")
Range("CG25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CG28")
Range("CH25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CH28")
Range("CI25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CI28")
Range("CJ25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CJ28")
Range("CK25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CK28")
Range("CL25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CL28")
Range("CM25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CM28")
Range("CN25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CN28")
Range("CO25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CO28")
Range("CP25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CP28")
Range("CQ25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CQ28")
Range("CR25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CR28")
Range("CS25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CS28")
Range("CT25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CT28")
Range("CU25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CU28")
Range("CV25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CV28")
Range("CW25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CW28")
Range("CX25").GoalSeek Goal:=Range("C6"), ChangingCell:=Range("CX28")
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zielwertsuche über viele Spalten laufen lassen
03.12.2014 13:14:04
Daniel
Lösung gefunden:
With ActiveSheet
Dim col As Long: col = 3 'Ab Spalte 3 ("C") beginnen
Do Until IsEmpty(.Cells(24, col))
.Cells(28, col).Select
ActiveCell.FormulaR1C1 = "10000"
.Cells(28, col).Select
.Cells(25, col).GoalSeek goal:=.Range("C6"), ChangingCell:=.Cells(28, col)
col = col + 1
Loop
End With
End Sub

Anzeige
AW: Zielwertsuche über viele Spalten laufen lassen
03.12.2014 13:17:43
Daniel
Lösung gefunden:

With ActiveSheet
Dim col As Long: col = 3 'Ab Spalte 3 ("C") beginnen
Do Until IsEmpty(.Cells(24, col))
.Cells(28, col).Select
ActiveCell.FormulaR1C1 = "10000"
.Cells(28, col).Select
.Cells(25, col).GoalSeek goal:=.Range("C6"), ChangingCell:=.Cells(28, col)
col = col + 1
Loop
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Zielwertsuche in Makro
Dave

Hallo zusammen
Ich will eine Zielwertsuche in ein Makro einbauen.
Wie kann ich den Zielwert auf eine Zelle (T83) beziehen?
Wenn ich ein Makro aufzeichne nimmt er nicht Bezug auf die Zelle sondern nur den Wert:
Sub zielwertsuche() ' zielwertsuche Makro Range("T84").Select Activ...
08.09.2008 14:53:42
Thread-ID: 1008167
3 Beiträge
Anzeige
Implizite Volatilität mittels Zielwertsuche-Makro
Kay

Hallo,
Ich versuche gerade über die Zielwertsuche eine Reihe impliziter Volatilitäten für Call- und Put-Optionen in Abhängigkeit Ihres Strikes mithilfe eines Makros zu erstellen. Unter https://www.herber.de/bbs/user/56342.xls findet ihr mein bisheriges Sheet.
Mittels Makro soll nun der...
28.10.2008 16:31:00
Thread-ID: 1020007
3 Beiträge
Zielwertsuche Makro geht nicht
Bastian

Hallo Leute,
beim Starten des Makros
Sub schleife()
   Dim rng As Range
   For Each rng In Range("I13:I200").Cells
      rng.GoalSeek Goal = 0,  ChangeingCell:=rng.Offset(0, &...
09.01.2009 13:46:00
Thread-ID: 1038219
10 Beiträge
Schleife-Zielwertsuche
Tally

Hallo VBA-Excel-Experten,
ich befasse mich erstmalig mit VBA und habe folgendes "Problem":
Die mit dem Makrorekorder erstellte Zielwertsuche der ersten Zeile soll als Schleife über eine Vielzahl von Zeilen laufen, bis die erste in Spalte "L" unbeschriftete Zeile kommt. Das Lehrbuch, das...
10.01.2009 12:42:31
Thread-ID: 1038418
16 Beiträge
Zielwertsuche mit VBA
Bastian

Liebes Forum,
ich wende mich noch einmal an Euch, da ich bisher trotz Anwort einiger Helfer keine Lösung erhalten habe.
In der beigefügten Tabelle soll per Zielwertsuche über ein Makro Werte berechnet werden.
- Die Werte in Spalte I sind die veränderbaren Werte,
- Die Werte in...
12.01.2009 09:38:00
Thread-ID: 1038775
3 Beiträge
Zielwertsuche
nuernberg@esm-ept.de

Guten Tag zusammen,
ich habe mal wieder ein Problem bei dem ich eine Hilfestellung gut gebrauchen könnte.
Also folgendes, ich möchte gerne so etwas wie eine Zielwertsuche machen. Leider ist meine Aufgabe etwas komplexer, da ich 4 Variablen habe die zwei von einander abhängige Zielwerte...
18.02.2009 11:26:00
Thread-ID: 1051740
10 Beiträge
Zielwertsuche per Makro
nicospostbox

Hi zusammen!
Ich habe folgendes Problem, bei dem ihr mir sicher helfen könnt:
Ich habe in Spalte A ca. 600 Werte stehen. In Spalte B auch 600 Mal eine Formel, die sich auf die jeweilige Zeile in Spalte C bezieht. Die Werte in C sind variabel.
Ich möchte jetzt die Zielwertsuche so au...
15.05.2009 14:13:09
Thread-ID: 1075479
3 Beiträge
Zielwertsuche?
Albin

Hallo
Ich habe folgendes Problem: Das Total Bonus in Zelle H36 möchte ich in die grünen Feldern in Spalte H verteilen auf die einzelnen Mitarbeiter. Das ganze sollte möglichst gerecht verteilt werden, das heisst anhand des Lohnes in Spalte G (blaue Zellen). Wer kann mir da helfen? Beispiel...
09.10.2009 15:14:35
Thread-ID: 1108589
5 Beiträge
Zielwertsuche wiederholen
ludicla

Hallo Profis,
ich hab eine Tabelle für eine komplexe Preisermittlung für 2 Preiskomponenten.
das Problem:
Ich muss jetzt viele einzelne Mengenwerte mit der Kalkulation rechnen.
Funktioniert einwandfrei mit Zielwertsuche - aber:
ich muß die Zielwertsuche x-mal aufrufen und di...
10.06.2010 11:22:25
Thread-ID: 1161196
2 Beiträge
Zielwertsuche
Marek

Hallo miteinander,
ich habe eine Frage die sich auf die Zielwertsuche bezieht.
Gibt es jemanden hier der sich damit aus kennst? Müsste demjenige etwas per Email zukommen lassen weil beschreiben lässt sich das hier nicht in paar Worten.
Danke
31.07.2010 16:16:26
Thread-ID: 1169820
6 Beiträge
Makro für Excel Zielwertsuche
Tobias

Hallo,
ich muss eine Exel-Zielwertsuche für mehrere 100 Zeilen durchführen. Ich habe es geschafft ein Makro zu erstellen, was die Zielwertsuche für eine Zeile durchführt. Könnte mir bitte jemand sagen, was ich an dem folgenden Makro ändern muss, damit die Zielwertsuche in allen Zeilen des B...
16.09.2010 11:20:57
Thread-ID: 1178013
2 Beiträge
Zielwertsuche; aus Nettolohn Bruttolohn berechnen
Gerd

Hallo Excelfreunde,
bei der Suche danach, wie man mit Excel aus einem vorgegeben Nettolohn den Bruttolohn errechnet, bin ich auf die Frage von Gert v. 18.12.05 unter dem Betreff “Netto-Brutto Rechner” gestoßen.
Dazu hat Boris am 18.12.05 unter “Das ist ne ganz einfach Zielwertsuche“...
16.02.2011 22:05:16
Thread-ID: 1201286
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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