Hallo Profis!
Als Neuling in OO-Calc möchte ich folgendes Problem lösen:
Bei einer 2-tägigen Veranstaltung will ich in C2 die Anzahl der nach und nach eintreffenden Gäste eingeben, die dann am 1. Tag in D2 und am 2. Tag in E2 aufaddiert werden sollen. Nach dem Aufaddieren muss C2 für die nächste Eingabe wieder gelöscht werden.
Wäre schön wenn mir dabei jemand helfen könnte, der sich besser auskennt als ich.
Im Voraus schon mal vielen Dank!
Euer HanDie
Eingabe aufaddieren und wieder löschen
Moderator: Moderatoren
Re: Eingabe aufaddieren und wieder löschen
ordne dem Tabellenereignis "Inhalt geändert" (unter "Tabellenereignisse" im Kontextmenü des Tabellenreiters) folgendes Makro zu:
oder für Tag 2:
Gruß
Stephan
Code: Alles auswählen
Sub Main
With ThisComponent.CurrentController.ActiveSheet
.getCellRangeByName("D2").Value = .getCellRangeByName("D2").Value + .getCellRangeByName("C2").Value
.getCellRangeByName("C2").FormulaLocal = ""
End With
End Sub
Code: Alles auswählen
Sub Main
With ThisComponent.CurrentController.ActiveSheet
.getCellRangeByName("E2").Value = .getCellRangeByName("E2").Value + .getCellRangeByName("C2").Value
.getCellRangeByName("C2").FormulaLocal = ""
End With
End Sub
Gruß
Stephan
Re: Eingabe aufaddieren und wieder löschen
Hallo Stephan,
erst mal herzlichen Dank für deine schnelle Antwort.
Leider brauche ich das ganze doch etwas komplexer. Ich dachte ich bekäme das selbst hin, aber dem ist nicht so.
Also wenn das Datum in B11 im Tabebellenblatt "Start" = das aktuelle Datum (Heute()) ist, dann soll die Eingabe im Tabellenblatt "A" aus C2 in D2 übernommen werden und wenn das Datum in D11 im Tabebellenblatt "Start" = das aktuelle Datum (Heute()) ist, dann soll die Eingabe im Tabellenblatt "A" aus C2 in E2 übernommen werden, sowie jeweils die Eingabe in C2 gelöscht werden.
Das Ganze soll dann noch für C3 bis C51 wiederholt werden.
Schon mal vielen Dank im Voraus.
Gruß HanDie
erst mal herzlichen Dank für deine schnelle Antwort.
Leider brauche ich das ganze doch etwas komplexer. Ich dachte ich bekäme das selbst hin, aber dem ist nicht so.
Also wenn das Datum in B11 im Tabebellenblatt "Start" = das aktuelle Datum (Heute()) ist, dann soll die Eingabe im Tabellenblatt "A" aus C2 in D2 übernommen werden und wenn das Datum in D11 im Tabebellenblatt "Start" = das aktuelle Datum (Heute()) ist, dann soll die Eingabe im Tabellenblatt "A" aus C2 in E2 übernommen werden, sowie jeweils die Eingabe in C2 gelöscht werden.
Das Ganze soll dann noch für C3 bis C51 wiederholt werden.
Schon mal vielen Dank im Voraus.
Gruß HanDie
Re: Eingabe aufaddieren und wieder löschen
z.B.:
Gruß
Stephan
Code: Alles auswählen
Sub Main
With ThisComponent.Sheets
IF FORMAT(.getByName("Start").getCellRangeByName("B11").Value, "DD.MM.YYYY") = FORMAT(DATE(), "DD.MM.YYYY") Then
For i = 2 To 51
With .getByName("A")
.getCellRangeByName("D"&i).Value = .getCellRangeByName("C"&i).Value
.getCellRangeByName("C"&i).FormulaLocal = ""
End With
Next i
End If
IF FORMAT(.getByName("Start").getCellRangeByName("D11").Value, "DD.MM.YYYY") = FORMAT(DATE(), "DD.MM.YYYY") Then
For i = 2 To 51
With .getByName("A")
.getCellRangeByName("E"&i).Value = .getCellRangeByName("C"&i).Value
.getCellRangeByName("C"&i).FormulaLocal = ""
End With
Next i
End If
End With
End Sub
Stephan