Makro erzeugt in Excel je ein Blatt pro Ergebnis - alle Ergebnisse sollen jedoch auf ein Blatt

Question

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

Answer 1

Hallo Anna,

erkläre mal am besten genau, was dein Makro machen soll. Denn so wie ich es sehe, werden die Inhalte einer Liste jeweils gefiltert und dann in ein eigenes Arbeitsblatt kopiert, die kopierten Daten gelöscht und zum Schluss wird das Orginalblatt gelöscht.

Ich möchte jedoch, dass alle Ergebnisse unter einander auf einem Blatt in Excel erzeugt werden.

Wozu dann der ganze Aufwand? Du hast doch schon eine Liste? Oder willst du einfach die Liste kopieren? Oder auch nur sortieren?

Gruß

M.O.