Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Tabellen ein- resp. ausblenden SWITCH

Forumthread: bestimmte Tabellen ein- resp. ausblenden SWITCH

bestimmte Tabellen ein- resp. ausblenden SWITCH
Peter
Guten Abend
In einer grösseren Datei habe ich einige Tabellen, deren Namen einer der Strings "_FA", "_FV" oder "_FF" enthält.
Nun möchte ich ein Makro, mit dem ich diese Tabellen identifiziere und die einzelnen Tabellen einblende, wenn sie ausgeblendet sind, resp. umgekehrt.
Fragen:
-Wie lautet die Abfrage, ob sheets(i).name einer der erwähnten Strings enthält?
- Wie muss die Codezeile lauten, die mit eine Tabelle jeweils in den anderen Zustand (eingeblendet, resp. ausgeblendet) versetzt (irgendwie sheets(i) not visible = visible ?
Sub SwitchEinAus()
Dim i As Integer
For i = 1 To Sheets.Count
'if sheets(i).name   'enthält String _FA, _FV oder _FF
Code für anderen Zustand (ein- / ausgeblendet)
Next i
End Sub
Danke für eine Antwort.
Anzeige
AW: bestimmte Tabellen ein- resp. ausblenden SWITCH
19.11.2009 17:36:31
F1 

Sub SwitchEinAus()
Dim i As Integer
Application.ScreenUpdating = 0
For i = 1 To Sheets.Count
If Sheets(i).Name Like "*_FA*" Or _
Sheets(i).Name Like "*_FV*" Or _
Sheets(i).Name Like "*_FF*" Then
Sheets(i).Visible = Not Sheets(i).Visible
End If
Next
Application.ScreenUpdating = -1
End Sub

F1
Anzeige
hier mein Vorschlag dazu.
19.11.2009 17:40:53
Tino
Hallo,
geht es so?
Sub Test()
Dim oSH As Object
Dim iVisible As Integer
iVisible = -2
For Each oSH In ThisWorkbook.Sheets
If InStr(oSH.Name, "_FA") > 0 Or _
InStr(oSH.Name, "_FV") > 0 Or _
InStr(oSH.Name, "_FF") > 0 Then
If iVisible = -2 Then
iVisible = IIf(oSH.Visible = xlSheetVisible, xlSheetVeryHidden, xlSheetVisible)
End If
oSH.Visible = iVisible
End If
Next oSH
End Sub
Gruß Tino
Anzeige
durchs Testen dauerts bei mir immer etwas ...
19.11.2009 17:45:42
Matthias
Hallo
Sub SwitchEinAus()
Application.ScreenUpdating = False
Dim i As Integer
Dim wert1
Dim wert2
Dim wert3
For i = 1 To Sheets.Count
wert1 = Sheets(i).Name Like "*_FA*"
wert2 = Sheets(i).Name Like "*_FV*"
wert3 = Sheets(i).Name Like "*_FF*"
If wert1 = True Or wert2 = True Or wert3 = True Then
Sheets(i).Visible = Not Sheets(i).Visible
End If
Next i
Application.ScreenUpdating = True
End Sub
Gruß Matthias
Anzeige
und (i) würde ich as Long deklarieren kwT
19.11.2009 17:48:32
Matthias
?
19.11.2009 17:49:59
F1
Mappe mit mehr als 32.000 Blättern?
F1
Ja, wo ist das Problem? (oT)
19.11.2009 18:13:47
Jens
Anzeige
Die möchte ich sehen! oT
19.11.2009 19:45:22
F1
oT
AW: Die möchte ich sehen! oT
19.11.2009 20:04:44
Jens
Hallo
Die Anzahl der Arbeitsblätter ist nur durch den verfügbaren Speicher begrenzt.
Ob solch eine Datei Sinn macht/hat, ist eine andere Frage.
Gruß Jens
Boolesche Variablen
19.11.2009 20:40:46
Erich
Hi Matthias,
an deinem Code ist nichts falsch - aber mir sind doch drei Dinge aufgefallen:
Warum deklarierst du wert1,2,3 nicht genau?
Dim wert1 as Boolean, wert2 as Boolean, wert3 as Boolean,
Warum lässt du wert2 und wert3 für auch dann noch ermitteln, wenn wert1 True ist?
Das verschenkt Zeit.
Statt
If wert1 = True Or wert2 = True Or wert3 = True Then
wäre IMHO klarer und kürzer:
If wert1 Or wert2 Or wert3 Then
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Boolesche Variablen
19.11.2009 22:01:20
Peter
Guten Abend miteinander
Vielen Dank für die vielen Beiträge. Ich habe mir jetzt aus den verschiednene Lösungen etwas zusammen "gemixt".
Gruss, Peter
Sub SwitchEinAus()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If InStr(Sheets(i).Name, "_FA") > 0 Or _
InStr(Sheets(i).Name, "_FV") > 0 Or _
InStr(Sheets(i).Name, "_FF") > 0 Then
Sheets(i).Visible = Not Sheets(i).Visible
End If
Next
Application.ScreenUpdating = True
End Sub

Anzeige
ja ...
20.11.2009 16:57:33
Matthias
Hallo Erich
Ja klar hätte ich auch wert1-3 deklarieren sollen. Da gebe ich Dir Recht
Mit ...
Warum lässt du wert2 und wert3 für auch dann noch ermitteln, wenn wert1 True ist?
Das verschenkt Zeit. ... versteh ich noch nicht ganz.
... weil Wert2 oder Wert3 doch auch True sein kann
bei wert1=True wird doch nur die Tabelle mit *_FA aus/eingeblendet.
oder verstehe ich da was falsch?
allerdings If wert1 Or wert2 Or wert3 Then ... (habe ich noch nicht probiert), sieht logisch aus.
aber Du schreibst ja selbst: an deinem Code ist nichts falsch
Ich bedanke mich für für Deine Rückmeldung :o)
Gruß Matthias
Anzeige
@Matthias
20.11.2009 18:22:51
Erich
Hi Matthias,
wenn wert1 True ist, wird Sheets(i).Visible umgeschaltet - egal, wie wert2 oder wert3 aussehen,
egal also, od auch "_FV" oder "_FF" im Namen vorkommen. Das braucht dann gar nicht mehr überprüft zu werden.
Nur wenn wert1 False ist, spielen wert2 und wert3 eine Rolle.
Zum Hinschreiben so eines logischen Ausdrucks:
wert1 ist einfach ein Wahrheitswert - wie auch z. B. intA = 7. Beides kann True oder False sein.
Man kann ja wert1 auch z. B. so belegen: wert1 = (intA = 7) oder kürzer: wert1 = intA = 7
Man käme gar nicht auf die Idee, zu schreiben: If (intA = 7) = True Then
Man schreibt immer: If intA = 7 Then
Dann muss man doch auch nicht schreiben: If wert1 = True Then
Einfacher ist: If wert1 Then
Dazu passt auch: "If wert1 = False" ist nichts anderes als "If Not wert1".
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: @Erich
20.11.2009 18:40:40
Matthias
Hallo Erich
Zitat:
Nur wenn wert1 False ist, spielen wert2 und wert3 eine Rolle.
Genau deshalb habe ich es ja so geschrieben!
Gruß Matthias
@Matthias: Sorry, ...
20.11.2009 19:35:55
Erich
Hi Matthias,
..,. die ganze Aufregung kann ich nicht so recht verstehen.
Dein Code - auf den ich mich bezog - sah so aus: 

