Hi,
bin neu in diesem Forum und würde nun gern ein vorhandenes VBA-Makro in ein (ubuntu) calc-Makro umschreiben. Mit Makros in calc hab ich bisher noch keine Erfahrungen gesammelt. Es geht um ein einfaches Art Buchführungsmakro. Nachdem ja beide Makro-Sprachen viele Gemeinsamkeiten aufweisen, gehe ich davon aus, dass die jeweilige Programmier-Absicht für einen calc-Experten kein Problem darstellen wird. Hier nun der VBA-Code (mit Kommentaren):
Dim Tb As String, Datum As Date, Art As String, S As Currency, H As Currency, Rw As Integer
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
Hab das Umformen auch schon selber versucht; erhalte aber immer wieder neue Fehlermeldungen. Wäre schön, wenn mir da jemand auf die Sprünge helfen könnte.
Raumichel
Lesezeichen