(Gelöst) Ich Sehe mein Fehler nicht

[F3K Total]

Hallo,
alles soweit richtig, aber der Button kann nie .State = 1 erreichen, solange er nicht umschaltbar ist:

SwitchButton.PNG (40.27 KiB) 2002 mal betrachtet

Stelle Umschalten auf Ja, dann geht es.

Gruß R

[Atwist]

Ach, so etwas einfaches.
Nur so ein einfache klick, dar bekommt man ja graue harre von.

@ F3k total danke für die Lösung.

@gogo danke für die Code

[karolus]

Hallo

Wofür wird denn wohl das Argument 'oEvent' an die Sub durchgereicht
Ohne den toten Code, und Copy&paste in einer 'for each'--Schleife:

Code: Alles auswählen

sub DataNaarFebruari (oEvent)
    button = oEvent.Source.Model  '# da ist ja der button #'
       Doc = ThisComponent
       Sheets = Doc.Sheets()
       SheetCopy = Sheets.getByName("Jan")
       SheetPaste = Sheets.getByName("Feb")
       rangenames = array("B3:C10", "B17:C38", "L7" )
       for each rangename in rangenames
           CopyRange = SheetCopy.getCellRangeByName(rangename)
           PasteRange = SheetPaste.getCellRangeByName(rangename)
           PasteRange.DataArray = CopyRange.DataArray
       next
       if button.State then
           button.Enabled = False
       end if    
       call GaNaarFebruari   
End sub

[Atwist]

Hallo Karolus,

Warum die "oEvent" da ist weiß ich nicht. hab mal gelesen das man das machen muss.

Dein Vorsachlack Lösung (Code) ist viel kurzer und einfacher, vielen dank dafür und die baue ich auch ein.