Gruppe
Allgemein
Problem
Wie kann ich eine bestimmte Warengruppe einer Tabelle per VBA filtern, in ein neu zu erstellendes Arbeitsblatt übertragen und dieses nach der Warengruppe benennen?
StandardModule: basMain
Sub GruppenNummer()
Dim rng As Range
Dim sFilter As String
Application.ScreenUpdating = False
sFilter = InputBox( _
prompt:="Gruppe eingeben:", _
Default:="Ware 3")
If sFilter = "" Then Exit Sub
Range("A1").AutoFilter Field:=1, Criteria1:=sFilter
Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Worksheets.Add.Move After:=Worksheets(Worksheets.Count)
rng.Copy Range("A1")
Columns("A:B").AutoFit
ActiveSheet.Name = sFilter
rng.Parent.Select
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub