Hallo
Habe eine Excel Datei die ich gerne so in OpenOffice haben möchte.
Da ich noch nie mit OpenOffice gearbeitet habe, wurde ich erst mal erschlagen.
Gut,die Optik ist Geschmakchsache.
Die Excel Datei beinhaltet einen Code, wo ich bei OpenOffice nicht weiss wo, was ist.
Wo gebe ich den VB Code ein?
Kann ich den VB Code so übernehmen?
PS. Kompletter Neuling mit beiden Programmen
Danke
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗
Von Excel nach OpenOffice
Von Excel nach OpenOffice
- Dateianhänge
-
- Ein Aus Rechnen OpenOffice Version.ods
- (8.49 KiB) 76-mal heruntergeladen
-
- Ein Aus Rechnen Excel Version.xlsm
- (34.25 KiB) 83-mal heruntergeladen
Re: Von Excel nach OpenOffice
Hallo,
die Makroprogrammierung unter Openoffice unterschiedet sich grundsätzlich von VBA. Manches ist zwar kompatibel, aber häufig auch nicht.
Dein Problem, den Wert in H10 kontinuierlich zu H17 zu addieren/subtrahieren, lässt sich durch folgendes Makro unter Openoffice lösen, das den beiden Schaltflächen zugeordnet wird (Eigenschaften der Kontrollelemente->Ereignisse->Aktion ausgeführt)
die Makroprogrammierung unter Openoffice unterschiedet sich grundsätzlich von VBA. Manches ist zwar kompatibel, aber häufig auch nicht.
Dein Problem, den Wert in H10 kontinuierlich zu H17 zu addieren/subtrahieren, lässt sich durch folgendes Makro unter Openoffice lösen, das den beiden Schaltflächen zugeordnet wird (Eigenschaften der Kontrollelemente->Ereignisse->Aktion ausgeführt)
Code: Alles auswählen
Sub zweizellen (oEvent)
'Zugriff auf die aktuelle Tabelle
oTab=ThisComponent.CurrentController.ActiveSheet
'Zugriff auf die beiden Zellen
oZelle1=oTab.getCellRangeByName("H10")
oZelle2=oTab.getCellRangeByName("H17")
'je nachdem welche Schaltfläche angeklickt wurde, wird addiert oder subtrahiert
if oEvent.source.model.label="Ein" Then
oZelle2.value=oZelle2.Value+oZelle1.Value
else
oZelle2.value=oZelle2.Value-oZelle1.Value
end if
'Inhalt der Zelle H10 löschen
oZelle1.ClearContents(7)
End Sub
- Dateianhänge
-
- Ein Aus Rechnen OpenOffice Version.ods
- (9.91 KiB) 70-mal heruntergeladen
Gruß,
mikele
mikele