Spalten kopieren B-E, G-I, K
09.01.2005 18:59:45
Sascha
würde gerne folgende Code zwecks Auswertung einer Tabelle weiter nutzen bzw. entsprechend anpassen.
Nur sollen künftig nur die Spalten B-E, G-H und die Spalte K in die neue Tabelle nebeneinander kopiert werden.
Wie muß ich die Zeile anpassen, habe mit ; oder , versucht, aber...?
qWks.Columns("A:O").Copy
Hier nochmal der Code im Zusammenhang:
Private Sub CommandButton2_Click()
Dim qWks As Worksheet, tarWks As Worksheet
Set qWks = Sheets("AES_Eingabe")
Set tarWks = Sheets("Liste_Bsp")
qWks.Columns("A:O").Copy
With tarWks
.Select
.Range("A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
.Range("A1").Select
With Selection
.AutoFilter
.AutoFilter Field:=1, Criteria1:="kauz"
End With
.PrintOut Copies:=1, Collate:=True
.AutoFilterMode = False
.Cells.ClearContents
End With
Sheets("Auswertungen").Select
End Sub
Danke
Gruß Sascha