Ich habe ein VBA Projekt, das ich gern in LibreCalc nutzen möchte. Der VBA Code läuft aber nicht perfekt(er kopiert nicht alles was er kopieren soll). Da ich "LEIHE" bin, würde ich mich über Hilfe bei diesem Problem freuen. Im LibreOffice Forum hat das zumindest nicht funktioniert. Da versucht man nicht konstruktiv einen zu Helfen und weiterzubringen, sondern hofft, das der Hilfesuchende das Problem von alleine erkennt. Daher hoffe ich, dass das hier anders ist.
Wenn ich irgendwelche Info´s noch posten soll, die hilfreich sind bitte einfach schreiben.
hier mal der Code
Code: Alles auswählen
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
Andreas