Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bei bestimmtem Wert Tabelle ausblenden

bei bestimmtem Wert Tabelle ausblenden
Peter
Guten Tag
Ich habe in einer Datei 12 Tabellen. In jeder ist eine Zelle, benannt mit "cl_?" (also "cl_01", "cl_02", "cl_03" etc.) enthalten.
Wenn in der jeweiligen benannten Zeile in einem Sheet eine 0 steht, soll diese Tabelle ausgeblendet werden - wenn nicht, muss sie immer eingeblendet sein.
Mein Code stoppt allerdings schon bei der 1 Zeile. Was ist denn mit
If Range("cl_01").Value = 0 then falsch?
Danke für eine Antwort.
Gruss, Peter
Sub Ausblenden()
If Range("cl_01").Value = 0 Then
Sheets(Range("cl_01").Parent.Name).Visible = False
Else
Sheets(Range(cl_01).Parent.Name).Visible = True
End If
If Range("cl_02").Value = 0 Then
Sheets(Range("cl_02").Parent.Name).Visible = False
Else
Sheets(Range(cl_02).Parent.Name).Visible = True
End If
End Sub

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: bei bestimmtem Wert Tabelle ausblenden
04.11.2009 10:51:09
Björn
Dass Deine Range nicht so heißt.
Range muss immer Spalte und Zeile angegeben werden, also z.B. A1 oder K12.
Du hast aber Namen vergeben, die musst du über Reference ansprechen.
Versuch es mal mit Makrorekorder.
Da steht dann auch nix von Range("c1_01") oder ähnlichem...
Gruß
Björn
AW: bei bestimmtem Wert Tabelle ausblenden
04.11.2009 11:21:47
Björn
Versuch es mal damit...
Allerdings noch nicht ganz ausgereift.
Ich weiß nicht, wie man vom Namen auf das Sheet kommt.
Über Parent lande ich beim Workbook, nicht beim Sheet.
Vielleicht kann da einer helfen.
Wie heißen denn Tabellen, könnte man die 12 vielleicht auch in ner Schleife zusammensetzen?
z.B. Tab1, Tab2, Tab3, usw 
Sub ausblenden()
Dim i As Integer
Dim C As String
For i = 1 To ActiveWorkbook.Sheets.Count
If i
Gruß
Björn
Anzeige
vergiss es...
04.11.2009 11:26:01
Björn
.. da war ich wieder zu schnell, du kannst so gar nicht so einfach auf den Value zugreifen.
Names kann ja auch mehr als eine Zelle beinhalten, deshalb funktioniert das wohl nicht.
Vergiss den Code von mir.
Die Schleife kannst Du ja vielleicht verwenden, dann musst du den Code nicht 12 mal schreiben, aber der Rest funktioniert so nicht.
Sorry.
AW: bei bestimmtem Wert Tabelle ausblenden
04.11.2009 11:25:30
Erich
Hi Peter,
"If Range("cl_01").Value = 0 then" ist nicht falsch.
Aber du hast jeweils bei "Visible=True" die Namen ohne Gänsefüße geschrieben.
Wenn du da "cl_01" statt cl_01 schreibst, sollte es funzen.
Kürzer wäre 

Sub Ausblenden()
Sheets(Range("cl_01").Parent.Name).Visible = Range("cl_01").Value  0
Sheets(Range("cl_02").Parent.Name).Visible = Range("cl_02").Value  0
End Sub
Und wenn es viele Namen sind, kann man das Ganze auch in wenigen Zeilen
mit einer Schleife über die Namen erledigen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Ergänzungen
04.11.2009 11:31:49
Erich
Hi Peter,
Sheets(Range("cl_01").Parent.Name)
ist doch nichts anderes als
Range("cl_01").Parent
Damit ginge es (hofffentlich, weil ungetestet) besser - und auch noch mit Schleifchen: 

