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

Zeilen ausblenden mit Sverweis

Forumthread: Zeilen ausblenden mit Sverweis

Zeilen ausblenden mit Sverweis
21.04.2025 19:12:37
Josef Salzinger
Guten Abend,

Ich stehe mit einen Problem auf dem Schlauch. es sollen Zeilen ausgeblendet werden wenn sich z.B. in der Zelle A1 der Wert ändert. siehe Code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Text = "T" Then '
Rows("09:26").EntireRow.Hidden = False
End If
If Range("A1").Text = "E" Then '
Rows("09:26").EntireRow.Hidden = True
Rows("16:21").EntireRow.Hidden = False
End If
usw.
es klappt ja auch alles wunderbar.
Nun soll aber die Zelle A1 mit Sverweis beschrieben werden. Dann werden die Werte nicht übernommen.
Mit einer drop down Liste würde es gehen, aber der Sverweis sagt mir besser zu.
Was muss ich hierbei beachten?

Danke vorab.

Gruß
Josef
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden mit Sverweis
21.04.2025 19:20:23
Onur
"Was muss ich hierbei beachten? "
Dass Worksheet_Change nur auf manuelle Änderungen reagiert.
AW: Zeilen ausblenden mit Sverweis
21.04.2025 19:35:29
Onur
Woher kommt das Suchkriterium des SVerweis? Manuelle Eingabe?
Wenn ja, dann nicht A1 auf Änderungen überwachen, sondern die Zelle mit dem Suchkrierium.
AW: Zeilen ausblenden mit Sverweis
21.04.2025 19:27:16
Timm
Hallo Josef,

habe es gerade nachgebaut. Bei mir funktioniert folgendes tadellos:

Zelle A1: =SVERWEIS(Suchkriterium;Matrix;1;FALSCH)

VBA:
If Tabelle8.Range("A1").Text = "T" Then
Tabelle8.Rows("5:6").EntireRow.Hidden = True
End If

Gruß
Timm

Anzeige
AW: Zeilen ausblenden mit Sverweis
21.04.2025 20:24:12
GerdL
Hallo Josef,

diese Eventprozedur läuft bei jeder x-beliebigen Änderung per Formel. 
Private Sub Worksheet_Calculate()



    Dim lngCalc As Long

    

    lngCalc = Application.Calculation

    Application.Calculation = xlCalculationManual

    Application.EnableEvents = False

    

    Select Case Range("A1").Text

        Case "T"

            Rows("09:26").Hidden = False

        Case "E"

            Rows("09:26").Hidden = True

            Rows("16:21").Hidden = False

    End Select

    

    Application.EnableEvents = True

    Application.Calculation = lngCalc



End Sub

Gruß Gerd
Anzeige
AW: Zeilen ausblenden mit Sverweis
22.04.2025 12:07:00
Josef Salzinger
Hallo Gerd,
Leider hat's mir beim ersten Versuch die Datei geschrottet das mir Excel immer abstürzt.

Bei weiteren Versuchen habe ich es zum Laufen bekommen - und es ist genau das was ich wollte . Super.

Danke Gerd.

Gruß

Josef
AW: Zeilen ausblenden mit Sverweis
24.04.2025 18:25:06
Josef Salzinger
Hallo,
Das obrige Beispiel funktioniert perfekt für.
Nun habe ich versucht eine weitere Auswahl zum ausblenden hinzu zufügen leider hängt sich da Excel auf.
Habe mit Google versucht leider fand ich da keine Antwort.
Vielleicht hat nochmal einer von euch Zeit das Beispiel zu erweitern.
Danke schonmal im Voraus.

Gruß
Josef

Anzeige
AW: Zeilen ausblenden mit Sverweis
25.04.2025 11:41:14
GerdL
Hallo Josef,
deine Aussage habe ich mal so interpretiert.
Für Excel wäre es weniger aufwändig bei den Eingabezellen
mit der Change-Ereignisprozedur anzusetzen. 
Private Sub Worksheet_Calculate()



    Dim lngCalc As Long

    

    lngCalc = Application.Calculation

    Application.Calculation = xlCalculationManual

    Application.EnableEvents = False

    

    Select Case Range("A1").Text

        Case "T"

            Rows("09:26").Hidden = False

        Case "E"

            Rows("09:26").Hidden = True

            Rows("16:21").Hidden = False

    End Select

    

    'zweite Auswahl mit zweiter Formelzelle

    Select Case Range("A2").Text

        Case "T"

            Rows("29:56").Hidden = False

        Case "E"

            Rows("29:56").Hidden = True

            Rows("36:51").Hidden = False

    End Select

    

    

    

    

    Application.EnableEvents = True

    Application.Calculation = lngCalc



End Sub

