Hallo,
ich bin ein Anfänger was VBA angeht daher ist mein Code ziemlich improvisiert, macht aber zum Großteil was er soll. Ich habe dennoch ein Problem wozu ich keinen passenden Beitrag gefunden habe.
Mein Problem liegt in der letzten Zeile: Die Matrix die transponiert wird, bezieht sich immer auf die aktivierte Zelle (in Tabelle2) wo es hineinkopiert kopiert werden sollte.
Was ich jedoch möchte: Die Matrix die kopiert wird, sollte immer Offset(15,2) von der durch die Suche aktivierten Zelle (in Tabelle1) „beginnen“ und den Umfang 2 Zeilen und 7 Spalten umfassen. Unabhängig davon wo ich diese in Tabelle 2 Einfüge.
Würde mich freuen, wenn hier jemand weiterhelfen könnte.
Beste Grüße
Toni
Sheets("Tabelle1").Select
Columns("A:A").EntireColumn.Select
Selection.Find(What:="XYZ", After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Sheets("Tabelle2").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Formula2R1C1 = "=TRANSPOSE(Tabelle1!R[15]C[-2]:R[16]C[4])"
|