Worksheet + Schaltfläche aus Vorlage erstellen
08.11.2017 22:15:56
Entropie
zunächst einmal vielen Dank für die hilfreichen Beiträge, von welchen ich als stiller Leser bereits zahlreiche Male profitieren konnte.
Nun aber zum eigentlichen:
In einer Arbeitsmappe sollen bis zu n "Klienten" verwaltet werden können. Zu jedem Klienten gehören je x Worksheets.
Die x Worksheets sind über eine Hauptseite mittels Schaltflächen erreichbar.
Nun möchte ich gerne via Schaltfläche einen Klienten mit seinen x Worksheets und den dazugehörigen x Schaltflächen generieren können. Die Worksheets sollen dabei aus Vorlagen kopiert werden die sich im Hintergrund befinden und so benannt, dass sie mit den bereits geschriebenen Macros für die Schaltflächen korrespondieren können. Die Namen der einzelnen Worksheets beginnen mit einer Zahl n, Leerzeichen, Worksheetname.
Eine Teillösung (Danke Ramses), die ich aus diesem Forum bereits mitnehmen könnte lautet:
Sub CreateClient()
Worksheets("Vorlage").Copy
ActiveSheet.Name = "Worksheetname " & Worksheets.Count - 2
End Sub
Wenn ich das richtig verstehe, dann wird hier allerdings nach dem Namen nummeriert. (Im Zweifel würde ich dann noch mal den ganzen Hardcode umschreiben). Eine Alternative wäre dennoch hilfreich, sofern es sie gibt.
Eine Möglichkeit gleich die Schaltflächen mit zu erstellen habe ich in einer Teillösung hier _
entdeckt:
Sub Button()
Dim NewButton As Object
Set NewButton = Tabelle1.Buttons.Add(255, 1, 180, 20)
NewButton.Caption = ""
NewButton.Font.Bold = True
NewButton.OnAction = " . "
End Sub
Wie kann ich die Position bestimmen, wo der Button hinkommt und zu guter letzt:
Hat jemand eine Idee wie man das in einem Macro zusammenfassen kann?
Ich hoffe ich konnte mein Anliegen nachvollziehbar schildern und jemand weiß damit was _
anzufangen.
Für Hilfe bin ich dankbar.
Liebe Grüße
Entropie