Wir sind auf Ihre Unterstützung angewiesen!
💚 BITTE helfen Sie uns HEUTE mit einer SPENDE 💚
Helfen Sie das LibreOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
VBA Projekt von Excel auf LibreOffice umschreiben
-
- Beiträge: 3
- Registriert: Mi 24. Nov 2021, 07:31
VBA Projekt von Excel auf LibreOffice umschreiben
Hi liebe Forenmitglieder,
ich bin absoluter Neuling im Umgang mit LibreOffice. Benötige daher eure Hilfe, da mir aktuell die Zeit fehlt mich intensiv in LibreOffice einzulesen.
Ich habe ein Exceltabelle die einige Abläufe per VBA steuert. In Microsoft Excel funktioniert diese Datei auch super. In LibreOffice aber leider nicht. Könnt ihr mir den VBA Code so umschreiben, das er auch unter LibreOffice funktioniert. Der Code funktioniert bis zu den 3 roten X. In C8 Soll er das aktuelle Datum kopieren (=Heute()) und in C13 einen Text der sich aber auf eine Verknüpfung bezieht (=Kalkulation!J43). Der Code läuft sauber durch, aber in C8 und in C13 erhalte ich nur ein Leerfeld.
Hier der Code:
Sub ausgedruckteVorschlägekopieren()
With Worksheets("Vorschlag")
If .Range("C4") <> "" Then
.Range("C4:E4").Copy Sheets("ausgedruckte Vorschläge").Range("B1")
Sheets("ausgedruckte Vorschläge").Range("B1:K1").Insert Shift:=xlDown
End If
If .Range("C5") <> "" Then
.Range("C5:E5").Copy Sheets("ausgedruckte Vorschläge").Range("E2")
End If
If .Range("C6") <> "" Then
.Range("C6:E6").Copy Sheets("ausgedruckte Vorschläge").Range("H2")
End If
End With XXX
Sheets("Vorschlag").Range("C8").Copy
Sheets("ausgedruckte Vorschläge").Range("A1").PasteSpecial xlPasteValues
Sheets("ausgedruckte Vorschläge").Range("A1").Insert Shift:=xlDown
Sheets("Vorschlag").Range("C13").Copy
Sheets("ausgedruckte Vorschläge").Range("K2").PasteSpecial xlPasteValues
Sheets("Vorschlag").Select
Range("C4,C5,C6").Select
Selection.ClearContents
Range("C4").Select
Sheets("Kalkulation").Select
Range("C5:C21,C25:C41,A25:A41,B25:B41").Select
Selection.ClearContents
Range("C5").Select
End Sub
Vielen Dank schon mal im Voraus für eure Hilfe
Andreas
ich bin absoluter Neuling im Umgang mit LibreOffice. Benötige daher eure Hilfe, da mir aktuell die Zeit fehlt mich intensiv in LibreOffice einzulesen.
Ich habe ein Exceltabelle die einige Abläufe per VBA steuert. In Microsoft Excel funktioniert diese Datei auch super. In LibreOffice aber leider nicht. Könnt ihr mir den VBA Code so umschreiben, das er auch unter LibreOffice funktioniert. Der Code funktioniert bis zu den 3 roten X. In C8 Soll er das aktuelle Datum kopieren (=Heute()) und in C13 einen Text der sich aber auf eine Verknüpfung bezieht (=Kalkulation!J43). Der Code läuft sauber durch, aber in C8 und in C13 erhalte ich nur ein Leerfeld.
Hier der Code:
Sub ausgedruckteVorschlägekopieren()
With Worksheets("Vorschlag")
If .Range("C4") <> "" Then
.Range("C4:E4").Copy Sheets("ausgedruckte Vorschläge").Range("B1")
Sheets("ausgedruckte Vorschläge").Range("B1:K1").Insert Shift:=xlDown
End If
If .Range("C5") <> "" Then
.Range("C5:E5").Copy Sheets("ausgedruckte Vorschläge").Range("E2")
End If
If .Range("C6") <> "" Then
.Range("C6:E6").Copy Sheets("ausgedruckte Vorschläge").Range("H2")
End If
End With XXX
Sheets("Vorschlag").Range("C8").Copy
Sheets("ausgedruckte Vorschläge").Range("A1").PasteSpecial xlPasteValues
Sheets("ausgedruckte Vorschläge").Range("A1").Insert Shift:=xlDown
Sheets("Vorschlag").Range("C13").Copy
Sheets("ausgedruckte Vorschläge").Range("K2").PasteSpecial xlPasteValues
Sheets("Vorschlag").Select
Range("C4,C5,C6").Select
Selection.ClearContents
Range("C4").Select
Sheets("Kalkulation").Select
Range("C5:C21,C25:C41,A25:A41,B25:B41").Select
Selection.ClearContents
Range("C5").Select
End Sub
Vielen Dank schon mal im Voraus für eure Hilfe
Andreas
Re: VBA Projekt von Excel auf LibreOffice umschreiben
Hallo
Versuchs halt mit dem üblichen: als erste Zeile im Modul
Versuchs halt mit dem üblichen: als erste Zeile im Modul
Code: Alles auswählen
Option VBASupport 1
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
-
- Beiträge: 3
- Registriert: Mi 24. Nov 2021, 07:31
Re: VBA Projekt von Excel auf LibreOffice umschreiben
in LibreOffice sieht der Code so aus
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub ausgedruckteVorschlägekopieren()
With Worksheets("Vorschlag")
If .Range("C4") <> "" Then
.Range("C4:E4").Copy Sheets("ausgedruckte Vorschläge").Range("B1")
Sheets("ausgedruckte Vorschläge").Range("B1:K1").Insert Shift:=xlDown
End If
If .Range("C5") <> "" Then
.Range("C5:E5").Copy Sheets("ausgedruckte Vorschläge").Range("E2")
End If
If .Range("C6") <> "" Then
.Range("C6:E6").Copy Sheets("ausgedruckte Vorschläge").Range("H2")
End If
End With
Sheets("Vorschlag").Range("C8").Copy
Sheets("ausgedruckte Vorschläge").Range("A1").PasteSpecial xlPasteValues
Sheets("ausgedruckte Vorschläge").Range("A1").Insert Shift:=xlDown
Sheets("Vorschlag").Range("C13").Copy
Sheets("ausgedruckte Vorschläge").Range("K2").PasteSpecial xlPasteValues
Sheets("Vorschlag").Select
Range("C4,C5,C6").Select
Selection.ClearContents
Range("C4").Select
Sheets("Kalkulation").Select
Range("C5:C21,C25:C41,A25:A41,B25:B41").Select
Selection.ClearContents
Range("C5").Select
End Sub
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub ausgedruckteVorschlägekopieren()
With Worksheets("Vorschlag")
If .Range("C4") <> "" Then
.Range("C4:E4").Copy Sheets("ausgedruckte Vorschläge").Range("B1")
Sheets("ausgedruckte Vorschläge").Range("B1:K1").Insert Shift:=xlDown
End If
If .Range("C5") <> "" Then
.Range("C5:E5").Copy Sheets("ausgedruckte Vorschläge").Range("E2")
End If
If .Range("C6") <> "" Then
.Range("C6:E6").Copy Sheets("ausgedruckte Vorschläge").Range("H2")
End If
End With
Sheets("Vorschlag").Range("C8").Copy
Sheets("ausgedruckte Vorschläge").Range("A1").PasteSpecial xlPasteValues
Sheets("ausgedruckte Vorschläge").Range("A1").Insert Shift:=xlDown
Sheets("Vorschlag").Range("C13").Copy
Sheets("ausgedruckte Vorschläge").Range("K2").PasteSpecial xlPasteValues
Sheets("Vorschlag").Select
Range("C4,C5,C6").Select
Selection.ClearContents
Range("C4").Select
Sheets("Kalkulation").Select
Range("C5:C21,C25:C41,A25:A41,B25:B41").Select
Selection.ClearContents
Range("C5").Select
End Sub
Re: VBA Projekt von Excel auf LibreOffice umschreiben
und so würde es aussehen wenn du den Code zwischen Codetags einfügst mit Hilfe der </> Schaltfläche…
Code: Alles auswählen
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub ausgedruckteVorschlägekopieren()
With Worksheets("Vorschlag")
If .Range("C4") <> "" Then
.Range("C4:E4").Copy Sheets("ausgedruckte Vorschläge").Range("B1")
Sheets("ausgedruckte Vorschläge").Range("B1:K1").Insert Shift:=xlDown
End If
If .Range("C5") <> "" Then
.Range("C5:E5").Copy Sheets("ausgedruckte Vorschläge").Range("E2")
End If
If .Range("C6") <> "" Then
.Range("C6:E6").Copy Sheets("ausgedruckte Vorschläge").Range("H2")
End If
End With
Sheets("Vorschlag").Range("C8").Copy
Sheets("ausgedruckte Vorschläge").Range("A1").PasteSpecial xlPasteValues
Sheets("ausgedruckte Vorschläge").Range("A1").Insert Shift:=xlDown
Sheets("Vorschlag").Range("C13").Copy
Sheets("ausgedruckte Vorschläge").Range("K2").PasteSpecial xlPasteValues
Sheets("Vorschlag").Select
Range("C4,C5,C6").Select
Selection.ClearContents
Range("C4").Select
Sheets("Kalkulation").Select
Range("C5:C21,C25:C41,A25:A41,B25:B41").Select
Selection.ClearContents
Range("C5").Select
End Sub
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
-
- Beiträge: 3
- Registriert: Mi 24. Nov 2021, 07:31
Re: VBA Projekt von Excel auf LibreOffice umschreiben
karolus hat geschrieben: ↑Mi 24. Nov 2021, 09:22und so würde es aussehen wenn du den Code zwischen Codetags einfügst mit Hilfe der </> Schaltfläche…
Code: Alles auswählen
Rem Attribute VBA_ModuleType=VBAModule Option VBASupport 1 Sub ausgedruckteVorschlägekopieren() With Worksheets("Vorschlag") If .Range("C4") <> "" Then .Range("C4:E4").Copy Sheets("ausgedruckte Vorschläge").Range("B1") Sheets("ausgedruckte Vorschläge").Range("B1:K1").Insert Shift:=xlDown End If If .Range("C5") <> "" Then .Range("C5:E5").Copy Sheets("ausgedruckte Vorschläge").Range("E2") End If If .Range("C6") <> "" Then .Range("C6:E6").Copy Sheets("ausgedruckte Vorschläge").Range("H2") End If End With Sheets("Vorschlag").Range("C8").Copy Sheets("ausgedruckte Vorschläge").Range("A1").PasteSpecial xlPasteValues Sheets("ausgedruckte Vorschläge").Range("A1").Insert Shift:=xlDown Sheets("Vorschlag").Range("C13").Copy Sheets("ausgedruckte Vorschläge").Range("K2").PasteSpecial xlPasteValues Sheets("Vorschlag").Select Range("C4,C5,C6").Select Selection.ClearContents Range("C4").Select Sheets("Kalkulation").Select Range("C5:C21,C25:C41,A25:A41,B25:B41").Select Selection.ClearContents Range("C5").Select End Sub
Danke für die Info. Das bringt mich aber mit meinem Problem nicht weiter. Kannst du auch etwas zur Problemlösung beitragen?
Re: VBA Projekt von Excel auf LibreOffice umschreiben
Zunächst musst du mal was zur Problemlösung beitragen, oder sollen wir etwa ein passendes Testdokument aus deinem VBA-zeugs "heraus" erstellen??
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
Re: VBA Projekt von Excel auf LibreOffice umschreiben
Hallo Andreas_77,
du schriebst
du schriebst
Er sieht nicht nur so aus, er funktioniert auch. Problem gelöst?in LibreOffice sieht der Code so aus
Gruß,
mikele
mikele
Re: VBA Projekt von Excel auf LibreOffice umschreiben
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
An alle, die das LibreOffice-Forum nutzen:
Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.
❤️ Vielen lieben Dank für Ihre Unterstützung ❤️