Sub SwitchEinAus()
Application.ScreenUpdating = False
Dim i As Integer
Dim wert1
Dim wert2
Dim wert3
For i = 1 To Sheets.Count
wert1 = Sheets(i).Name Like "*_FA*"
wert2 = Sheets(i).Name Like "*_FV*"
wert3 = Sheets(i).Name Like "*_FF*"
If wert1 = True Or wert2 = True Or wert3 = True Then
Sheets(i).Visible = Not Sheets(i).Visible
End If
Next i
Application.ScreenUpdating = True
End Sub
Dazu hatte ich angemerkt:
"Warum lässt du wert2 und wert3 für auch dann noch ermitteln, wenn wert1 True ist?
Das verschenkt Zeit."
wert2 und wert3 werden in deinem Code immer ermittelt - unabhängig von wert1.
Wenn wert1 True ist, brauchen wert2 uind wert3 nicht mehr berechnet zu werden - sie sind egal.
Man könnte das z. B. so schreiben: 

Sub SwitchEinAus2()
Dim ii As Integer, blnSwitch As Boolean
Application.ScreenUpdating = False
For ii = 1 To Sheets.Count
If Sheets(ii).Name Like "*_FA*" Then
blnSwitch = True
ElseIf Sheets(ii).Name Like "*_FV*" Then
blnSwitch = True
ElseIf Sheets(ii).Name Like "*_FF*" Then
blnSwitch = True
End If
If blnSwitch Then Sheets(ii).Visible = Not Sheets(ii).Visible
Next ii
Application.ScreenUpdating = True
End Sub
Hier werden die Ausdrücke Sheets(ii).Name Like "*_FV*" und Sheets(ii).Name Like "*_FF*"
nicht mehr ausgewertet, wenn Sheets(ii).Name Like "*_FA*" ist.
Hier wird das noch deutlicher: 

