OpenOffice.info

Danke :D Funktioniert =)

Aber kann ich die Checkboxen auch erweitern bzw ziehen so, dass I6 zu I7 wird u so weiter ?

Sub Main(x)
	If x.Source.State= 1 Then
		ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("I6").Value = 8.5
	End If
End Sub

[quote]Möglichkeit 1:
Eine Checkbox in Zelle N6 soll bei True den Wert in Zelle I6 auf 8,5 setzen.
Wenn False dann tue nichts.
Kann eine Checkbox das?[/quote]

Indem man das Makro:

[code]Sub Main(x)
If x.Source.State= 1 Then
ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("I6").Value = 8.5
End If
End Sub[/code]

dem Ereignis "Status geändert" der Checkbox zuweist.


[quote]Bei google habe ich eine VBA lösung gefunden[/quote]

Diese Lösung (schreibe etwas in Zelle A wenn sich der Inhalt von Zelle B IRGENDWIE ändert) ist nicht das was Deiner Frage (schreibe etwas in Zelle A wenn der Inhalt von Zelle B einen BESTIMMTEN Wert annimmt) entspricht.



Gruß
Stephan

Sowohl als auch.

In I6 wird manuell geschrieben.
Ich möchte sobald in N6 die checkbox auf True ist, dass dann die Werte in I6 auf 8,5 gesetzt werden.
Egal was zuvor darin stand.

Bsp Dokument gibt es keines da ich leider nicht am jeweiligen Pc sitze.

He Leut Steve112,

[quote="Steve112"]In der Zelle I6 gebe ich meine gearbeiteten Stunden ein.[/quote]
[quote="Steve112"]Eine Checkbox in Zelle N6 soll bei True den Wert in Zelle I6 auf 8,5 setzen.[/quote]
Was denn nun? Gibst Du die Stunden ein oder soll "automatisch" in die Zelle geschrieben werden?

Und wieder - bitte ein Beispieldokument.

He Leute,

Bin am schreiben einer Tabelle für meine Arbeitszeiten.

Soweit alles super bis auf eine kleinigkeit. Urlaub bzw Krank.
In der Zelle I6 gebe ich meine gearbeiteten Stunden ein.
Somit kann ich da keine Formel reinschreiben, da diese jedesmal verschwinden würde sobald ein Wert eingetragen wird.

Möglichkeit 1:
Eine Checkbox in Zelle N6 soll bei True den Wert in Zelle I6 auf 8,5 setzen.
Wenn False dann tue nichts.
Kann eine Checkbox das?

Möglichkeit 2:
Über eine Hilfszelle zB J6
Wenn N6 = "x", dann trage 8,5 in Zelle I6 ein.

Wie geht das?
Bei google habe ich eine VBA lösung gefunden. Allerdings für Ex..el.

[url=http://www.herber.de/forum/archiv/176to180/176247_VBA_Wenn_Zelle_sich_aendert_dann.html]Link[/url]
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
Cells(2, 1) = "Hallo"
End If
End Sub

Nur von VBA habe ich keine Ahnung.
Nichtmal wie ich sie richtig einfüge.
Und wenn, kann ich diese dann einfach nach unten ziehen, damit die Zeilen weiter zählen?

lg