Filtern/kopieren/auslesen
27.07.2004 09:04:56
sigi
Folgendes Problem:
Abreismappe
Blatt1
Blatt2
Blatt 3- 10
Userform1
ComboBox1
Listbox1
CommandButton 1
CommandButton 2
In allen Tabellenblätter sind in Spalte A Datum`s eingetragen
Über die ComboBox1 sollten die Tabellenblätter 1-8 (Registerbezeichnung)
gefiltert und in der Listbox 1 ausgegeben werden
Mein Versuch scheitert kläglich!
Danke für Eure Hilfe!
Gruß
Sigi
Option Explicit
Private Sub cmdFilter_Click()
Dim iWks As Integer
If Controls("ComboBox1").ListIndex <> -1 Then
End If
For iWks = 2 To 8
Worksheets(iWks).Range("A1").AutoFilter _
Field:=1, _
Criteria1:=Controls("ComboBox1").Value
Next iWks
Worksheets(iWks).Range("A1").CurrentRegion.Copy _
Worksheets("Print")
ActiveSheet.Paste
Worksheets(iWks).AutoFilterMode = False
End Sub
Private Sub UserForm_Initialize()
UserForm1.ListBox1.List = Sheets("Print").Range("A2:H5001").Value
End Sub