Sub SwitchEinAus3()
Dim ii As Integer, blnBleibt As Boolean
For ii = 1 To Sheets.Count
If Not Sheets(ii).Name Like "*_FA*" Then
If Not Sheets(ii).Name Like "*_FV*" Then
If Not Sheets(ii).Name Like "*_FF*" Then blnBleibt = True
End If
End If
If Not blnBleibt Then Sheets(ii).Visible = Not Sheets(ii).Visible
Next ii
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: @Matthias: Sorry, ...
20.11.2009 22:36:16
Peter
Hallo Erich
Vielen Dank für die interessanten Beiträge. Die beiden letzten Codes habe ich nochmals getestet und ich bin der Ansicht, dass SwitchEinAus3 nicht funktioniert. Ich habe allerdings auch nicht herausgefunden warum.. Die 3 hinterlegten Codes sind in einem sep. Excel Menü "PS" aufrufbar.
Gruss, Peter
https://www.herber.de/bbs/user/66069.xls
Anzeige
Korrektur
21.11.2009 00:50:09
Erich
Hi Peter,
stimmt - in der Variante fehlt etwas:
blnBleibt behielt einen einmal erhaltenen Wert True für die folgenden Schleifendurchläufe.
So sollte es aber laufen: 

Sub SwitchEinAus3()
Dim ii As Integer, blnBleibt As Boolean
For ii = 1 To Sheets.Count
blnBleibt = False         ' ### Die Zeile ist neu ###
If Not Sheets(ii).Name Like "*_FA*" Then
If Not Sheets(ii).Name Like "*_FV*" Then
If Not Sheets(ii).Name Like "*_FF*" Then blnBleibt = True
End If
End If
If Not blnBleibt Then Sheets(ii).Visible = Not Sheets(ii).Visible
Next ii
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Korrektur
21.11.2009 07:22:00
Peter
Hi Erich
Alles klar!
Danke und Grüsse aus Bern, Peter
@Erich Da war keine "Aufregung" ...
21.11.2009 12:25:52
Matthias
Hallo Erich
Vielleicht hattest Du nur nicht verstanden, das ich es noch nicht verstanden hatte.
Aber jetzt ist alles klar, Danke :o)
Gru0 Matthias

Forumthreads zu verwandten Themen

Exceltabelle in Word
S.H.

Hallo,
evtl. bin ich auch im falschen Forum, aber trotzdem meine Frage:
Ich habe ein Excel Arbeitsblatt unter word eingefügt und möchte dort weitere Zeilen einfügen. Das funktioniert auch soweit, am Ende der Word Seite ist allerdings Schluss. Ich schaffe es nicht, das die Tabelle einen...
20.10.2008 20:22:26
Thread-ID: 1017796
3 Beiträge
Excel-Tabelle in Word-Dokument
Dieter

Hallo Forum,
in die Übergabe einzelner Werte einer Excel-Tabelle in ein Word-Dokument habe ich mich ganz gut eingearbeitet. Nun stehe ich allerdings vor dem Problem, eine ganze Tabelle oder nur einen zusammenhängenden Teil der Tabelle in ein Word-Dokument zu übertragen. Kann mir jemand ein...
27.12.2008 16:58:00
Thread-ID: 1035409
8 Beiträge
Anzeige
Excel Tabelle über 2 Seiten in Word
Ralf

