Makro zum Finden einer Leer Zelle

Antwort erstellen


Diese Frage dient dazu, das automatisierte Versenden von Formularen durch Spam-Bots zu verhindern.

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Makro zum Finden einer Leer Zelle

Re: Makro zum Finden einer Leer Zelle

von Tino.806 » So, 06.06.2010 07:05

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

Re: Makro zum Finden einer Leer Zelle

von turtle47 » Sa, 29.05.2010 18:02

Hallo Zusammen,
Tino.806 hat geschrieben: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

Re: Makro zum Finden einer Leer Zelle

von Karolus » Sa, 29.05.2010 15:14

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

Makro zum Finden einer Leer Zelle

von Tino.806 » Sa, 29.05.2010 14:52

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

Nach oben