Gruß Gerd
Anzeige
AW: Zeilen ausblenden mit Sverweis
21.04.2025 19:32:06
Onur
Das KANN nicht funktionieren, da der Code keine Änderungen durch Formeln berücksichtigt.
Wenn du schon testest, solltest du es mal im Worksheet_Change testen (ob sich was ändert, wenn das Ergebnis vom SVerweis sich ändert..
AW: Zeilen ausblenden mit Sverweis
21.04.2025 19:35:36
Timm
Hallo Onur,

du hast vollkommen Recht. Habe nicht gesehen, dass das Makro per Change ausgelöst werden soll.

Die Lösung wäre dann, dass Makro z.B. per Button zu starten.

Gruß
Timm

Anzeige
AW: Zeilen ausblenden mit Sverweis
21.04.2025 20:39:41
Eifeljoi 5
Hallo

Wenn du es schon per Button von Hand anstoßen möchtest, warum denn in deiner Version nicht gleich ohne VBA mit Power Query??
Mehr kann man nicht sagen ob es nun wirklich mit PQ alles umsetzbar wäre bleibt ab zu warten da man das Gesamtprojekt nicht kennt.

Forumthreads zu verwandten Themen

Worksheet_Change Ereignis erweitern
Fritz_W

Hallo VBA-Experten,
in einem Tabellenmodul befindet sich nachstehender Code der das Makro1 startet, wenn sich in der Spalte A ein Wert ändert.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Column = 1 And Target(1, 1).Row > 1 Then Makro1
In der gleichen...
22.03.2007 18:27:00
Thread-ID: 856814
6 Beiträge
On Worksheet Change - simulieren?!
Andreas

Hallo Herber Freunde,
ich hänge nun an einem Problem fest, welches mich schon so manches Mal beschäftigte. Ich habe auf einem Blatt im VBA Editor für das Event "On Worksheet Change" einige Codes hinterlegt. Wenn ich die Verknüpfung der Datei ändere, habe ich manchmal den Eindruck, daß dadu...
24.06.2008 11:20:00
Thread-ID: 988210
2 Beiträge
Anzeige
Fehler 13 bei Ausführen von Worksheet_Change
Andreas
Hallo werte Forummitglieder!

Als blutiger Anfänger in VBA habe ich mich mit einigen Web Tipps daran getraut, in VBA vordefinierte Filter für eine recht umfangreiche Liste zu erstellen. Um zwischen den diversen Filtereinstellungen auszuwählen, arbeite ich mit der Funktion "Datenüberprüfung",...
22.08.2025 17:43:28
Thread-ID: 2017639
5 Beiträge
Leere Zeilen, Intersect-Ereignis
Filikos
Hallo an die VBA-Spezialistinnen und Spezialisten
Nach stundenlangem Error and Trail bitte ich euch um Support. Grundsätzlich funktioniert mein Code. Eine ListObject-Tabelle fragt die Werte aus einer Pivot-Tabelle ab. Es gibt 4 verschiedene Datenschnitte, wobei der Wichtigste der "TagTyp" ist. J...
07.04.2022 18:36:53
Thread-ID: 1878798
8 Beiträge
Farben aktualisieren !!!
Maphi

Bitte nochmals um dringende Hilfe!
Habe vor geraumer Zeit eine Frage ins Forum gestellt, worauf ich auch eine Antwort bekommen habe. Da ich aber nicht mehr antworten konnte (Geburt meines Sohnes), würde ich gerne jetzt zu dieser Antwort Stellung nehmen (Schriftverkehr hab ich nochmals angeh...
08.06.2006 14:22:22
Thread-ID: 771306
2 Beiträge
<b>Wert aus Internetseite kopieren </b>
Stephan

Hallo liebe VBA Freunde
Ich importiere einen Datenwert der sich laufend ändert aus einer Webseite. Das funktioniert auch. Dieser Wert wird immer in Zelle 52 im Worksheet eingefügt. Ich habe ein Makro erstellt, wo dieser Wert bei Änderung in Tabelle2 kopiert wird und da gibt es ein Problem.<...
21.06.2015 22:29:28
Thread-ID: 1432258
3 Beiträge
Anzeige
Automatisch in Zeile scrollen, bei Wertänderung
Harald

Hallo zusammen,
In Spalte A habe ich Zellen, in denen Summen aus anderen Eingaben gebildet werden. Wenn ein bestimmter Wert in einer Zelle der Spalte A erreicht wird, sollen automatisch bestimmte Zeilen eingeblendet werden und dann automatisch zu diesen Zeilen gescrollt werden.
Wie beko...
19.03.2005 13:25:42
Thread-ID: 587652
2 Beiträge
Abhängige Auswahlfelder
Max

Hallo zusammen,
ich habe ein Excel-Sheet, mit dem ich in einer Zelle einen Auswahlwert anbieten möchte in Abhängigkeit von der Auswahl in einer anderen Zelle - also anhängige Kombinationsfelder.
Dies habe ich über Gültigkeit bzw. Indirekt() auch geschafft.
Eine Schwäche ist, dass si...
19.10.2017 22:04:45
Thread-ID: 1586865
4 Beiträge
Änderung einer VBA
baude

Hi,
´da ich leider keine Ahnung von VBA-Progammierung habe, ist ein kleines Problem mit einer bestehenden Programmierung entstanden.
Die VBA, die Ihr unten sehen könnt, bewirkt, das die aktelle Zeit und das Datum bei dem Eintrag in eine bestimmte Zelle automatisch in die Zelle daneben ein...
07.02.2003 16:51:34
Thread-ID: 215727
2 Beiträge
Protokollierung Ersteingabe
Ben

Guten Morgen Forum
Habe folgenden Code für die Protokollierung von Änderungen mit Datum/Zeit und User im Forum gefunden:
Private Sub Worksheet_Change(ByVal Target As Range) If ReadGlobalState = True Then Exit Sub If Target.Column > 15 Then Exit Sub If Target.Column = 1 Then Cells(Ta...
29.01.2007 10:51:02
Thread-ID: 841578
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum