Hallo,
ich hoffe es kann mir jemand helfen. Ich habe folgendes Makro:
Do
txt = sh2.Cells(2, 1)
If txt = "" Then Exit Do
Set sh = Sheets.Add
sh.Name = txt
sh2.Cells(1, 1).CurrentRegion.AutoFilter Field:=1, Criteria1:=txt
With sh2.AutoFilter.Range
With .Offset(1, 0).SpecialCells(xlCellTypeVisible)
.Copy sh.Cells(1, 1)
.EntireRow.Delete
End With
End With
Loop
Application.DisplayAlerts = False
sh2.Delete
Application.DisplayAlerts = True
End Sub
Das Problem ist: Jedes Ergebnis wird in Excel auf einem separatem Blatt erzeugt. Ich möchte jedoch, dass alle Ergebnisse unter einander auf einem Blatt in Excel erzeugt werden.
Grüße