Fehler verhindern ? Spalte einfügen ?

[keksi1970]

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

[Karolus]

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: Alles auswählen

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

Gruß Karo

[keksi1970]

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

gibt es so etwas wie deleteByIndex ?

Gruß Andreas

[Karolus]

Hallo Andreas

danke karo, funktioniert soweit ganz gut, nur was mach ich, wenn SPEDITION in Spalte AG steht ?
gibt es so etwas wie deleteByIndex ?

Code: Alles auswählen

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

Gruß Karo

[keksi1970]

das dingen heisst removeByIndex

OK, nu funktionierts wie gewünscht.

Tausend Dank

Grus Andreas