Re: Inhalt von mehreren Zellen in array einlesen und in eine Zelle schreiben
Verfasst: So 1. Okt 2017, 21:22
Hallo,
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.
Ich muß noch dazu sagen,die for-Schleife ließt die Werte aus einer separaten Spalte aus.
Die if-Prüfung,ob ein Wert 1 hat,bezieht sich auf die Oberkategorie,diese enthält keine Werte
Gruß Fritz
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