Makro zum Finden einer Leer Zelle

[Tino.806]

Hallo Leute
Oo 3.2

Suche ein Makro was mir in der Spalte C9:C5000 die erste freie Zelle findet und den Couser entsprechend in der Spalte A platziert.


Mfg
Tino


Moderation,4: Beitrag in zuständiges Unterforum verschoben

[Karolus]

Hallo
Mit der Tastenfolge 'strg+↓' ...'↓'...'strg+←' kommst du auch dahin.
Folgendes ist die gekürzte Makroaufzeichnung dieser Tastenfolge.

Code: Alles auswählen

sub gehe_zu_A_in_1_freier_zelle_in_C
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoLeftToStartOfData", "", 0, args2())
end sub

Gruß Karo

[turtle47]

Hallo Zusammen,

in der Spalte C9:C5000

wenn im Zellbereich "C1:C8" leere Zellen vorhanden sein können, dann sollte in dem Code von Karolus die Zeile

args1(0).Value = "$C$1"

in

args1(0).Value = "$C$9"

geändert werden, weil sonst eine falsche Zeile gefunden werden könnte.

Hier noch ein Alternativcode:

Code: Alles auswählen

Sub Find_last_Row_C
	Sheet = ThisComponent.CurrentController.ActiveSheet   
	c = Sheet.getCellRangeByName("C9:C5000").queryEmptyCells
	getFirstEmptyRowInColumn = Split(c.RowDescriptions(0)," ")
	oRow = getFirstEmptyRowInColumn(1)
	mycell =  Sheet.getCellRangeByName("A" & oRow)	
	myView = thisComponent.CurrentController
	myView.Select(mycell)
End Sub

Jürgen

[Tino.806]

Hallo Karolos

Danke für die schnelle Antwort.

Konnte erst heute nachschauen da der PC ausgefallen war.
Habe dein Makro übernommen und den Vorschlag von turtle47 umgesetzt.
Nun ist das Makro wie es sein soll und findet mir die erste freie Zelle in der Spalte C und platziert den Couser entsprechend in der Spalte A.


Mfg Tino