excel2007/2010: Versteckte Tabellen wieder sichtbar machen / VBA
"S. Müller"
wir haben hier eine Datei (Blatt- und Arbeitsmappenschutz schon
entfernt), in der sich keinerlei Tabellen einblenden lassen, obwohl ganz
offensichtlich welche vorhanden sind.
Auch folgendes Makro bringt kein Ergebniss:
Sub einblenden()
Dim a As Integer
For a = 1 To Sheets.Count
Sheets(a).Visible = True
Next a
End Sub
HAt jemand eine Idee, wie wir die Tabellen wieder angezeigt bekommen?
danke
stefan
Andreas Killer
> wir haben hier eine Datei (Blatt- und Arbeitsmappenschutz schon
> entfernt), in der sich keinerlei Tabellen einblenden lassen, obwohl ganz
> offensichtlich welche vorhanden sind.
Woher wießt Du das?
> Auch folgendes Makro bringt kein Ergebniss:
Hmm, seltsam, vielleicht hat die Datei einen Knacks?
> HAt jemand eine Idee, wie wir die Tabellen wieder angezeigt bekommen?
Geh in den VBA-Editor, klick dort im Projekt-Explorer auf eine
"unsichtbare" Tabelle und drück F4 um Dir die Eigenschaften anzeigen
zu lassen. Das steht u.a. das Visible das das Makro setzt, kannst Du
so auch von Hand ändern.
Passiert da was?
Andreas.
Jörg Eisenträger
>Sheets(a).Visible = True
laut Intellisense heißen die Eigenschaften:
With DeinSheet
.Visible = xlSheetVisible
.Visible = xlSheetHidden
.Visible = xlSheetVeryHidden
End With
Vielleicht reicht True nicht.
Gruß
Jörg
--
LPs auf CD brennen - so geht's: http://www.joergei.de/
E-Mail-Adresse existiert, wird aber nicht gelesen.
"S. Müller"
danke für die Tipps, aber leider funktioniert es mit keinem von beiden.
Blätter werden nicht angezeigt. Kann da noch was superschlaues zum
ausblenden genutzt worden sein?
stefan
Jörg Eisenträger
>Blätter werden nicht angezeigt. Kann da noch was superschlaues zum
>ausblenden genutzt worden sein?
Aah, markiere im VBA-Editor DieseArbeitsmappe und schau nach, ob in den
Eigenschaften (F4) evtl. IsAddin=True. Wenn ja, sind alle Blätter
unsichtbar. Auf False setzen.