Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bereich auswählen mit variabler Spalte

Bereich auswählen mit variabler Spalte
28.11.2016 09:30:01
Weber
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich auswählen mit variabler Spalte
28.11.2016 09:36:34
ChrisL
Hi
Bei Cells musst du ebenfalls die Angabe zum Worksheet machen.
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim Suchwertvon As String, Suchwertbis As String
Dim Spaltevon As Integer, Spaltebis As Integer
Suchwertvon = "a"
Suchwertbis = "b"
Set WS1 = Worksheets("Tabelle3")
Set WS2 = Worksheets("Tabelle4")
With WS1
Spaltevon = .Range("A1:BA1").Find(Suchwertvon).Column
Spaltebis = .Range("A1:BA1").Find(Suchwertbis).Column
.Range(.Cells(1, Spaltevon), .Cells(2, Spaltebis)).Copy _
Destination:=WS2.Range(WS2.Cells(1, Spaltevon), WS2.Cells(2, Spaltebis))
End With
End Sub

cu
Chris
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige