variablen Bereich kopieren [Geschlossen]

gefragt 2019-10-26 16:06:53 +0100

Dominik7 Gravatar-Bild

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

Bearbeiten Tags ändern Melden wieder öffnen vereinen löschen

Geschlossen aus folgendem Grund Die Frage ist nicht bedeutend oder inzwischen veraltet von Dominik7
Abschlussdatum 2019-10-30 10:55:23.795402