Code funktioniert nicht im gesamten Arbeitsbereich
17.08.2015 08:41:57
Timo
ich verwende folgenden Code, um an einer bestimmten Stelle im Tabellenbaltt eine neue Zeile einzufügen:
Sub Zeileneinfügen()
Dim s As String
s = InputBox("Bitte Wert eingeben")
Dim lng As Long
With ActiveSheet
For lng = .Range("C25").End(xlUp).Row To 1 Step -1
If .Cells(lng, 3).Value = s Then .Rows(lng).Insert Shift:=xlDown
Next lng
End With
End Sub
Dieser Code funktioniert in einer Test-Datei problemlos und auch in den ersten Zeilen meines Tabellenblatts. Ebenso funktionierte der Code in der vergangenen Woche noch für den kompletten Arbeitsbereich.
Das einzige was ich verändert habe, ist die Verknüpfung der Werte in Spalte C (mit Wenn-Funktion aus Tabelle 2).
Ich denke aber, dass dies keine Ursache sein kann, da ich bspw. in Zeile 20 einen beliebigen Wert eingegeben habe und es dennoch zu einem Laufzeitfehle bzw. einer Typ-Unverträglichkeit kommt. Weiterhin wird das Anzeigen der Werte in Spalte C über eine Filter in Spalte A gesteuert.
Hat jemand eine Idee, was die Ursache sein könnte?
Viele Grüße,
Timo