BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> 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

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
Shig
Beiträge: 1
Registriert: Sa 30. Okt 2021, 13:50

Von Excel nach OpenOffice

Beitrag von Shig » Sa 30. Okt 2021, 14:07

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
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

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: Von Excel nach OpenOffice

Beitrag von mikele » Mo 1. Nov 2021, 14:00

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)

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

Antworten