Tabellenblatt hinzufügen Wenn
03.03.2021 17:15:53
Christoph
ich möchte gerne in einem Tabellenblatt mit dem Tabellenblattname "Übersicht" ein Event Makro haben, welches sobald ab der Zeile 8 in Spalte D bis M und Spalte AG Werte stehen, mir ein neues Tabellenblatt angelegt wird mit dem Tabellenblattnamen "1" und mir den Tabellenblattnamen (in dem Fall "1") in Spalte A einträgt. Für Zeile 9 ein Tabellenblatt mit dem Namen "2" usw.
Sollte Zeile 10 frei sein und in der Zeile 11 etwas stehen, so wäre der Tabellenblattname "4" und in Spalte A würde eine 4 stehen.
Die Spalte "A" des Tabellenblatts "Übersicht" sollte hierbei immer gesperrt sein, sprich hier kann nichts händisch eingetragen werden, sondern nur über das Makro.
Ich dachte der Anfang wäre so in der Art, weiß aber nicht weiter:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 3 & 33 And Target.Row > 7 Then
Gruß Christoph