[Gelöst] Button-Beschriftung - elegantere Lösung?

[retuwe61]

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

Code: Alles auswählen

Sub Button_Name
oDoc = thisComponent
oSheet = oDoc.Sheets.getByName ("Faktorisierung")
oForm = oSheet.DrawPage.Forms.GetByIndex(0)

sButton1 = "PushButton1"
sButton2 = "PushButton2"
'usw.

oBtnA1 = oForm.getByName(sButton1)
oBtnA1.Label = ThisComponent.sheets.getByName("Tabelle1_2").getCellRangeByName("B1").String
oBtnA1.Helptext = ThisComponent.sheets.getByName("Tabelle1_2").getCellRangeByName("B1").String
oBtnA2 = oForm.getByName(sButton2)
oBtnA2.Label = ThisComponent.sheets.getByName("Tabelle1_2").getCellRangeByName("C1").String
oBtnA2.Helptext = ThisComponent.sheets.getByName("Tabelle1_2").getCellRangeByName("C1").String
'usw.

End Sub

[Toxitom]

Hey Uwe,

na, das ist doch nicht so kompliziert;)

Ich nehme mal Deinen Code und ergänze bzw. verbessere. Musst halt evt. die entsprechenden Parameter anpassen oder besser vorher aus dem Dokument auslesen.

Code: Alles auswählen

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....

Viele Grüße
Tom

[retuwe61]

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