ich möchte in einer Tabelle einen variablen Bereich kopieren, dazu muss ich die Spalten suchen die in z.B. A1 den gesuchten Wert enthalten. Diese muss ich dann auswählen und von dem ersten Suchergebnis und dem zweiten die Spalten übernehmen um diesen Bereich dazwischen zu kopieren.
Mein bisheriger Versuch sieht so aus:
Spaltevon = Sheets("Tabelle3").Range("A1:BA1").Find(Suchwertvon).Column
Spaltebis = Sheets("Tabelle3").Range("A1:BA1").Find(Suchwertbis).Column
Sheets("Tabelle3").Range(Cells(1, Spaltevon), Cells(2, Spaltebis)).Copy _
Destination:=Sheets("Tabelle4").Range(Cells(1, Spaltevon), Cells(2, Spaltebis))
Leider gibt dieser Versuch nur eine Fehlermeldung aus:
Laufzeitfehler ´1004´:
Anwendungs- oder objektdefinierter Fehler
mfg Weber