Spalten ausblenden bei 0

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Spalten ausblenden bei 0

Re: Spalten ausblenden bei 0

von clag » Do, 27.03.2014 17:16

hahaha :lol:

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

@ 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

Re: Spalten ausblenden bei 0

von zero82 » Do, 27.03.2014 17:02

ja genau richtig. Danke für die Antwort!

Re: Spalten ausblenden bei 0

von F3K Total » Do, 27.03.2014 17:01

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

von Karolus » Do, 27.03.2014 16:53

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

von clag » Do, 27.03.2014 16:51

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

von F3K Total » Do, 27.03.2014 16:49

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

Re: Spalten ausblenden bei 0

von zero82 » Do, 27.03.2014 16:42

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

von zero82 » Do, 27.03.2014 15:39

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. :D

Re: Spalten ausblenden bei 0

von clag » Do, 27.03.2014 14:56

hallo zusammen,

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

Re: Spalten ausblenden bei 0

von zero82 » Do, 27.03.2014 14:16

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

von balu » Do, 27.03.2014 14:12

Hay
mySheet = myDoc.Sheets.GetByIndex(2) ' Tabelle1
Sicher das dies so stimmt?
Die Blattzählung beginnt doch bei 0.



Gruß
balu

Spalten ausblenden bei 0

von zero82 » Do, 27.03.2014 13:41

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ß

Nach oben