Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1548to1552
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
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktionen zum Ein-/Ausblenden von Zeilen

Funktionen zum Ein-/Ausblenden von Zeilen
20.03.2017 10:58:53
Zeilen
' Die beiden Prozueduren funktionieren für sich genommenm, jedoch nicht zusammen. Woran liegt das, bzw was ist falsch?
Dim y As String
Dim x As String
Dim x2 As String 

Public Sub TestEinAusblenden_click()
x = Worksheets("Tabelle1").Range("C15").Value
x2 = Left(x, 9) 'wählt die ersten 9 Zeichen der in der Variable "x" aus
If x2 = "Stuttgart" Then
Worksheets("Tabelle2").Rows("15").Hidden = False
Worksheets("Tabelle3").Rows("10").Hidden = False
Else
Worksheets("Tabelle2").Rows("15").Hidden = True
Worksheets("Tabelle3").Rows("10").Hidden = True
End If
End Sub



Public Sub BananeEinAusblenden_click()

y = Worksheets("Tabelle1").Range("C13").Value

If y  "Obst" Then

Worksheets("Tabelle2").Rows("16").Hidden = False

Worksheets("Tabelle3").Rows("14").Hidden = False

Else

Worksheets("Tabelle2").Rows("16").Hidden = True

Worksheets("Tabelle3").Rows("14").Hidden = True

End If

End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktionen zum Ein-/Ausblenden von Zeilen
20.03.2017 11:04:28
Zeilen
Hallo,
was meinst du denn mit "jedoch nicht zusammen"?
AW: Funktionen zum Ein-/Ausblenden von Zeilen
20.03.2017 11:14:57
Zeilen
Wenn ich beispielsweise nur die erste Prozedur eingefügt habe, dann funktioniert es wie gewünscht. Wenn ich aber die zweite Prozedur noch dazu einfüge, dann funktionieren beide nicht wie gewünscht, d.h. es wird nicht mehr ausgeblendet/eingeblendet.
AW: Funktionen zum Ein-/Ausblenden von Zeilen
20.03.2017 11:24:02
Zeilen
Hallo!
Zeig doch mal wie Deine funktion mit den beiden Prozeduren zusammen aussieht.
Gruss
Dirk aus Dubai
AW: Funktionen zum Ein-/Ausblenden von Zeilen
20.03.2017 11:30:28
Zeilen
Hallo,
wieso deklarierst du die Variablen außerhalb der Prozedur?
Meinst du so?
Public Sub TestEinAusblenden_click()
If Left(Worksheets("Tabelle1").Range("C15").Value, 9) = "Stuttgart" Then
Worksheets("Tabelle2").Rows("15").Hidden = False
Worksheets("Tabelle3").Rows("10").Hidden = False
Else
Worksheets("Tabelle2").Rows("15").Hidden = True
Worksheets("Tabelle3").Rows("10").Hidden = True
End If
If Worksheets("Tabelle1").Range("C13").Value = "Obst" Then
Worksheets("Tabelle2").Rows("16").Hidden = True
Worksheets("Tabelle3").Rows("14").Hidden = True
Else
Worksheets("Tabelle2").Rows("16").Hidden = False
Worksheets("Tabelle3").Rows("14").Hidden = False
End If
End Sub
Gruß Werner
Anzeige
AW: Funktionen zum Ein-/Ausblenden von Zeilen
20.03.2017 13:12:22
Zeilen
Super vielen vielen Dank :) Jetzt funktioniert es so wie es soll.
Gerne und Danke für die Rückmeldung.
20.03.2017 13:20:07
Werner
Hallo Rainer,
du hast auch einen Vorschlag von Matthias.
Gruß Werner
AW: Funktionen zum Ein-/Ausblenden von Zeilen
20.03.2017 11:37:26
Zeilen
Hallo
Option Explicit
Public Sub EinAusblenden_click()
Dim y As String
Dim x As String
Dim x2 As String
x = Worksheets("Tabelle1").Range("C15").Value
y = Worksheets("Tabelle1").Range("C13").Value
x2 = Left(x, 9) 'wählt die ersten 9 Zeichen der in der Variable "x" aus
Worksheets("Tabelle2").Rows("15").Hidden = Not x2 = "Stuttgart"
Worksheets("Tabelle3").Rows("10").Hidden = Not x2 = "Stuttgart"
Worksheets("Tabelle2").Rows("16").Hidden = Not y = "Obst"
Worksheets("Tabelle3").Rows("14").Hidden = Not y = "Obst"
End Sub
Oder NOT weglassen, ja nachdem wie Du es brauchst.
Gruß Matthias
Anzeige
AW: Funktionen zum Ein-/Ausblenden von Zeilen
20.03.2017 14:36:01
Zeilen
Super, diese Herangehensweise funktioniert auch. Danke schön!

300 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 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
4
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5