Guten Morgen.
Ich möchte 48 Buttons mit Zelleninhalten aus B1 bis AW1 beschriften. Leider scheitere ich an der Schleifenbildung.
Bevor ich nun mühsam den nachfolgenden Code vervollständige, frage ich euch um Rat.
Vielen Dank für die Hilfe.
Gruß
Uwe
Ich nehme mal Deinen Code und ergänze bzw. verbessere. Musst halt evt. die entsprechenden Parameter anpassen oder besser vorher aus dem Dokument auslesen.
Sub Button_Name
oDoc = thisComponent
oSheet = oDoc.Sheets.getByName ("Faktorisierung")
oForm = oSheet.DrawPage.Forms.GetByIndex(0)
For i = 1 to 48
with oForm.getByName("PushButton" & i)
.Label = ThisComponent.sheets.getByName("Tabelle1_2").getCellByPosition(i, 1).String
.Helptext = ThisComponent.sheets.getByName("Tabelle1_2").getCellByPosition(i, 1).String
end with
next
End Sub
Warum Du allerdings sowohl das Label als auch den Hilfetext mit dem gleichen Inhalt füllt, mag Dein Geheimnis bleiben;) Ist sicher unsinnig....
Hallo Tom.
Vielen Dank dafür. Ja, das sieht viel besser aus;-)
Da der Zelleninhalt manchmal länger ist und als Schaltflächenbeschriftung abgeschnitten wird kann man ihn halt erkennen, wenn der Mauszeiger darauf ruht.
Gruß
Uwe