LibreOffice-Forum

Hallo,

bis jetzt kenne ich nur VBA und versuche nun mit LO klarzukommen.
Ich benötige häufiger folgendes Grundgerüst:
Prüfung eines Zellinhalts nach einer Bedingung. Je nach Ergebnis wird in die benachbarte Zelle ein Eintrag vorgenommen. Es folgt die nächste Zelle unten bis zum Ende der Tabelle. Einfach als VBA dargestellt:

Public Sub Beispiel()
Do Until ActiveCell.Offset(0, -1).Value = ""
ActiveCell.Offset(1, 0).Select
...
ActiveCell.Value = 1 'bzw. Resultat einer Prüfung
Loop
End Sub

Google'n hat bei http://www.business-spreadsheets.com/vba2oo.asp
folgendes gebracht:

Do Until ThisComponent.getCurrentSelection.Offset(0, -1).Value = ""
ThisComponent.getCurrentSelection.Offset(1, 0).Select
ThisComponent.getCurrentSelection.Value = 1
Loop

Funktioniert aber nicht. Offset wird als unbekannt "angemeckert".
Kann mir jemand helfen?

Hallo,
ich hätte da mal zwei Varianten:
1.) Dieses Makro ändert alle Zellen rechts von den in einer Spalte selektierten Zellen

Code: Alles auswählen

Sub s_change_right_cells_from_selection

osel=thisComponent.currentselection'Zugriff auf selektierte Zellen
ncolumnscount=osel.columns.count

if ncolumnscount <> 1 then
  msgbox ("Es wurden "+ncolumnscount+" Spalten ausgewählt, bitte nur Zellen einer Spalte wählen!",48,"Fehler!")
  exit sub
endif

osheet=thiscomponent.sheets(osel.rangeaddress.sheet)
nStartColumn = osel.rangeaddress.StartColumn
nStartRow = osel.rangeaddress.StartRow
nEndColumn = osel.rangeaddress.EndColumn
nEndRow = osel.rangeaddress.EndRow

for i = nStartRow to nEndRow
ocell = osheet.getcellbyposition(nStartColumn,i)
if ocell.value = 3 then 'Hier ist die Bedingung, die die selektierten Zellen erfüllen müssen definiert
ocelltochange = osheet.getcellbyposition(nStartColumn+1,i) 'Zugriff auf Zelle rechts
ocelltochange.string="gefunden"'Aktion in Zelle rechts
endif
next i

End Sub

2.) Dieses Makro ändert alle Zellen rechts von der Spalte in der der Cursor steht:

Code: Alles auswählen

Sub s_change_all_right_cells_from_selected_Column

osel=thisComponent.currentselection'Zugriff auf selektierte Zellen
ncolumnscount=osel.columns.count

if ncolumnscount <> 1 then
  msgbox ("Es wurden "+ncolumnscount+" Spalten ausgewählt, bitte nur Zellen einer Spalte wählen!",48,"Fehler!")
  exit sub
endif

osheet=thiscomponent.sheets(osel.rangeaddress.sheet)
naktiveColumn = osel.rangeaddress.StartColumn
ocursor = osheet.createCursor
ocursor.gotostartofusedarea(false)
nStartRow = ocursor.rangeaddress.StartRow
ocursor.gotoendofusedarea(false)
nEndRow = ocursor.rangeaddress.EndRow

for i = nStartRow to nEndRow
ocell = osheet.getcellbyposition(naktiveColumn,i)
if ocell.value = 3 then 'Hier ist die Bedingung, die die slektierten Zellen erfüllen müssen definiert
ocelltochange = osheet.getcellbyposition(naktiveColumn+1,i) 'Zugriff auf Zelle rechts
ocelltochange.string="gefunden"'Aktion in Zelle rechts
endif
next i

End Sub

Viel Erfolg
Gruß R

Hallo F3K Total,

ich kam leider erst jetzt dazu, mir deine Antworten anzusehen. Vielen Dank! Dein 2. Beispiel hat mir geholfen.

LibreOffice-Forum

Zelle für Zelle in einer Schleife

Zelle für Zelle in einer Schleife

Re: Zelle für Zelle in einer Schleife

Re: Zelle für Zelle in einer Schleife