OpenOffice.info

That´s it..

Die Zeilen die er mir trotz eingabe von..
aRowRanges = Array("10-28","32-80","89-94","96-97","99-106") REM **Zellbereiche
..ausblendete habe ich nun mit Leerzeichen befüllt.
z.B. hat er auch 30 ausgeblendet.. naja nun hab ich ne einfache lösung gefunden..
Und für die Sverweise habe ich ...

Vielen Dank für eure Mühe..

Hallo Leute,

Lösung simpel.

If ThisComponent.Sheets.GetByName("Tabelle1").getCellByPosition(vorgabe, x).String = "" OR ThisComponent.Sheets.GetByName("Tabelle1").getCellByPosition(vorgabe, x).String = "Manuelle Eingabe" Then

Das gehört nämlich nicht in 2 (ZWEI ...

Sehr gut vielen Dank,

ich denke das geht schon in die richtige Richtung:

Sub Iteration

For i= 9 to 27 REM Erster Zellbereich (Nicht vergessen Zeilen werden als Array addressiert und das beginnt bei Zeile 0)
ZeileAusblenden(x)
Next

For i=31 To 79
ZeileAusblenden(x)
Next

For i=88 To 93 ...

ist es vielleicht auch einfach möglich bestimmte zeilennummern nicht zu auszublenden..
dass dieses makro gewisse zeilennummern nicht zu berühren hat, denn dann denke ich könnt es klappen..
also zeilennummer ausgeschlossen sind..

Vielen Dank für die Antwort,

aber leider komme ich damit nicht zurecht, zumal weiß ich auch nicht bei welchen Bedingungen es die Spalten ausblendet..

Bei meiner Funktion soll ja jede Zeile die Leer ist oder mit den Inhalt "Manuelle Eingabe" befüllt ist ausgeblendet werden, dass aber nur in ...

Guten Morgen,

ich bin auf der Suche nach einem OO Calc makro, was Zeilen bei verschiedenen Bedingungen automatisch ausblendet..

Folgendes habe ich gefunden:

Sub ausblenden_einblenden
'die Spalte in welcher die zu prüfende Zelle steht
'hier eintragen. Spalte 1 (Spalte A) entspricht 0
vorgabe = 0 ...

so habs selbst schon erledigt...

REM ***** BASIC *****

Sub KopfzeileAusZelle
odoc = thisComponent 'oder StarDesktop.getCurrentComponent()
oZellInhalt = odoc.sheets.getByName("Kontrollliste").getCellRangeByName("B3").string
oSeitenFormat = odoc.StyleFamilies.getByName("PageStyles").getByName ...

Hallo,

ist es hier möglich 2 Zellinhalte hintereinander (mit leertaste) einzufügen?

mycell = mysheet.getCellRangeByName("A1") 'Wert Zelle A1

also sowas wie...
mycell = mysheet.getCellRangeByName("A1"+Leerzeile+"A2") 'Wert Zelle A1

grüße Ey-Ko