Hallo,
ich möchte eine Excel Tabelle in Word einfügen. Das Problem ist, dass die Tabelle sehr lang ist und über 2 Seiten in Word gehen würde. Sie soll auch automatisch aktualisiert werden, wenn die Originaltabelle in Excel verändert wird.
Gibt es da eine Möglichkeit?
Vielen Dank!
16.04.2009 22:29:58
Thread-ID: 1069191
3 Beiträge
Zwei Excel-Tabellen in WinWord verknüpfen
Andreas

Hallo zusammen,
ich habe eine Word-Datei, in der sich an zwei verschiedenen Stellen zwei eingefügte Excel-Dateien befinden. Diese wurde vor langer Zeit mal aus Excel kopiert. Das Original in Excel existiert nicht mehr.
Jetzt möchte ich das Ergebnis einer Berechnung aus der ersten Tabell...
04.08.2009 13:53:46
Thread-ID: 1093412
2 Beiträge
Excell Tabelle in Word und Format behalten
Christian

Hallo.
Bei importieren einer Excell Tabelle in Word wird das Format der Tabelle immer "verhauen" = in die länge gezogen. Das sieht bescheiden aus. Gibt es eine Möglichkeit die Tabelle so zu importieren damit das Seitenverhältnis bleibt. Ich arbeite mit Word und Excell 2007.
Danke im Vor...
05.08.2009 14:48:21
Thread-ID: 1093759
2 Beiträge
aus Word mit Makro in Excel Tabellenblatt wechseln
Joni

Hi,
ich habe das Problem, dass ich aus einem Worddokument eine Exceltabelle, die bereits geöffnet ist, aktivieren möchte und dann da aus 2 Tabellenblättern Werte auslesen. Ich komm da einfach nicht weiter.
Excel als Object habe ich definiert. Beim Workbook und Sheet klappt das nicht meh...
31.10.2009 00:38:15
Thread-ID: 1113446
3 Beiträge
In Tabelle Zellfarbe abfragen - Spalte ausblenden
Gegga

So und weitergehts :)
Ich baue gerae iene etwas aufwendigere Tabelle, wo ich mit mehreren Hilfsspalten arbeiten muss die ausgeblendet werden.
Ich habe einen Com.Button eingefügt mit folgendem Code:
Columns("BJ:BK").Select
Selection.EntireColumn.Hidden = True
Funzt, klar. Da...
21.12.2009 09:56:44
Thread-ID: 1125270
9 Beiträge
Anzeige
Tabellenblatt per Makro ein-/ ausblenden
Bibabutzel

Hallo Ecxel-Gemeinde,
ich mache gerade meine ersten eigenen Gehversuche in Sachen VBA und benötige mal bitte Eure Hilfe. Das Problem ist (für die, die es können) wahrscheinlich ein relativ einfaches:
Im Bereich A20:A59 stehen Namen und zu jedem dieser Namen gibt es ein Tabellenblatt (da...
17.01.2010 00:16:55
Thread-ID: 1130538
10 Beiträge
Anzeige
Tabellenblätter aus ListBox ein- und ausblenden
Dirk

Hallo,
Ich habe eine Userform mit einer Listbox in der alle eingeblendeten Tabellenblätter und eine Listbox in der alle ausgeblendeten Tabellenblätter enthalten sind. Nun möchte ich per Mausklick auf ein Tabellenblattname in einer der Listboxen das entsprechende Blatt ein- bzw. ausblenden.
17.04.2002 10:18:26
Thread-ID: 113989
3 Beiträge
Excel-Tabellen in Word umwandeln
joko0803

Hallo alle,
ich bin nicht sicher, ob dieses Thema hier her gehört.
Falls nein, wäre ich für das Benennen eines entsprechenden Forums dankbar.
In einem Word Dokument habe ich viele Excel-Tabellen eingebunden.
Dieses Word Dokument muss ich an eine Behörde zur Weiterverarbeitung ve...
07.05.2010 16:29:49
Thread-ID: 1156132
6 Beiträge
Anzeige
Einbindung XLS Tabelle in Word Document
Steffen

Hallo
Kann ich eine Exceltabelle (nichts aufregendes nur Zeilen und Spalten) so in eine Word Dokument einbinden, daß die Tabelle im Worddokument aktuell bleibt?
Also wenn ich die Tabelle ergänze oder ändere, soll die Tabelle im Word Dokument automatisch mitaktuallisiert werden (also wen...
21.09.2010 08:38:34
Thread-ID: 1178661
3 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige