Wie kann ich das aufbauen?
Grüße
Darren
Sub test()
Dim i As Integer, x As Integer
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To x
If Cells(i, 1) = "Die Nummer" Then
Range(Rows(i), Rows(x)).EntireRow.Delete
Exit For
End If
Next i
End Sub
Sub test()
Dim xtest As Integer
Dim itest As Integer
Dim Lrow As Integer
Dim Prognr As String
Prognr = 600
xtest = Cells(2, Columns.Count).End(xlToLeft).Column
Lrow = Cells(Rows.Count, xtest).End(xlUp).Row
For itest = 1 To xtest
If Cells(2, itest) = Prognr Then
Lrow = Cells(Rows.Count, itest).End(xlUp).Row 'ggf durch feste Zahl ersetzen
Range(Cells(2, itest), Cells(Lrow, itest)).ClearContents
End If
Next itest
End Sub