Filtern/kopieren/auslesen

Forumthread: Filtern/kopieren/auslesen

27.07.2004 09:04:56

sigi

Hallo Spezialisten,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Filtern/kopieren/auslesen

Beni
AW: Filtern/kopieren/auslesen

28.07.2004 00:09:27

sigi

AW: Filtern/kopieren/auslesen

Beni

Hallo Sigi,
probiere es mit diesem Code.
Gruss Beni


Private Sub cmdFilter_Click()
Dim iWks, r 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
lz = Worksheets("Print").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets(iWks).Range("A1").CurrentRegion.Copy Worksheets("Print").Cells(lz, 1)
Worksheets(iWks).AutoFilterMode = False
Next iWks
UserForm1.ListBox1.ColumnCount = 8
r = Cells(65536, 1).End(xlUp).Row
UserForm1.ListBox1.RowSource = "Print!A2:H" & r
End Sub


Private Sub UserForm_Initialize()
Dim r As Integer
UserForm1.ListBox1.ColumnCount = 8
r = Cells(65536, 1).End(xlUp).Row
UserForm1.ListBox1.RowSource = "Print!A2:H" & r
End Sub

AW: Filtern/kopieren/auslesen

28.07.2004 00:09:27

sigi

Hallo Beni,
leider funktioniert Dein Code bei mir nicht.
Ich will die Tabellenblätter 1-8 filtern und kopieren lassen.
Danach sollten diese im Blatt (Print) übertragen werden und dann in ein Listbox eingelesen werden.
Leider ist meine Arbeitsmappe so umfangreich das ich diese nicht Uploaden kann.
Trotzdem danke für Deine Hilfe
Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

Forumthread: Filtern/kopieren/auslesen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread