Hallo miteinander!
Ich möchte eine automatisierte Korrekturwertberechnung basteln.
Folgende Idee:
Wird in Zelle E138 ein Wert eingegeben, soll eine Zielwertsuche starten für Zelle E133 mit veränderlicher Zelle E126. Der Zielwert steht entsprechend in E138.
Das ganze soll zusätzlich noch variabel sein und für Spalte E:AB gelten.
Ich habe schon eine ähnliche Zielwertsuche implementiert, hier muss ich allerdings die Zelle manuell auswählen.
Dim rng As Range
Set rng = Application.InputBox(Prompt:="Please select column to be calculated with cursor or type in adress manually!", Title:="Column selection", Type:=8)
If Not rng Is Nothing Then
col = rng.Column
Sheets("Auslegung").Cells(133, col).GoalSeek Goal:=Sheets("Auslegung").Cells(138, col), ChangingCell:=Sheets("Auslegung").Cells(126, col)
End If
End Sub
Könnt ihr mir helfen?
Kann man das überhaupt machen, also ein makro was automatisch startet sobald in eine Zelle was eingetragen wird? Und wenn ja, wie krieg ich das hin? Wie muss ich dann die Zielwertsuche abändern?
Alternativ würde ich das mit nem Button machen, wie muss ich dann meine Zielwertsuche abändern, damit automatisch alle Spalten durchgerechnet werden (E bis AB)?
Meine VBA Kenntnisse sind noch ziemlich rudimentär, also bitte ich um Nachsicht.
Vielen Dank und Grüße
Fabian |