ich komme bei einem Problem nicht weiter.
Habe ein UserForm mit dem Namen: Menue, auf diesem UserForm gibt es für jede Woche des Jahres ein Commandbutton. Wobei CommandButton1 die erste Woche, CommandButton2 die zweite Woche......usw. des Jahres darstellt. Jeder Button Verweist auf ein sheet des Workbooks (1. Woche, 2.Woche....).Ich möcht jetzt dass sich die Beschriftung aller Buttons auf dem UserForm "Menue" aus einem weitern Userform "tools" per commandButton neu beschriftet wird. Die Beschriftung soll sich aus dem Inhalt zweier Zellen aus dem jeweiligen Sheet zusammensetzen
Beispiel
Durch Click auf CommandButton1 im UserForm "Tools" ändern sich 53 Beschriftung der CommandButtons auf dem UserForm "Menue" in Abhängigkeit der Zuordnung der sheets. D.H.
CommandButton1 heißt wie der inhalt des sheets "Tabelle1"der Zelle "a1 "& - &" a10"
CommandButton2 heißt wie der inhalt des sheets "Tabelle2"der Zelle "a1 "& - &" a10"
CommandButton3 heißt wie der inhalt des sheets "Tabelle3"der Zelle "a1 "& - &" a10"
Hat da jemand eine Idee
Hier mal die Richtung die ich eingeschlagen habe
privat sub CommandButton1_Click()
Dim x as integer
Dim Datzel1 as String
Dim Datzel2 as String
Dim reiter as String
For x = 1 to 53
on error goto ErrorMeldung
datzell1 = sheets (x). Range ("a1")
datzell2 = sheets (x). Range ("a10")
reiter = datzel1 & (" - ") & datzel2
sheets (x).Name = reiter
' hier müsste jetzt die routine rein, die das userForm Menue,CommandButton1 auswählt, und als Beschriftung den reiter nimmt. Beim nächsten Durchgang wieder UserForm Menue, jetzt aber CommandButton2 und als Beschriftung den neu generierten Reiter einträgt.
next x
tools.hide
msgbox "es wurde das Datum in " & x & "Reitern, und den dazugehörigen Buttons geändert"
errorMeldung:
msgbox err.description,,err.Number
end sub
Danke schon mal
Frank