AW: Suchen/kopieren
24.09.2003 18:57:05
andre
hallo frank,
voraussetzung:
- tabelle 0 ist in der Blettliste die erste
- tabellen 1-25 stehen in geordneter reihenfolge nacheinander in der liste,
- der Suchbegriff steht in jeweils derselben spalte, im beispiel in A
dann in etwa so:
Sub Kopieren()
Dim iCounter As Integer
Dim rngAct As Range
Dim suchWert As String
Application.ScreenUpdating = False
suchWert = InputBox("Suche nach: ", "Suche")
For iCounter = 2 To 26
With Worksheets(iCounter)
.Columns("A:A").AutoFilter Field:=1, Criteria1:=suchWert
Set rngAct = .Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible)
rngAct.Copy Worksheets(1).Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
Next iCounter
Application.ScreenUpdating = True
End Sub
gruss andre