Wenn If, dann starte Makro endet nicht
03.03.2022 10:34:58
gkhn61
ich verzweifle seit einigen Stunden an einem Befehl.
Und zwar versuche ich bei einem bestimmten Text in Zelle B4 (welches mehrere Textmöglichkeiten über Dropdown bietet) ein Makro zu starten, welches eine Tabelle aus einem anderen Arbeitsblatt in Zelle A7 einfügt.
Das klapp eigentlich auch, allerdings möchte ich, dass bei neuer Text-Auswahl in Zelle B4 die alte Tabelle entfernt und eine neue Tabelle aus einem anderen Arbeitsblatt eingefügt wird. Genau das soll mein Makro machen.
Das Problem ist, dass meine If Bedingung scheinbar eine nicht endende Schleife auslöst und ständig löscht und wieder rein kopiert.
Ich habe auch schon einige Stunden mit der Lösungssuche in etlichen Foren durch und hoffe, dass ihr mir helfen könnt.
Hier mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B4").Value = "906 - Fassade" Then
Call Fassade
End If
End Sub
Sub Fassade()
Rows("7:7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Sheets("Fassade").Select
Range("Tabelle1[#All]").Select
Selection.Copy
Sheets("Eingabe").Select
Range("A7").Select
ActiveSheet.Paste
End Sub
gkhn61