von Stephan » Mi, 15.08.2018 09:35
Jetzt hab ich das etwas umgewandelt aber geht noch nicht weil es nicht mit Openoffce kompatiebel ist
bei mir erweist sich AOO 4.1.5 so kompatibel dass es sogar ohne jede Anpassung läuft, allein durch Hinzufügen der Kompatibilitätsoption (Option VBASupport 1), was AOO auch automatisch tut, wenn man die xls-DAtei direkt in AOO öffnet.
Code: Alles auswählen
Option VBASupport 1
Private Sub CommandButton1_Click()
Worksheets("RAM").Range("A1:BW300").ClearContents
'Ab Zeile 2 alle gefilterten Zeilen bis Spalte "D" kopieren
' -> das "D" bitte an Deine Tabelle anpassen
ActiveSheet.Range("A2:BW" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
'...und ab "A2" in Tabelle2 einfügen
Worksheets("RAM").Range("A1").PasteSpecial
MsgBox "Immer nur die erste Zeile 2 wird gedruckt!"
End Sub
Gruß
Stephan
[quote]Jetzt hab ich das etwas umgewandelt aber geht noch nicht weil es nicht mit Openoffce kompatiebel ist :-([/quote]
bei mir erweist sich AOO 4.1.5 so kompatibel dass es sogar ohne jede Anpassung läuft, allein durch Hinzufügen der Kompatibilitätsoption (Option VBASupport 1), was AOO auch automatisch tut, wenn man die xls-DAtei direkt in AOO öffnet.
[code]Option VBASupport 1
Private Sub CommandButton1_Click()
Worksheets("RAM").Range("A1:BW300").ClearContents
'Ab Zeile 2 alle gefilterten Zeilen bis Spalte "D" kopieren
' -> das "D" bitte an Deine Tabelle anpassen
ActiveSheet.Range("A2:BW" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
'...und ab "A2" in Tabelle2 einfügen
Worksheets("RAM").Range("A1").PasteSpecial
MsgBox "Immer nur die erste Zeile 2 wird gedruckt!"
End Sub
[/code]
Gruß
Stephan