Hallo im Forum,
ich übernehme gerade eine paar Excel Makros in libre office calc
Eine dieser Makros funktionieren über die Option VBA Support. Andere wiederum nicht. Diese versuche ich nun neu zu schreiben. Dazu habe Ihre einige Makro-Vorlagen gefunden und versuche die anzupassen. Folgendes gelingt mir noch nicht: Ich möchte einen an Zeilen in ein anderes Tabellenblatt ab Zeile 32 . Bei dem Makro, was ich jetzt anfüge bekomme ich keine Fehlermeldung, aber es passiert auch nichts. Über eine kurze Hilfe wäre ich dankbar.
Gruß Dominik
Sub CopySpreadsheetRange
Dim oSheet1 As Variant, oSheet2 As Variant
Dim oRangeOrg As Variant, oCellCpy As Variant, lastRow As Long
oSheet1 = ThisComponent.Sheets.getByName("alle Termine")
oSheet2 = ThisComponent.Sheets.getByName("Rechnung")
oRangeOrg = oSheet2.getCellRangeByName("A32").RangeAddress
lastRow = GetLastUsedRow(oSheet1)
oCellCpy = oSheet2.getCellRangeByName("A" & lastRow).CellAddress
oSheet2.CopyRange(oCellCpy, oRangeOrg)
End Sub
Function GetLastUsedRow(oSheet1) As Long
Dim oCursor As Variant
oCursor = oSheet1.createCursor
oCursor.GotoEndOfUsedArea(True)
GetLastUsedRow = oCursor.RangeAddress.EndRow
End Function