Office: Datenauswahl kopteren, VBA-Code

Hallo zusammen,

nachdem ich lange genug herumprobiert habe, wende ich mich vertrauensvoll an das Forum.

Ich möchte die mittels eines Makros durch Autofilter erzeugte Datenauswahl in ein anderes Tabellenblatt kopieren. Mein Problem ist, dass ich nicht weiss, wie ich den zu kopierenden Bereich ansprechen soll (die Daten erscheinen mit den Zeilennummern der Ausgangstabelle). Ich möchte auch nur einen Ausschnitt, d.h. von Spalte 2 bis 5 und von der zweiten bis zur letzten Zeile der Auswahl kopieren. Kann mir bitte jemand sagen, wie das in VBA-Code ausgedrückt wird? Danke im voraus.

Ach ja: Excel 2002

Freundl Gruss
Peter

 

Hallo!

Dieser Code filtert Tabelle1 nach "x" in Spalte C und kopiert die gefilterten Daten der Spalten B bis E nach Tabelle2!A1.
Damit müsstest du etwas anfangen können.

Code:

Sub test()
Dim oldFilter As Boolean
Dim Bereich As Range
With Sheets("Tabelle1")
oldFilter = .AutoFilterMode
If Not .AutoFilterMode = True Then .Range("A1").AutoFilter
.Range("A1").AutoFilter Field:=3, Criteria1:="x"
Set Bereich = Intersect(.Range("B2:E65536"), .UsedRange.SpecialCells(xlCellTypeVisible))
Bereich.Copy Sheets("Tabelle2").Range("A1")
.AutoFilterMode = oldFilter
End With
End Sub

 

Excel 2002] Datenauswahl kopieren, VBA-Code

Hallo,

@Schatzi,

das ist genau das, was ich wollte. Herzlichen Dank dafür!

Freundl. Gruss
Peter