Excel VBA Zahl in Zelle X Hochzählen bis wert in Zelle Y 0 ist

Leider habe ich nur das Problem, dass es beim Makro zum Laufzeitfehler kommt, da einige Zellen in der Spalte leer sind, 0 oder #WERT enthalten.

Das ist kein Problem des Makros an sich, sondern Deines Blattes. Und das gefundene Makro kannst Du vergessen, das macht was anderes.
<br />Also zeichnen wir einfach mal ein Makro auf:
<br />Sub Makro1()
Range("G2").Select
Range("G2").GoalSeek Goal:=0, ChangingCell:=Range("A2")
End Sub
<br />

<br />Das SELECT können wir gleich löschen, das brauchen wir nicht, bleibt nur eine Zeile über die macht alles.
<br />Das Range("G2") gibt ein RANGE Objekt zurück, das ersetzen wird durch eine Variable "Dim R As Range".
Dann brauchen wir nur noch eine Schleife die alle Zeilen durchläuft "For Each R In Range("G2:G20")".
<br />Beim Range("A2") ersetzen wir die 2 durch die Zeile in der R gerade ist => R.Row
<br />Dann machen wir noch eine Prüfung ob in R überhaupt eine Formel ist "If R.HasFormula Then"
<br />Sub Makro1()
Dim R As Range
For Each R In Range("G2:G20")
If R.HasFormula Then
R.GoalSeek Goal:=0, ChangingCell:=Range("A" & R.Row)
End If
Next
End Sub
<br />Und um automatisch zu ermitteln wo das Ende in Spalte G ist ersetzen wir
Range("G2:G20")
<br />durch
<br />Range("G2", Range("G" & Rows.Count).End(xlUp))
<br />Das wars. Alles klar soweit?
<br />Andreas.
<br />

Dafür braucht es kein VBA und für eine so simple Aufgabe kann man die Zielwertsuche verwenden.
https://support.microsoft.com/de-de...abewerts-320cb99e-f4a4-417f-b1c3-4f369d6e66c7
<br />Daten \ Datentools \ Was wäre wenn Analyse \ Zielwertsuche
<br />



<br />Und OK klicken. Für komplexere Modelle gibt es den Solver in Excel.
https://support.microsoft.com/de-de...n-solver-5d1a388f-079d-43ac-a7eb-f63e45925040
<br />Andreas.
<br />

Hi,
<br />vielen Dank für Deine Antwort, das war schonmal ziemlich hilfreich.
<br />Allerdings möchte ich mehrere Zeilen gleichzeitig anpassen.
<br />Ich habe auch ein passendes Makro gefunden:
<br />

Sub myGoalSeek()

Dim i As Long

Dim LRow As Long

Dim myGoal As Integer

myGoal = 0

With ActiveSheet

LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

For i = 2 To LRow

.Range("N" & i).GoalSeek Goal:=myGoal, _

ChangingCell:=.Range("A" & i)

myGoal = myGoal + 0.01

Next

End With

End Sub

<br />Leider habe ich nur das Problem, dass es beim Makro zum Laufzeitfehler kommt, da einige Zellen in der Spalte leer sind, 0 oder #WERT enthalten.
<br />Ist es möglich das nur Zellen aus der Spalte berücksichtigt werden, welche Zahlen enthalten?
<br />Bzw. gibt evtl. doch eine einfachere Lösung?
<br />Mit dem Solver ist es leider auch nicht möglich mehrere Zielzellen gleichzeitig auszuwählen.
<br />

Hallo,

das bedeutet, dass "" angezeigt wird, wenn A1<=0 ist.

Das Datum wird Excel-intern als fortlaufende Zahl der Tage ab dem Startdatum der Excel-Zeitrechnung (01.01.1900) gespeichert und nur das Format lässt diese Zahl als Datum in der Zelle erscheinen.

Wenn eine Zelle leer ist, hat sie den Wert 0. Gebe einmal eine 0 in eine Zelle ein und formatiere sie dann als Datum. Du bekommst dann 00.01.1900 und deswegen ist bei einer leeren Zelle der Monat immer 1.

Claus

Wie kann ich folgendes anstellen: Zelle X ist immer gleich Zelle Y, egal welche von beiden ich ändere. Wenn ich X ändere, wird Y=X, oder wenn ich aber Y ändere, wird X=Y. Im Idealfall am besten mit mehr als zwei Zellen (X=Y=Z etc.)?

Das geht nur mit VBA. Wenn Du ein konkretes Beispiel aufzeigst, am besten machst Du eine Beispieldatei, dann können wir Dir einen Code geben.

Melde Dich bei
https://onedrive.live.com an (verwende dieselbe Login-ID und dasselbe Passwort wie für dieses Forum).

Klicke oben auf Hochladen und wählen die Datei aus.

Klicke nach dem Hochladen mit der rechten Maustaste auf die Datei und wähle Teilen.

Klicke unten auf Link kopieren.

Kopiere den Link und poste ihn hier.

Andreas.