ich habe aufgrund eines kurzfristigen Projektes Libre Offive installieren "müssen".
Die Datei steht soweit, was fehlt sind die Makros. Im Prinzip nichts wildes, aber ich komme auf die Schnelle selbst nicht ans Ziel.
Da ich für das Projekt auch nicht so viel Zeit habe, kann ich mich nicht erst in die Programmiersprache von L-Office einarbeiten.
Ich bitte euch daher um Hilfe bei der übersetzung der folgenden Codes vom Excel VBA ins L-Office VBA.
Brauche Codes für die Funktionen Speichern, Speichern unter, Schließen des Dokuments/Datei ohne Abfrage ob gespeichert werden soll (bei Änderungen im Dokument), Speichern und anschließendes Schließen des Dokuments/Datei, Drucken eines Tabellenblatts.
Habe, falls nötig die Excel Codes noch beigefügt.
Vielen Dank im Voraus.
Gruß
Starlifter
---Speichern
Sub ALL_Save()
Range("A16").Select
Range("A1").Select
ActiveWorkbook.Save
Range("A1").Select
End Sub
---Speichern unter
Sub ALL_SaveAs()
Sheets("Inhalt").Select
Range("A12").Select
Range("A1").Select
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
ActiveWorkbook.SaveAS Filename:=fName
End Sub
---Speichern und anschließendes Schließen des Dokuments
Sub ALL_SaveClose()
Sheets("Inhalt").Select
Range("A12").Select
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
---Schließen des Dokuments ohne Abrage ob gespeichert werden soll
Sub ALL_Close()
ActiveWorkbook.Saved = True
ActiveWorkbook.Close wdDoNotSaveChanges
End Sub
---Drucken eines bestimmten Tabellenblatt mit Message-Box zur Bestätigung
Sub ESprint_Print()
Sheets("2ES").Select
ActiveSheet.PrintOut
Dim ok As Byte
ok = MsgBox("Daten wurden an den Drucker gesendet.", 64, "Bestätigung")
If ok = 1 Then
Worksheets("2ES").Select
Range("A1").Select
End If
Sheets("2ES").Select
End Sub