in einem umfangreichen Tabellenwerk habe ich u.a. eine Raumliste in der Tabelle "5 Raumbuch" angelegt.
In Spalte $i$5:$i$1000 sind die benötigten Räume aufgelistet.
Mit nachfolgendem Makro erstelle ich aus einer Vorlage - "6 VorlageRaum" bisher die benötigten Tabellenblätter für jeden Raum einzeln.
Da ich keinerlei VBA-Kenntnisse besitze bitte ich um Hilfe für nachfolgende Aufgabenstellung:
In dieses Makro:
Sub NeuesTabBlatt()
Dim NewName As String
ActiveSheet.Copy After:=ActiveSheet
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
ActiveSheet.Name = NewName
Range("D3") = NewName
End Sub
bitte ich einzubinden, dass alle Räume aus Tabelle "5 Raumbuch" in Spalte $i$5:$i$1000 per Knopfdruck angelegt werden.Die Zeile im Makro "NewName = InputBox("Geben Sie einen Tabellenblattnamen ein") " wird dann sicher anders aussehen?
Vielleicht hat jemand eine Lösung mit der er mir helfen würde?
Vielen Dank und mit garantierter Rückmeldung
LG
obelix