verfaßt von Mike_R 
, Rosenheim, 07.12.2021, 20:59:24
Hi,
vor etlichen Monaten habe ich mich mit diesem Problem schon mal an dieses Forum gewandt; bin aber damit nicht zum Ziel gekommen. Vielleicht klappt es ja diesmal.
Was Tabellenkalkultaion anbelangt, so wollte ich nun auch mal die Linux-calc-Methode ausprobieren, schaffe es aber nicht, ein vorhandenes VBA-Makro in ein calc-Makro umzuwandeln. (In der örtlichen Linux-Gruppe konnte mir auch keiner weiterhelfen und die Hilfe bei "CalcGuideLO.pdf" brachte mich auch nicht ans Ziel). Hier nun der Code meines VBA-Makros (für eine einfache Buchführung gedacht):
With ActiveSheet
Rw = ActiveCell.Row 'Zeile
Datum = .Cells(Rw, 1).Value
Tb = .Cells(Rw, 2).Value 'andere Tabelle, in die die Werte eingetragen werden
Art = .Cells(Rw, 3).Value 'Was gebucht wurde, z.B. Liege
S = .Cells(Rw, 4).Value 'Soll-Betrag bei Ausgaben
H = .Cells(Rw, 5).Value 'Haben-Betrag bei Einnahmen
End With
With ActiveWorkbook.Sheets(Tb)
Rw = 1
While .Cells(Rw, 1).Value <> "" '1. freie Zeile an Ende der Tab. suchen
Rw = Rw + 1
Wend
.Cells(Rw, 1).Value = Datum
.Cells(Rw, 2).Value = ActiveSheet.Name
.Cells(Rw, 3).Value = Art
If H > 0 Then .Cells(Rw, 4).Value = H
If S > 0 Then .Cells(Rw, 5).Value = S
End With
Wie schon angedeutet: Läuft in VBA problemlos; bei meinen calc-Umwandlungs-Versuchen kommt aber immer wieder irgendeine Fehlermeldung, so dass ich mich - ziemlich genervt - erneut an Euch Forums-Teilnehmer wende, in der Hoffnung, einen calc-Experten zu finden, der mir hier auf die Sprünge helfen kann.
Viele Grüße
Mike_R
gesamter Thread: