Spalten ausblenden bei 0

[zero82]

Hallo,

Ich möchte alle Spalten die in Zeile 132 eine 0 enthalten per Makro ausblenden lassen. Dafür habe ich folgendes Makro auf Spalten angepasst aber leider tut sich nichts. Hat einer eine Idee woran das liegen könnte?

Code: Alles auswählen

Sub Spalten_ausblenden_bei '0

Dim myDoc As Object
Dim mySheet As Object

myDoc = ThisComponent
mySheet = myDoc.Sheets.GetByIndex(2) ' Tabelle1

for zi = 132 to 132
if mySheet.getcellbyposition(1,zi).string = 0 then
 mySheet.columns(zi).isvisible = false
else
 mySheet.columns(zi).isvisible = true
end if
next zi

End sub

Gruß

[balu]

Hay

mySheet = myDoc.Sheets.GetByIndex(2) ' Tabelle1

Sicher das dies so stimmt?
Die Blattzählung beginnt doch bei 0.



Gruß
balu

[zero82]

hi balu,

Sicher das dies so stimmt?
Die Blattzählung beginnt doch bei 0.

ja das stimmt. Die Blattzählung ist richtig. Der Text dahinter sagt nichts aus. Ist denn der Code richtig? Bei mir funktioniert das leider nicht! *confused*

Gruß
z

[clag]

hallo zusammen,

eine Schleife die von 132 bis 132 laufen soll, läuft genau betrachtet wie oft?

[zero82]

hi,

die Zeile in der die Bedingung steht liegt in zeile 132. Und diese Zeile soll er nach 0 und 1 durchsuchen. Bei 0 die Spalte ausblenden und bei 1 stehen lassen. Kommt denn jemand auf die Lösung des Problems. Ich bin mit meinem Wissen am Ende was Makroprogrammierung an geht.

[zero82]

hi,

ich hab ein bisschen rum probiert und den code wie folgt angepasst. Jetzt blendet er mir aber alle Spalten von A bis M aus. Er soll aber nur die ausblenden die in Zeile 132 eine 0 enthalten haben. Hier der Code:

Code: Alles auswählen

Sub Spalten_ausblenden_bei '0

Dim myDoc As Object
Dim mySheet As Object

myDoc = ThisComponent
oSheet = thisComponent.sheets.getbyname("BAB")

For i = 0 to 12
   oZelle = oSheet.getCellByPosition(i, 132)
   if oZelle.value = 0 then
      oSheet.columns(i).isVisible = false
   else
   		oSheet.columns(i).isVisible = true
   end if
next i

End sub

Hat einer eine Idee wo der Haken ist?

[F3K Total]

... aus didaktischen Gründen gekürzt, siehe Beitrag von Karolus im Folgenden
HTH R

[clag]

Hallo,

Code: Alles auswählen

Sub Spalten_ausblenden_bei '0
	Dim myDoc As Object
	Dim mySheet As Object
	myDoc = ThisComponent
	mySheet = myDoc.Sheets.GetByIndex(2)
	for i = 0 to 1023
		if mySheet.getcellbyposition(i,131).type<>0 then
			if mySheet.getcellbyposition(i,131).string="0" then
			mySheet.columns().getByIndex(i).isvisible = false
			else
			mySheet.columns().getByIndex(i).isvisible = true
			end if
		end if 
	next i
	msgbox "fertig"
End sub

versuch es mal damit
viel Spaß

[Karolus]

Hallo

Spalte M ist Spalte Nummer 13, jetzt schau dir mal deine i-werte an, und dann überlegst du dir welchen Index die Zeile Nummer 132 hat

Karolus

@Rik:
Spielverderber, lass ihn doch mal seinen eigenen Grips bemühen.

[F3K Total]

... lass ihn doch mal seinen eigenen Grips bemühen.

Jo, gute Idee, jetzt musst du nur noch clag überzeugen.

[zero82]

ja genau richtig. Danke für die Antwort!

[clag]

hahaha

habe ich zu spät geschaut was im Busch ist ?
da hat zero82 aber noch mal Schwein gehabt

@ zero82
hier wird gern und schnell geholfen, aber man sollte es auch nicht übertreiben
freundliches Auftreten schadet auch nicht, eine Rückmeldung und ein Danke sollten selbstverständlich sein.
Das vermisse ich aber öfters in deinen Anfragen.

Früher zu 14.400k Zeiten nannte man solche Zeitgenossen "leecher" und die waren dann irgendwann unsupported