Seite 1 von 2
(Gelöst) Ich Sehe mein Fehler nicht
Verfasst: So 23. Okt 2016, 16:14
von 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
Re: Ich Sehe mein Fehler nicht
Verfasst: So 23. Okt 2016, 16:52
von 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
Re: Ich Sehe mein Fehler nicht
Verfasst: So 23. Okt 2016, 17:07
von Atwist
Hallo gogo,
Was wird gemeint mit "DEIN_OBJEKT" ??
Re: Ich Sehe mein Fehler nicht
Verfasst: So 23. Okt 2016, 19:09
von 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
Re: Ich Sehe mein Fehler nicht
Verfasst: Mo 24. Okt 2016, 01:08
von 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
...
Re: Ich Sehe mein Fehler nicht
Verfasst: Mo 24. Okt 2016, 06:38
von 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) 3965 mal betrachtet
Re: Ich Sehe mein Fehler nicht
Verfasst: Mo 24. Okt 2016, 16:58
von F3K Total
Moin,
lade eine Beispieldatei (.ods) hoch, dann klappt es in 5 Minuten.
Gruß R
Re: Ich Sehe mein Fehler nicht
Verfasst: Mo 24. Okt 2016, 17:18
von gogo
SheetCopy.DrawPage.Forms.getByIndex(0).
... war nur geraten.
... der Wortlaut der Fehlermeldung wäre auch günstig
Re: Ich Sehe mein Fehler nicht
Verfasst: Mo 24. Okt 2016, 17:34
von Atwist
Re: Ich Sehe mein Fehler nicht
Verfasst: Mo 24. Okt 2016, 17:39
von Atwist
Ich konnte in die makro Dateien von Andrew Pitonyak auch nichts finden.