Option Explicit
Option Base 1
Sub problem1()
Dim ZeileMax As Long, Zeile As Double, Zahlx As Integer
Zahlx = InputBox("Bitte geben Sie den Wert ein, welchen Sie löschen möchten: ")
Worksheets(1).Activate
With Tabelle1
Range("A2").Select
ZeileMax = .UsedRange.Rows.count
End With
ReDim Vector(ZeileMax) As Variant
ReDim VectorZiel(ZeileMax) As Variant
Range("A1").Select
For Zeile = 1 To ZeileMax
Vector(Zeile) = ActiveCell.Offset(Zeile - 1).Value
Next Zeile
Worksheets(2).Activate
Range("A1").Select
For Zeile = 1 To ZeileMax
If Vector(Zeile) > Zahlx Then
VectorZiel(Zeile) = Vector(Zeile)
Zeile = Zeile + 1
End If
Next Zeile
For Zeile = 1 To ZeileMax
ActiveCell.Offset(Zeile - 1).Value = VectorZiel(Zeile)
Next Zeile
End Sub