Suchen/kopieren

• Suchen/kopieren von Frank vom 24.09.2003 17:34:15
  • AW: Suchen/kopieren - von andre am 24.09.2003 18:57:05
    • AW: Suchen/kopieren - von Frank am 25.09.2003 10:19:10

Betrifft: Suchen/kopieren
von: Frank

Geschrieben am: 24.09.2003 17:34:15

Hallo
kann mir jemand helfen?
ich möchte gern in die Tabelle 0 nur die Zeilen aus den Tabellen 1 bis 25 hineinkopieren, die in einer Zelle den Suchbegriff enthalten (z.B.ein bestimmtes Datum),ist dies möglich?
Danke
Frank


Betrifft: AW: Suchen/kopieren
von: andre
Geschrieben am: 24.09.2003 18:57:05

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




Betrifft: AW: Suchen/kopieren
von: Frank
Geschrieben am: 25.09.2003 10:19:10

besten Dank

ich werde es gleich probieren


Frank