OpenOffice.info

[quote="Lobo-mau"]Gibt es irgendwo ein Glossar, wo man die grundlegenden Sachen mal einsehen kann?[/quote]
Unter [url]http://documentation.openoffice.org/HOW_TO/[/url] findet man (wenn die Seite Online ist) ein VBA to Star Basic HowTo.

With kind regards
hol.sten

[quote="Stephan"][quote]Meine erste Idee könnte wie folgt aussehen:[/quote]

Nur wie kommst Du darauf?

[code]Dim Blaetter As String[/code]

wofür ist das gut, die Variable Blaetter taucht nirgens auf

[code]If ThisComponent.Sheets().Visible = 0 Then[/code]

kann nicht gehen, es ist nirgens ein Blatt angesprochen (Wozu überhaupt die Zählschleife, wenn Du i ohnehin nicht nutzt?) und die Visible-Eigenschaft existiert ebenfalls nicht.


[code]Sub Versteckte_Blaetter_anzeigen()
Dim Blaetter As String
For i = 0 To ThisComponent.Sheets().Count-1
If ThisComponent.Sheets(i).IsVisible = 0 Then
ThisComponent.Sheets(i).IsVisible = 1
End If
Next i
End Sub[/code]


Gruß
Stephan[/quote]

Das "Dim Blaetter" stammte aus einem vorigen Makro, das war unentdeckt dringeblieben. Habs soeben auch rausgelöscht. Das "i" habe ich einfach vergessen :D

Ansonsten war ich ja gar nichtmal soooo weit davon entfernt. Gibt es irgendwo ein Glossar, wo man die grundlegenden Sachen mal einsehen kann?

Dim Blaetter As String

If ThisComponent.Sheets().Visible = 0 Then

Sub Versteckte_Blaetter_anzeigen() 
     Dim Blaetter As String 
     For i = 0 To ThisComponent.Sheets().Count-1 
         If ThisComponent.Sheets(i).IsVisible = 0 Then 
             ThisComponent.Sheets(i).IsVisible = 1
         End If 
     Next i 
End Sub

[quote]Meine erste Idee könnte wie folgt aussehen:[/quote]

Nur wie kommst Du darauf?

[code]Dim Blaetter As String[/code]

wofür ist das gut, die Variable Blaetter taucht nirgens auf

[code]If ThisComponent.Sheets().Visible = 0 Then[/code]

kann nicht gehen, es ist nirgens ein Blatt angesprochen (Wozu überhaupt die Zählschleife, wenn Du i ohnehin nicht nutzt?) und die Visible-Eigenschaft existiert ebenfalls nicht.


[code]Sub Versteckte_Blaetter_anzeigen()
Dim Blaetter As String
For i = 0 To ThisComponent.Sheets().Count-1
If ThisComponent.Sheets(i).IsVisible = 0 Then
ThisComponent.Sheets(i).IsVisible = 1
End If
Next i
End Sub[/code]


Gruß
Stephan

Sub Versteckte_Blaetter_anzeigen()
     For i = 1 To Sheets.Count
         Sheets(i).Activate
         If ActiveSheet.Visible = 0 Then
             ActiveSheet.Visible = -1
         End If
     Next i
     Sheets(1).Activate
End Sub

Sub Versteckte_Blaetter_anzeigen()
     For i = 0 To ThisComponent.Sheets().Count-1
         If ThisComponent.Sheets().Visible = 0 Then
             ThisComponent.Sheets.Visible = -1
         End If
     Next i
End Sub

Ich habe folgendes Makro aus Excel, dass ich gerne in die OO-Syntax bringen möchte:

[code]
Sub Versteckte_Blaetter_anzeigen()
For i = 1 To Sheets.Count
Sheets(i).Activate
If ActiveSheet.Visible = 0 Then
ActiveSheet.Visible = -1
End If
Next i
Sheets(1).Activate
End Sub
[/code]

Meine erste Idee könnte wie folgt aussehen:

[code]
Sub Versteckte_Blaetter_anzeigen()
For i = 0 To ThisComponent.Sheets().Count-1
If ThisComponent.Sheets().Visible = 0 Then
ThisComponent.Sheets.Visible = -1
End If
Next i
End Sub
[/code]

Liege ich damit annähernd richtig? Irgendetwas ist noch nicht ganz richtig.

Achso, noch etwas zum Verständnis:

Ich möchte gerne alle Tabellenblätter, die ausgeblendet sind, wieder einblenden lassen.