Herbers Excel-Forum - das Archiv

Kopier-Makro

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Kopier-Makro
von: Moppel

Geschrieben am: 13.03.2005 19:59:17
Ich habe eine Tabelle mit 13 Blätten. Blatt 3 soll nur dazu da sein bestimmte Datensätze aus Blatt 4-13 zu filtern und anzuzeigen (Auf diesem Blatt sollen nur ein paar schalter sein, um die suchkriterien anzugeben). Gibt es dafür vordefinierte Makros? Ich bin alsoluter VB anfänger. Zu diesem Problem gibt es aber schon mehrer Beiträge (in vielen Foren). Aber keiner passt so 100%ig. Falls das Problem nicht klar ist, dann kann ich auch die Tabelle zumailen.
Danke falls mir jemand halfen kann :)
Bild

Betrifft: AW: Kopier-Makro
von: opaharry

Geschrieben am: 15.03.2005 08:32:41
Bei diesem Makro werden die gefundenen Zeilen die den Suchbegriff enthalten in ein neu erstelltes Blatt kopiert.Kannste ja eventuell anpassen.
Sub MultiSeek()
Dim rng As Range
Dim sFirst As String
Dim sFind As String
Dim wks As Worksheet, neu As Worksheet
Dim lRow As Long
sFind = InputBox("Geben sie das gesuchte Wort oder" & vbLf & _
"den gesuchten Wortteil ein:", "Suchen", "")
If sFind = "" Then Exit Sub
Set neu = Worksheets.Add(before:=Sheets(1))
neu.Name = "Suche_" & Format(Now, "dd.mm.yy_hhmmss")
For Each wks In ThisWorkbook.Sheets
If wks.Name <> neu.Name Then
Set rng = wks.Cells.Find(What:=sFind, LookIn:=xlValues, LookAt:=xlPart)
If Not rng Is Nothing Then
sFirst = rng.Address
Do
lRow = lRow + 1
wks.Rows(rng.Row).Copy neu.Cells(lRow, 1)
Set rng = wks.Cells.FindNext(rng)
Loop While rng.Address <> sFirst
End If
End If
Set rng = Nothing
Next
End Sub

 Bild