Zielwertsuche verfeinern
08.07.2016 07:06:17
Ralf
ich habe mit dem Makrorekorder folgendes aufgezeichnet und ein bisschen nachbearbeitet (im Rahmen meiner Möglichkeiten):
Sub Makro1()
Range("Q18").Select
Selection.Copy
Range("AE18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
Range("P18").Select
Selection.ClearContents
Range("Q18").Select
Range("Q18").GoalSeek Goal:=Range("AE18"), ChangingCell:=Range("M18")
Range("L18").Select
Selection.ClearContents
Range("Q18").Select
Range("Q18").GoalSeek Goal:=Range("AE18"), ChangingCell:=Range("K18")
Range("Q18").Select
Selection.Copy
Range("AF18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
End Sub
Wie kann ich nun die Zeilennummer variabel gestalten? Ich möchte das Makro in der Zeile ausführen, in der gerade die Zelle aktiv ist.
Kann mir da bitte jemand helfen?
Vielen Dank im Voraus.
Viele Grüße
Ralf