String ausgabe

[Paule]

moin

komm da mit einem Makro nicht weiter.
Meine Afgabenstellung ist folgende: Habe 2 Tabellenblätter, auf dem einen werden Daten angezeigt (diese werden per Makro gefiltert (Makro bewirkt das Spalten ausgeblendet werden)), auf dem zweiten Tabellenblatt befindet sich ein Diagramm. Neben Dem Diagramm sollen die Daten nochmals angezeigt werden (Horizontal!), um zusätzliche Daten die nicht im Diagramm verzeichnet sind, anzuzeigen (es ist keine Option die zusätzlichen Daten mit in Diagramm aufzunehmen!).
Mit einfachen formeln geht das nicht, jedenfalls nicht ohne sehr großem aufwand und da das Diagramm eh durch ein Makro erstellt wird wäre es Praktisch in anders Makro fürdie Daten hinzuzufügen:idea: . Gesagt getan mein aktueller Code sieht so aus

Code: Alles auswählen

sub gesamtkosten
dim stext as string
osheet = Thiscomponent.sheets.getbyname("Ansicht")
for i = 1 to 55
oZelle = oSheet.getCellByPosition(i, 5)
   if osheet.columns(i).isvisible = true then 
   stext = ozelle.string
   osheet = Thiscomponent.sheets.getbyname("DiagrammBenutzer")
   for i = 6 to 12
   oZelle = oSheet.getCellByPosition (10, i)
   if ozelle.string = "" then
   ozelle.string = stext
   end if 
   next
   end if 
   next
end sub 

- geht eigentlich ja auch wunderbar, doch bekomme ich immer nur den ersten Wert aus der Ansicht übertragen und das halt 6 mal...
Mir ist schon klar was das Problem ist, stext müsste nachdem es verwendet würde neu definiert werden, aber wie bau ich das da ein?
Danke für alle antworten im vorraus und ansonsten ein schönes Wocheende

grüße

Paule

[Paule]

hab mir das nochmal angeguckt. Bin danach zu folgendem ergebnis gekommen

Code: Alles auswählen

sub gesamtkosten

dim stext as string
osheet = Thiscomponent.sheets.getbyname("Ansicht")
for i = 1 to 55
oZelle = oSheet.getCellByPosition(i, 5)
   if osheet.columns(i).isvisible = true then
   stext = ozelle.string
   end if
   osheet = Thiscomponent.sheets.getbyname("DiagrammBenutzer")
   oZelle = oSheet.getCellByPosition (10,i)
  		 if ozelle.string = "" then
  		 ozelle.string = stext 
  		 end if
  	 next   
end sub

Das Problem ist nur das das hier :

Code: Alles auswählen

if osheet.columns(i).isvisible = true then
   stext = ozelle.string

anscheinend keine Wirkung hat. Ich bekomme zwar alle Daten übertragen jedoch auch die "Leeren" Stellen, also die die ausgeblendet sind.
Leider habe ich überhaupt keine Idee woran das liegen könnte da der code

Code: Alles auswählen

if osheet.columns(i).isvisible = true then
   stext = ozelle.string

bei dem meinen als erstes Geposteten Code klappte nur der Rest nicht...
Falls jemanden mein Fehler auffällt wäre ich sehr dankbar für ein Hinweis

Grüße

Paule