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

Beiträge aus den Excel-Beispielen zum Thema "Makro für fortlaufende Nummerierung"