Wie kann ich das denn am besten umsetzen?
Danke vorweg für die Hilfe und Grüße
Stefan
Private Sub Worksheet_Activate()
Dim i As Long
Me.UsedRange.Offset(1, 0).Clear 'alles löschen außer Überschrift
Application.ScreenUpdating = False
For i = 1 To 4
With Sheets(Format(i, "00")).Columns(16)
.Replace "UK", True
If WorksheetFunction.CountIf(.Cells, True) > 0 Then
With .SpecialCells(xlCellTypeConstants, 4)
.Value = "UK"
.EntireRow.Copy Me.Cells(Me.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
End If
End With
Next
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen