Thema Datum  Von Nutzer Rating
Antwort
11.10.2011 15:41:55 Gast4802
NotSolved
Blau Kombinierung von LastRow,Autofilter und CopySheet
 11.10.2011 18:57:47 Till
NotSolved
12.10.2011 09:21:56 Gast89110
NotSolved
13.10.2011 09:38:49 Gast89102
NotSolved
13.10.2011 22:40:50 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
11.10.2011 18:57:47		 Views:
971		 Rating:
     
Antwort:
  Ja
Thema:
Kombinierung von LastRow,Autofilter und CopySheet		 
Sub X()
Application.ScreenUpdating = False
Dim LastRow&, Krit%
Dim rng As Range, rng2 As Range, shTMD As Object, newSh As Object
    
    Set shTMD = Sheets("Total (Monthly Development)")
    'Hier wird der Autfilter gesetzt
        With shTMD
            LastRow = .Range("C3000").End(xlUp).Row 'letzte Zelle in Spalte C über Zeile 3000
            .AutoFilterMode = False
            Set rng = .Range(.Cells(3, 1), .Cells(LastRow, 8)) 'gefilterter Bereich
            Set rng2 = .UsedRange 'benutzter Bereich im Tabellenblatt
        End With
        rng.AutoFilter
        
    'Hier werden die sheets kopiert und nach dem criterium benannt. Da es nur sechs sind, habe ich die einzelnen Vorgänge mehrmals eingetippt. Geht bestimmt auch einfacher.
        For Krit = 6 To 1 Step -1
            delSheet CStr(Krit)
            Set newSh = Sheets.Add(, shTMD)
            With newSh
                .Name = Krit
                .Range(rng2.Address) = rng2.Value
                With .Range(rng.Address)
                .AutoFilter
                .AutoFilter Field:=6, Criteria1:=Krit
                .AutoFilter Field:=rng.Columns.Count - 1, Criteria1:="Actual"
                End With
            End With
        Next

Application.ScreenUpdating = True
End Sub

Private Sub delSheet(sh)
    Application.DisplayAlerts = 0
    On Error Resume Next
    Sheets(sh).Delete
    Application.DisplayAlerts = 1
End Sub

Bisschen kürzer... und sollte laufen...

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
11.10.2011 15:41:55 Gast4802
NotSolved
Blau Kombinierung von LastRow,Autofilter und CopySheet
 11.10.2011 18:57:47 Till
NotSolved
12.10.2011 09:21:56 Gast89110
NotSolved
13.10.2011 09:38:49 Gast89102
NotSolved
13.10.2011 22:40:50 Till
NotSolved