Eine Familie von Microsoft-Tabellenkalkulationsprogrammen mit Tools zum Analysieren, Darstellen und Vermitteln von Daten.
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