Thema Datum  Von Nutzer Rating
Antwort
09.04.2015 10:29:14 Sherlock
NotSolved
Blau Betsimmte Zeilen aus verschiedenen Blättern kopieren
 11.04.2015 00:40:39 Gast46642
NotSolved
13.04.2015 10:34:31 Gast33311
NotSolved

Ansicht des Beitrags:
Von:
Gast46642		 Datum:
11.04.2015 00:40:39		 Views:
966		 Rating:
     
Antwort:
  Ja
Thema:
Betsimmte Zeilen aus verschiedenen Blättern kopieren		 
Option Explicit

Sub Bsp()
  
  Dim wksDest As Excel.Worksheet
  Dim wks As Excel.Worksheet
  Dim rng As Excel.Range
  
  Set wksDest = Worksheets("Test") 'Zielort
  
  For Each wks In Worksheets
    
    Select Case wks.Name
      Case "Montag", "Dienstag", "Test"
        'überspringen
        
      Case Else
        
        'Spalte B filtern
        Call wks.Range("B1:F1").AutoFilter(1, "K*")
        
        With wks.AutoFilter.Range
          On Error Resume Next
          Set rng = Nothing
          '1. Zeile nicht berücksichtigen
          Set rng = .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible)
          On Error GoTo 0
        End With
        
        'Filter wieder ausschalten
        Call wks.Range("B1:F1").AutoFilter
        
        If rng Is Nothing Then
          'keine Filterergebnisse
        Else
          With wksDest
            'in Spalte A die letzte Zeile suchen und darunter die Daten anhängen
            Call rng.Copy(Destination:=.Cells(.Rows.Count, "A").End(xlUp).Offset(1))
          End With
        End If
        
    End Select
    
  Next
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.04.2015 10:29:14 Sherlock
NotSolved
Blau Betsimmte Zeilen aus verschiedenen Blättern kopieren
 11.04.2015 00:40:39 Gast46642
NotSolved
13.04.2015 10:34:31 Gast33311
NotSolved