(Gelöst) Ich Sehe mein Fehler nicht

[Atwist]

Hallo Leute,

Hab wieder mal einen Problem, ich finde mein Fehler nicht
Alles Funktioniert außerhalb das IF teil.
Ich versuche hiermit der Knopf auszuschalten wenn er betätigt ist sodass die Daten nur ein mal kopiert werden.

Was sehe ich nicht.

Code: Alles auswählen

sub DataNaarFebruari (oEvent)
   Doc = ThisComponent
   Sheets = Doc.Sheets()
   SheetCopy = Sheets.getByName("Jan")
   SheetPaste = Sheets.getByName("Feb")
   CopyRange = SheetCopy.getCellRangeByName("B3:C10")
   PasteRange = SheetPaste.getCellRangeByName("B3:C10")
   PasteRange.DataArray = CopyRange.DataArray
   CopyRange = SheetCopy.getCellRangeByName("B17:C38")
   PasteRange = SheetPaste.getCellRangeByName("B17:C38")
   PasteRange.DataArray = CopyRange.DataArray
   CopyRange = SheetCopy.getCellRangeByName("K7")
   PasteRange = SheetPaste.getCellRangeByName("H2")
   CopyRange = SheetCopy.getCellRangeByName("L7")
   PasteRange = SheetPaste.getCellRangeByName("L7")
   PasteRange.DataArray = CopyRange.DataArray
  	 If
   	.getByName("NieuweMaand1").State = 1 then
   	.getByName("NieuweMaand1").Enabled = False
  	 End If
		call GaNaarFebruari   
End sub

[gogo]

Code: Alles auswählen

   PasteRange.DataArray = CopyRange.DataArray
   with DEIN_OBJEKT
      If .getByName("NieuweMaand1").State = 1 then
	      	.getByName("NieuweMaand1").Enabled = False
      End If
	end with

[Atwist]

Hallo gogo,

Was wird gemeint mit "DEIN_OBJEKT" ??

[Atwist]

Ich dachte das ich es gefunden hatte

Code: Alles auswählen

sub DataNaarFebruari (oEvent)
	Dim Button As Object
   Doc = ThisComponent
   Sheets = Doc.Sheets()
   SheetCopy = Sheets.getByName("Jan")
   SheetPaste = Sheets.getByName("Feb")
   CopyRange = SheetCopy.getCellRangeByName("B3:C10")
   PasteRange = SheetPaste.getCellRangeByName("B3:C10")
   PasteRange.DataArray = CopyRange.DataArray
   CopyRange = SheetCopy.getCellRangeByName("B17:C38")
   PasteRange = SheetPaste.getCellRangeByName("B17:C38")
   PasteRange.DataArray = CopyRange.DataArray
   CopyRange = SheetCopy.getCellRangeByName("K7")
   PasteRange = SheetPaste.getCellRangeByName("H2")
   CopyRange = SheetCopy.getCellRangeByName("L7")
   PasteRange = SheetPaste.getCellRangeByName("L7")
   PasteRange.DataArray = CopyRange.DataArray
   with Button
      If .getByName("NieuweMaand1").State = 1 then
         .getByName("NieuweMaand1").Enabled = False
      End If
   end with
	call GaNaarFebruari   
End sub

[gogo]

Das kann nicht funktionieren, Du musst dem Namen "Button" ein reales Objekt zuweisen, sonst weiss LO nur, dass "Button" auf ein Objekt verweisen soll, aber nicht auf welches.
z.B.:

Code: Alles auswählen

...
Dim Button As Object
...
Button = SheetCopy.DrawPage.Forms.getByIndex(0).getByName("NieuweMaand1")
...
   with Button
      If .State = 1 then
	      	.Enabled = False
      End If
	end with
...

oder einfach:

Code: Alles auswählen

...
   with SheetCopy.DrawPage.Forms.getByIndex(0).getByName("NieuweMaand1")
      If .State = 1 then .Enabled = False
	end with
...

[Atwist]

Hallo gogo,

Leider funktionieren beide nicht bei mir, der Fehler bin ich bin schon so lange hiermit beschäftigt das ich es nicht mehr sehe,

Code: Alles auswählen

sub DataNaarFebruari (oEvent)
   Dim Button As Object
   Doc = ThisComponent
   Sheets = Doc.Sheets()
   SheetCopy = Sheets.getByName("Jan")
   SheetPaste = Sheets.getByName("Feb")
   CopyRange = SheetCopy.getCellRangeByName("B3:C10")
   PasteRange = SheetPaste.getCellRangeByName("B3:C10")
   PasteRange.DataArray = CopyRange.DataArray
   CopyRange = SheetCopy.getCellRangeByName("B17:C38")
   PasteRange = SheetPaste.getCellRangeByName("B17:C38")
   PasteRange.DataArray = CopyRange.DataArray
   CopyRange = SheetCopy.getCellRangeByName("K7")
   PasteRange = SheetPaste.getCellRangeByName("H2")
   CopyRange = SheetCopy.getCellRangeByName("L7")
   PasteRange = SheetPaste.getCellRangeByName("L7")
   PasteRange.DataArray = CopyRange.DataArray
   with SheetCopy.DrawPage.Forms.getByIndex(0).getByName("NieuweMaand1")
      If .State = 1 then .Enabled = False
   end with
   call GaNaarFebruari   
End sub

oder

Code: Alles auswählen

sub DataNaarFebruari (oEvent)
   Dim Button As Object
   Doc = ThisComponent
   Sheets = Doc.Sheets()
   SheetCopy = Sheets.getByName("Jan")
   SheetPaste = Sheets.getByName("Feb")
   CopyRange = SheetCopy.getCellRangeByName("B3:C10")
   PasteRange = SheetPaste.getCellRangeByName("B3:C10")
   PasteRange.DataArray = CopyRange.DataArray
   CopyRange = SheetCopy.getCellRangeByName("B17:C38")
   PasteRange = SheetPaste.getCellRangeByName("B17:C38")
   PasteRange.DataArray = CopyRange.DataArray
   CopyRange = SheetCopy.getCellRangeByName("K7")
   PasteRange = SheetPaste.getCellRangeByName("H2")
   CopyRange = SheetCopy.getCellRangeByName("L7")
   PasteRange = SheetPaste.getCellRangeByName("L7")
   PasteRange.DataArray = CopyRange.DataArray
   Button = SheetCopy.DrawPage.Forms.getByIndex(0).getByName("NieuweMaand1")
   with Button
      If .State = 1 then
            .Enabled = False
      End If
   end with
   call GaNaarFebruari   
End sub

NieuweMaand1_Botton.png (7.55 KiB) 3966 mal betrachtet

[F3K Total]

Moin,
lade eine Beispieldatei (.ods) hoch, dann klappt es in 5 Minuten.
Gruß R

[gogo]

SheetCopy.DrawPage.Forms.getByIndex(0).
... war nur geraten.
... der Wortlaut der Fehlermeldung wäre auch günstig

[Atwist]

Beispiel.ods

(35.25 KiB) 183-mal heruntergeladen

[Atwist]

Ich konnte in die makro Dateien von Andrew Pitonyak auch nichts finden.