nachdem ich mich seit gestern Mittag damit rumschlage und auch Google mir keine vernünftige Lösung liefert, frage ich doch endlich mal nach... Ich möchte einen Bereich in einem anderen Tabellenblatt einer Ursprungsdatei per Inputbox markieren (Inputbox, weil sich die jeweilige Ursprungsdatei ständig in ihrem Aufbau ändert) und diese Eingabe als Range abspeichern. Soweit, so gut. Aber wenn ich dieses Range-Objekt später ansprechen will, klappt es nicht, geschweige denn, das Range in einer Formel zu verwenden....
bisheriger Code:
Sub MonatZuWoche()
'
' MonatZuWoche Makro
'
Dim FCBereich As Range
...
Dim FCBereich As Range
...
Set FCBereich = Application.InputBox(prompt:="Forecast markieren" & vbCr & "(inkl. Überschriften)", Type:=8)
wird per Maus in Tabellenblatt1 ausgewählt, beispielsweise $J$2:$Q$32
Sheets.Add After:=Sheets(Sheets.Count)
FCBereich.Select
(wird in Tabellenblatt 2 eingegeben) Laufzeitfehler 1004: Select-Methode des Range-Objektes konnte nicht ausgeführt werden.
und wenn ich schon schreibe... wie kann ich so ein Range anschließend in eine Formel einbauen? die folgende scheint auch nicht zu funktionieren (Formel an sich funktioniert, aber wenn ich das aufzeichne, will ich den aufgezeichneten Bereich durch das Range-Objekt ersetzen weil sich das wie gesagt ständig ändert)
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(MONTH(R1C)," & FCBereich & ",ROW(RC[-1])-1,FALSE)/DAY(DATE(YEAR(R1C),MONTH(R1C)+1,1)-1)"
ich hoffe ich konnte einigermaßen ausdrücken wo mein Schuh grade drückt