VBA "...Worksheet_change..." funktioniert nicht
21.12.2016 01:15:31
Hansen
ich bin mit meinem Latein am Ende, darum hoffe ich das mir hier geholfen werden kann. Dafür schon mal vielen Dank!
Wenn zwischen den Zellen in denen ich Eingaben tätige und einer ausgeblendeten Zeile am unteren Ende (mit dem Schlüsselwort "Stop") der Tabelle keine leere Zelle (für Eingaben) mehr ist, wird besagte (Ausgeblendete) Zeile kopiert und genau darüber ("entleert" und eingeblendet) eingefügt.
Dafür habe ich, als VBA Laie, folgenden Code geschrieben:
Sub Test()
Dim Z1 As Integer, Z2 As Integer
For Z2 = 1 To 100
For Z1 = 1 To 1000
If Cells(Z1, Z2) = "" Then Exit For
If Cells(Z1, Z2) = "Stop" Then
Rows(Z1).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Rows(Z1).EntireRow.Hidden = False
Rows(Z1).ClearContents
Cells(Z1, Z2).Select
Exit For
End If
Next Z1
Next Z2
End Sub
Das ganze funktioniert soweit auch ganz gut (geht sicher auch einfacher...bin halt am üben :D), aber ich würde gerne dass, das Makro bei jeder neuen Eingabe in meiner Tabelle automatisch ausgeführt wird.
Jedoch Stürzt Excel fast jedesmal ab wenn ich "...Worksheet_Change(ByVal Target As Range)" benutze!?
Hoffe jemand kann mir sagen wo der Fehler liegt :/
Vielen Dank! :)