OpenOffice.info

calc-greenhorn hat geschrieben:1. Kannst Du mir noch erklären wie Du das Makro erstellt hast und wie der
Code (?) ist
und wie und wo man es in Calc installiert?
Dann lerne ich was für die Zukunft. Aber bitte wieder für Dummies erklären
lol.

2. Falls ich mal irgendwann so etwas (gleiches Makro) irgenwo benötige, und
die Zeilen
oder Spalten wären andere. Kann man dann dieses Makro irgendwie ändern?
Falls ja, wie und was.

1. Schau mal bei geöffneter Datei unter Extras/Makros/Makros verwalten/OpenOffice.org Basic... und navigiere links zu Addieren.ods/Standard/Addieren -> Dann siehst Du rechts "S_add_value" und "get_nMonth". Klicke auf "Bearbeiten" dann siehst du die beiden Routinen.

   Code: Alles auswählen

   Sub S_add_value(event)
       if event.AbsoluteName = "$Tabelle1.$B$2" then 'wenn die Zelle B2 geändert wurde (event = B2)
           osheet = thiscomponent.sheets.getbyname("Tabelle1")
           omonthcell = osheet.getcellbyposition(1,0)'B1
           sMonth = omonthcell.String 'aktuellen Monatsnamen aus B1 auslesen
           nMonth = get_nMonth(sMonth)'mit function get_nMonth in Zahl umwandeln
           otargetcell = osheet.getcellbyposition(1 + nMonth,1)'Zielzelle bestimmen
           otargetcell.value = otargetcell.value + event.Value 'Wert aus B2 zu Zielzellenwert addieren
           if otargetcell.value = 0 then otargetcell.formula = ""
       endif
       
   end sub
   
   function get_nMonth(sMonth) as integer
       aMonth = Array("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember")
       for i = 0 to 11
           if sMonth = aMonth(i) then
               get_nMonth = i+1
               exit for
           endif 
       next i
   end function

2. Klar, wenn man weiß was man tut, kann man die Routinen auch entsprechend anpassen. Einen Basic-Kurs kann ich Dir hier aber nicht geben, in der Hilfe (F1) findest Du einiges über Starbasic und auch hier im Forum

paljass hat geschrieben:F3K: Eingabe in B2, Ausgabe in C2

• Datei Addieren.ods hier anklicken, Downloadfenster öffnet sich, Datei lokal auf deinem Recher speichern
• OpenOffice starten -> Menü Extras/Optionen/OpenOffice.org/Sicherheit/Makrosicherheit-> auf "Mittel" stellen, dann wirst Du beim Öffnen einer Datei, die Makros enthält, gefragt ob sie ausgeführt werden sollen.
• Menü Datei -> Öffnen..., heruntergeladene Datei Addieren.ods suchen und öffnen.
• Sicherheiswarnung: Makros aktivieren anklicken, sonst läuft das Makro eben nicht, und dann passiert natürlich auch nichts.
• Zahl in Feld B2 eingeben
• Eingabetaste drücken oder B2 per Mausklick verlassen