Sub Ausblenden()
Range("cl_01").Parent.Visible = Range("cl_01").Value  0
Range("cl_02").Parent.Visible = Range("cl_02").Value  0
End Sub
Sub AusblendenN()
Dim ii As Integer
For ii = 1 To 2
Range("cl_" & Format(ii, "00")).Parent.Visible = _
Range("cl_" & Format(ii, "00")).Value  0
Next ii
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Ergänzungen
04.11.2009 11:42:54
Peter
Hallo Erich
Das klappt mit der Schleife, vielen Dank!
Was mir jedoch immer noch nicht klar ist: Warum der nachfolgende Code bei
"If Range("cl_01").Value = 0 Then
stoppt.
Wenn ich über die gelb hinterlegte Zeile fahre, sehe ich den Hinweis:
""Range("cl_01").Value = <Die Methode 'Range' für das Objekt '_Worksheet ist ..."
Leider kann ich damit nichts anfangen.
Gruss, Peter
If Range("cl_01").Value = 0 Then
Sheets(Range("cl_01").Parent.Name).Visible = False
Else
Sheets(Range("cl_01").Parent.Name).Visible = True
End If
Wo steht der Code?
04.11.2009 12:13:46
Erich
Hi Peter,
Steht die Prozedur "Ausblenden" im Modul eines Tabellenblatts oder in einem "normalen" Modul?
Bei Ersterem gibt es einen Fehler - denn "Range(...)" soll ja zu dem Blatt gehören, in dem der Code steht.
Steht der Code in einem normalen Modul, läuft er wohl durch.
(Die Namen müssen natürlich definiert sein und auf einzellige Bereiche verweisen.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Wo steht der Code?
04.11.2009 12:40:24
Peter
Hallo Erich
Vielen Dank, dass du dich dem Problem angenommen hast und auch für die Hinweise im späteren Thread.
Es ist tatsächlich so, dass der Code ursprünglich im Modul eines Tabellenblattes stand. Somit ist mir jetzt auch klar, dass das die Ursache des Fehlers ist und es ist ja kein Problem, den Code in ein normales Modul auszulagern.
Trotzdem noch die Frage: Gibt es eine andere Möglichkeit im Modul eines Tabellenblattes einen Range in einer Tabelle anzusprechen, ohne den Code in ein normales Modul auszulagern?
Gruss, Peter
Range in anderer Tabelle
04.11.2009 13:18:15
Erich
Hi Peter,
ein Beispiel hatten wir in dem anderen Thread heute: https://www.herber.de/forum/archiv/1112to1116/t1114386.htm#1114396
Wesentlich ist, dass man vor Range das Blatt stellen muss.
Bei benannten Bereichen ist das Blatt vielleicht (zunächst) nicht bekannt und muss ermittelt werden,
ganz grob und ungetestet etwa so:
ActiveWorkbook.Names("X_12").RefersToRange.Parent
Das sollte dann das richtige Blatt sein - musst du mal ausprobieren.
Wenn es stimmt, könnte man A1 dieses Blatts so bekommen:
ActiveWorkbook.Names("X_12").RefersToRange.Parent.Cells(1,1)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Vielen Dank!! owT
04.11.2009 13:45:39
Peter
weitere Ergänzung
04.11.2009 12:25:54
Erich
Hi,
wenn der Code jetzt in einem normalen Modul steht, gehts auch schöner mit 

Sub AusblendenN()
Dim ii As Integer, strN As String
For ii = 1 To 2
strN = "cl_" & Format(ii, "00")
Range(strN).Parent.Visible = Range(strN).Value = 0
Next ii
End Sub
Eins ist natürlich auch noch wichtig: Zu jeder Zeit muss mindestens ein Blatt eingeblendet sein, sonst knallts.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
noch ein Hinweis: Option Explicit
04.11.2009 11:39:14
Erich
Hi Peter,
augenscheinlich hast du oben im Modul nicht Option Explicit stehen.
Hättest du das, würde der VBA-Compliler dich darauf hinweisen, dass die Variable cl_01 nicht deklariert ist.
Ohne die Gänsefüße muss VBA cl_01 als Variablennamen auffassen.
"cl_01" dagegen ist ein Text - hier der die Bezeichnung eines Namens.
Zusatztipp:
Wenn du in VBA im Menü Extras - Optionen, Karte "Editor"
die Option "Variablendeklaration erforderlich" aktivierst,
schreibt der VBA-Editor automatisch "Option Explicit" als erste Zeile in jedes neue Modul.
Zu Option Explicit schau auch mal z. B. hier:
http://www.online-excel.de/excel/singsel_vba.php?f=4
http://www.vbarchiv.net/faq/allg_optionexplicit.php
http://www.vb-seminar.de/vb_27.htm
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

304 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Auslesen von Werten aus einer Combobox
Werten

Hallo erstmal,
ich habe eine ComboBox und diese schreibt Werte jeweils in die nächste Zeile.
Wenn ich aber mehrmals hintereinander den selben Wert auswähle passiert leider nichts.
Wie kann ich mehrmals den selben Wert auswählen und jeweils in die nächste Zeile schreiben?
Über ei...
30.08.2008 12:24:00
Thread-ID: 1006032
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
1
9
2
7
2
2
4
5
4
2
1
4
1
1
5
4
10
6
5
3
1
1