Letzte benutzte Zeile einer Spalte ermitteln?

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

mikeleb
*******
Beiträge: 1315
Registriert: Fr, 09.12.2011 16:50

Re: Letzte benutzte Zeile einer Spalte ermitteln?

Beitrag von mikeleb »

Hallo,
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
Gruß,
mikeleb
mikeleb
*******
Beiträge: 1315
Registriert: Fr, 09.12.2011 16:50

Re: Letzte benutzte Zeile einer Spalte ermitteln?

Beitrag von mikeleb »

Hallo,
Müßte das in eine integer wandeln...
Wieso?
oletzter ist ein long Typ?
Nein, oletzter ist ein Objekt (der letzte leere Bereich)!
Wenn du die Nummer der letzten benutzten Zeile explizit als Integer haben möchtest, kannst du sie zu Beginn so deklarieren.

Code: Alles auswählen

DIM iLetzteZeile AS Integer
...
iLetzteZeile=oletzter.rangeaddress.startrow-1 
Gruß,
mikeleb
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Letzte benutzte Zeile einer Spalte ermitteln?

Beitrag von Stephan »

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
Antworten