Seite 1 von 1
Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 13:41
von 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ß
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 14:12
von balu
Hay
mySheet = myDoc.Sheets.GetByIndex(2) ' Tabelle1
Sicher das dies so stimmt?
Die Blattzählung beginnt doch bei 0.
Gruß
balu
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 14:16
von 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
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 14:56
von clag
hallo zusammen,
eine Schleife die von 132 bis 132 laufen soll, läuft genau betrachtet wie oft?
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 15:39
von 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.
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 16:42
von 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?
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 16:49
von F3K Total
... aus didaktischen Gründen gekürzt, siehe Beitrag von Karolus im Folgenden
HTH R
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 16:51
von 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ß
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 16:53
von 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.
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 17:01
von F3K Total
Karolus hat geschrieben:... lass ihn doch mal seinen eigenen Grips bemühen.
Jo, gute Idee, jetzt musst du nur noch clag überzeugen.
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 17:02
von zero82
ja genau richtig. Danke für die Antwort!
Re: Spalten ausblenden bei 0
Verfasst: Do, 27.03.2014 17:16
von 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