[Gelöst] Abfrage ob Tabellenblatt vorhanden

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: [Gelöst] Abfrage ob Tabellenblatt vorhanden

[Gelöst] Re: Abfrage ob Tabellenblatt vorhanden

von Becki_Beck » Mi, 09.09.2015 10:08

Ok habe den Fehler schon gefunden!
Habe bisschen was durcheinander gebracht :roll:

Code: Alles auswählen

Sub
oDok = ThisComponent
Auswertung=oDok.getSheets().getbyname("Auswertung")
for i=5 to 55
FilterKriterium=Auswertung.getcellbyposition(1,i)
If Not oDok.Sheets().HasByName(FilterKriterium.string) then
      msgbox "Keine Tabelle für den Namen " & FilterKriterium.string & " vorhanden."
Else
end if
next i
End Sub

Re: Abfrage ob Tabellenblatt vorhanden

von Becki_Beck » Mi, 09.09.2015 10:00

Hallo Stephan!

Danke für deine Antwort :)
Habe deinen Code mit meinen Variablen versehen und bekomme aber immer den Fehler:

"BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.uno.RuntimeException
Message: ."

Hast du vl ne Idee woran das liegen könnte?

Code: Alles auswählen

Sub
oDok = ThisComponent
Auswertung=oDok.getSheets().getbyname("Auswertung")
for i=5 to 55
FilterKriterium=Auswertung.getcellbyposition(1,i)
If Not oDok.Sheets().HasByName(Auswertung.getCellRangebyName(FilterKriterium.string).string) then
      msgbox "Keine Tabelle für den Namen " & Auswertung.getcellrangebyname(FilterKriterium.string).string & " vorhanden."
Else
end if
next i
End Sub

Re: Abfrage ob Tabellenblatt vorhanden

von Stephan » Di, 08.09.2015 17:05

z.B.:

Code: Alles auswählen

Sub Main
oDok = ThisComponent
If Not oDok.Sheets().HasByName(oDok.Sheets(0).getCellRangebyName("B3").String) then
		msgbox "Keine Tabelle für den Namen " & oDok.Sheets(0).getcellrangebyname("B3").string & " vorhanden."
	Else
		msgbox "Tabelle für den Namen " & oDok.Sheets(0).getcellrangebyname("B3").string & " vorhanden."
End If
End Sub
Gruß
Stephan

[Gelöst] Abfrage ob Tabellenblatt vorhanden

von Becki_Beck » Di, 08.09.2015 16:20

Hallo!

Ich versuche eine Abfrage zu erstellen ob das angegebene Tabellenblatt vorhanden ist.
Ich habe eine Liste mit Namen und jeder Name hat ein eigenes Tabellenblatt. Mein Makro ruft Informationen aus diesem Tabellenblatt ab. Wenn nun in der Liste ein Name steht, es aber zu diesem kein Tabellenblatt gibt, soll eine msgbox kommen die darauf hinweist.
z.B.:

Code: Alles auswählen

If oDok.Sheets().getbyName("B3")=False then
msgbox ("Keine Tabelle für den Namen"&oDok.Sheet().getcellrangebyname("B3").string"vorhanden.")
Hoffe es kann mir jemand Helfen den Code richtig zu biegen.

lg Julian

Nach oben