VBA in aktiver Spalte
11.01.2023 11:34:00
Marcus
ich habe folgenden Code:
-----------------------------------------------------------------------------------------------------------------------------------------------
Sub Sverweise_Pro()
' Sverweise_Pro Makro
' Sucht alle Pro aus Tabelle
Range("BA5").Select
ActiveCell.FormulaR1C1 = _
"=XLOOKUP(RC[-52], '[Pro.xlsx]Alle'!R11C6:R49C6, '[Pro.xlsx]Alle'!R11C9:R49C9, FALSE)"
Range("BA16").Select
ActiveCell.FormulaR1C1 = _
"=XLOOKUP(RC[-52], '[Pro.xlsx]Alle'!R11C6:R49C6, '[Pro.xlsx]Alle'!R11C9:R49C9, FALSE)"
End Sub
Der Code liefert auch die gewünschten Ergebnisse.
Nun ist mein Problem, dass der Code jeden Monat in einer neu hinzugefügten Spalte greifen soll.
Diesen Monat also in den Zellen "BA6" und "BA16", im nächsten Monat in den Zellen "BB6" und BB16.
Die benötigte Spalte befindet sich immer links neben der Spalte "Summen".
Ermitteln kann ich die ja über:
With Rows(1).Find(what:="Summen", lookat:=xlWhole).EntireColumn
Wie kann ich es aber erreichen, dass der oben genannte Code auch nur immer in dieser Spalte greift?
Sollte das zu umständlich sein, wäre mir auch geholfen wenn der Code immer in der aktiven Spalte ausgeführt wird und die Ergebnisse in Zeile 5 und Zeile 16 einfügt.
Danke Euch im Voraus für Hilfe!
VG
Marcus