ich habe mal ein bißchen was ausprobiert und bin zu diesem Ergebnis gekommen.
Zumindest funktioniert es soweit.
Vielleicht könnte man es auch etwas eleganter schreiben,aber ich wüßte nicht wie.
Code: Alles auswählen
Sub KategorieIndex
Dim inhalt,lesen as Integer
meinDok = ThisComponent
a = 1
b = 1
for z = 0 to 528
mZelle = meinDok.Sheets(0).getCellByPosition(a,b)
inhalt = mZelle.value
if inhalt <= 1 then
e = 0
nZelle = meinDok.Sheets(0).getCellByPosition(e,b)
lesen = nZelle.value
else
c = 3
d = b
mZelle = meinDok.Sheets(0).getCellByPosition(c,d)
mZelle1 = mZelle.string
c = 4
d = b
mZelle = meinDok.Sheets(0).getCellByPosition(c,d)
mZelle2 = mZelle.value
c = 5
d = b
mZelle = meinDok.Sheets(0).getCellByPosition(c,d)
mZelle3 = mZelle.string
c = 6
d = b
mZelle = meinDok.Sheets(0).getCellByPosition(c,d)
mZelle4 = mZelle.value
c = 7
d = b
mZelle = meinDok.Sheets(0).getCellByPosition(c,d)
mZelle5 = mZelle.string
f = 10
d = b
schreiben = meinDok.Sheets(0).getCellByPosition(f,d)
schreiben.string = mZelle1 & mZelle2 & mZelle3 & mZelle4 & mZelle5
End if
b = b+1
next
End Sub
Die if-Prüfung,ob ein Wert 1 hat,bezieht sich auf die Oberkategorie,diese enthält keine Werte
Nein,es bezieht sich auf die Spalte B1:B528.Bezieht sich das auf die Zellen A3:E1000?
Gruß Fritz