z. B. so
Code: Alles auswählen
odoc=Thiscomponent.Sheets(0)
ozeile=odoc.Columns(0)
'leere Bereiche finden
oleer=ozeile.queryemptycells
oletzter=oleer(oleer.count-1)
'letzte nichtleere Zeile
msgbox oletzter.rangeaddress.startrow-1
Moderator: Moderatoren
Code: Alles auswählen
odoc=Thiscomponent.Sheets(0)
ozeile=odoc.Columns(0)
'leere Bereiche finden
oleer=ozeile.queryemptycells
oletzter=oleer(oleer.count-1)
'letzte nichtleere Zeile
msgbox oletzter.rangeaddress.startrow-1
Wieso?Müßte das in eine integer wandeln...
Nein, oletzter ist ein Objekt (der letzte leere Bereich)!oletzter ist ein long Typ?
Code: Alles auswählen
DIM iLetzteZeile AS Integer
...
iLetzteZeile=oletzter.rangeaddress.startrow-1
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.Jetzt hab ich das etwas umgewandelt aber geht noch nicht weil es nicht mit Openoffce kompatiebel ist
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