Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum Ausblenden von Zeilen

Makro zum Ausblenden von Zeilen
26.07.2018 14:18:00
Zeilen
Hallo Zusammen,
ich habe bereits folgendes Makro in einem Arbeitsblatt zum Ausblenden von Zeilen, wenn der Wert von D6_
0 annimmt: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "D6" Then
Rows("48:51").Hidden = Target = 0
End If
End Sub

Jetzt bräuchte ich nochmal ein Makro in demselben Tabellenblatt mit folgender Funktion:
wenn D8 nicht gleich 2 ist, dann soll die Zeile 50 ausgeblendet werden, ansonsten eingeblendet.
Ich bekomme es leider nicht hin das beide Funktionen erfüllt werden. Über eure Hilfe würde ich mich sehr freuen :)
Danke!
Gruß Fabian

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Ausblenden von Zeilen
26.07.2018 14:38:17
Zeilen
Hallo Fabian,
wird D8 auch manuell geändert? Soll die Prüfung, ob D8=2 ist, auch bei Änderung von D6 erfolgen?
Gruß Matthias
AW: Makro zum Ausblenden von Zeilen
26.07.2018 14:50:48
Zeilen
Hallo Matthias,
Der Wert für D8 wird über eine Dropdown-Liste vom Nutzer ausgewählt und kann 0,1 oder 2 annehmen. Wenn 0 oder 1 hinterlegt ist dann soll die Ausblendung erfolgen.
Diese Prüfung soll unabhängig von der ersten Funktion durchgeführt werden, d.h. die Zeile kann bereits durch das erste Makro ausgeblendet werden oder durch die Bedingung des zweiten Makros.
Danke!
AW: Makro zum Ausblenden von Zeilen
26.07.2018 15:05:58
Zeilen
Hallo Fabian,
ok, also teste mal Armins Code.
Grundsätzlich wäre noch zu sagen, dass man in manchen Tabellen (bzw. immer, falls kein Schutz aktiv ist) mehrere Zellen auswählen kann und in diese gleichzeitig Inhalt reinschreiben kann (Strg+Enter).
Hier könnte der Code 
If Target.Address = "$D$6" And Target.Value = 0 Then

auf einen Fehler laufen, oder die Auswahl nicht erkannst werden (wenn du D5:D6 markiert ist Target.Address="$D$5:$D$6" und es tut sich nix, trotzdem ist ja D6 verändert worden).
Um dies zu vermeiden, kannst du folgendes machen: 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r0 As Range
Set r0 = Me.Range("D6")
If Not Intersect(Target, r0) Is Nothing Then
Me.Rows("48:51").Hidden = (r0.Value = 0)
End If
Set r0 = Me.Range("D8")
If Not Intersect(Target, r0) Is Nothing Then
Me.Rows("50").Hidden = (r0.Value  2)
End If
End Sub

Hier wird der zu überwachenden Zelle eine Bereichsvariable zugewiesen (r0), anschließend wird geprüft, ob die Schnittmenge (Intersect) der Variablen Target (Systemvariable, enthält den veränderten Bereich) und r0 "nicht Nichts" (also etwas) ist. Erst dann erfolgt das Aus-/Einblenden der Zeilen.
Gruß Matthias
Anzeige
AW: Makro zum Ausblenden von Zeilen
27.07.2018 07:55:30
Zeilen
Hallo Matthias, vielen Dank für den Hinweis, ich werde das Makro auf jedenfall mit einbauen!
Ein Schönes Wochende!
Gruß Fabian
AW: Makro zum Ausblenden von Zeilen
26.07.2018 14:40:28
Zeilen
Hallo Fabian, 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" And Target.Value = 0 Then
Rows("48:51").Hidden = True
ElseIf Target.Address = "$D$6" And Target.Value > 0 Then
Rows("48:51").Hidden = False
End If
If Target.Address = "$D$8" And Target.Value = 2 Then
Rows(50).Hidden = True
Else
Rows(50).Hidden = False
End If
End Sub
Gruß Armin

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