OpenOffice.info

das dingen heisst removeByIndex

OK, nu funktionierts wie gewünscht.

Tausend Dank

Grus Andreas

......
if anzahlspalten < 0 then
ospalten.removebyindex(14,abs(anzahlspalten)) '14 == Index spalte O
end if
.......

Hallo Andreas
[quote="keksi1970"]danke karo, funktioniert soweit ganz gut, nur was mach ich, wenn SPEDITION in Spalte AG steht ?
gibt es so etwas wie deleteByIndex ?
[/quote]
[code]......
if anzahlspalten < 0 then
ospalten.removebyindex(14,abs(anzahlspalten)) '14 == Index spalte O
end if
.......[/code]

Gruß Karo

danke karo, funktioniert soweit ganz gut, nur was mach ich, wenn SPEDITION in Spalte AG steht ?

gibt es so etwas wie deleteByIndex ?

Gruß Andreas

Sub keksi_schieb_spedition
odoc = thiscomponent
osheet = odoc.sheets(0) '1.Tabblatt ?
for i = 0 to 99	
	if osheet.getcellbyposition(i,0).string = "Spedition" then
		ispedspalte = i : exit for
	end if 
next	
anzahlspalten = 30 - ispedspalte  '30 == Index Spalte AE
ospalten = osheet.getcolumns
if anzahlspalten > 0 then
ospalten.insertbyindex(14,anzahlspalten) '14 == Index spalte O
end if
for i = 0 to 13
	ospalten.getbyindex(i).isVisible = false 'Spalte A- N ausblenden
next
for i = 37 to 255
	ospalten.getbyindex(i).isVisible = false 'Spalte AL bis Ende ausblenden
next
End Sub

Hallo Andreas
Also suchen wir in der ersten Zeile nach "Spedition",
ziehen den Spaltenindex der Fundstelle von dem Index der Spalte AE (30) ab,
und fügen vor O diese Anzahl an Spalten ein.
Dann blenden wir die Spalten vor O und hinter AK aus:
[code]Sub keksi_schieb_spedition
odoc = thiscomponent
osheet = odoc.sheets(0) '1.Tabblatt ?
for i = 0 to 99
if osheet.getcellbyposition(i,0).string = "Spedition" then
ispedspalte = i : exit for
end if
next
anzahlspalten = 30 - ispedspalte '30 == Index Spalte AE
ospalten = osheet.getcolumns
if anzahlspalten > 0 then
ospalten.insertbyindex(14,anzahlspalten) '14 == Index spalte O
end if
for i = 0 to 13
ospalten.getbyindex(i).isVisible = false 'Spalte A- N ausblenden
next
for i = 37 to 255
ospalten.getbyindex(i).isVisible = false 'Spalte AL bis Ende ausblenden
next
End Sub[/code]

Gruß Karo

Hi, ich weiss ja nun, dass ich mögliche Fhler von vornherein verhindern bzw eine Abfangmethode einführen sollte.

nun stellt sich folgendes Problem.

Mein Makro funktioniert nur, wenn :

Spalte O leer ist, sollte sie nicht leer sein, eine Spalte "O" einfügen, so dass Spalte AE1 die Überschrift "Spedition" hat.

Also : Verschiebe alle ausgefüllten Zellen so, dass Zelle AE1 den Wert Spedition hat, durchsuche aber nur Zeile 1 und blende nur Spalte O - AK ein. ( ????????? )

Gruß Andreas