Ich habe ein Problem in VBA und hoffe, dass mir jemand von euch weiterhelfen kann. Leider bin ich kein VBA-Profi und habe auch nichts passendes in den diversen Foren gefunden.
Ich muss in der Tabelle "Daten" in der Spalte S (bzw.18) alle Zeilen deren Spaltenwert kleiner als 30 ist in die Tabelle "Daten30" kopieren.
Dazu verwende ich folgende VBA Makro:
Sub datenunter30()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Daten
ZeileMax = .UsedRange.Rows.Count ************
n = 6
For Zeile = 6 To ZeileMax
If .Cells(Zeile, 18).Value > 30 Then
.Rows(Zeile).Copy Destination:=Daten30.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
************ hier zeigt der Debugger den Fehler "Laufzeit 424-Objekt erforderlich" an.
Wahrscheinlich ist es nur eine Kleinigkeit die falsch ist, aber ich kann den Fehler leider nicht finden.
Ich hoffe, dass mir jemand weiterhelden kann.
LG Michael