Zeilen ausblenden

Forumthread: Zeilen ausblenden

Zeilen ausblenden

02.03.2022 16:11:13

Uwe

Habe folgenden Code für das Ausblenden von mehren Zellen gefunden, der auch gut funktioniert. Allerdings wenn ich das Arbeitsblatt aufrufe und das x ist schon in J4 gesetzt, muss ich das x erst löschen und wieder einsetzen, um die Zeilen auszublenden. Wie kann man das ändern?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$4" Then _
Range("65:75").EntireRow.Hidden = Target = "x"
End Sub

Dieser gleiche Aufruf für andere Zellen funktioniert auch nicht. (Fehler beim Kompilien)


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$3" Then _
Range("57:59").EntireRow.Hidden = Target = "x"
End Sub

Danke für eure Hilfe
Gruß
Uwe

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen ausblenden

02.03.2022 16:16:47

Daniel
AW: Zeilen ausblenden

02.03.2022 16:25:49

Rudi
AW: Zeilen ausblenden

02.03.2022 16:28:13

GerdL
AW: Zeilen ausblenden

02.03.2022 20:10:23

Uwe
welcher Werner? owT

02.03.2022 20:58:25

Rudi
AW: welcher Werner? owT

03.03.2022 07:29:51

Uwe

AW: Zeilen ausblenden

02.03.2022 16:16:47

Daniel

Hi
Der Makroname muss eindeutig sein und darf innerhalb eines Moduls nur einmal verwendet werden.
Der Makroname muss aber genau so lauten, denn sonst kann dieses Makro dem Ereignis nicht zugeordnet und automatisch ausgeführt werden.
Die Lösung ist, dass du beide Makros in einem zusammenfasst.
So wie du es programmiert hast, sollte es auch kein Problem sein, du kannst beide Befehlszeilen einfach untereinander schreiben.
Gruß Daniel

AW: Zeilen ausblenden

02.03.2022 16:25:49

Rudi

Hallo,
verstehe ich nicht. Der Zustand sollte doch beibehalten werden, wenn du das WB schließt und wieder öffnest.
zu 2.:


Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$J$3": Range("57:59").EntireRow.Hidden = Target = "x"
Case "$J$4": Range("65:75").EntireRow.Hidden = Target = "x"
End Select
End Sub

Gruß
Rudi

AW: Zeilen ausblenden

02.03.2022 16:28:13

GerdL

Moin Uwe,
verdoppeln geht mit Ereignisprozeduren nicht.
Guck mal, ob du so deinem Ziel näher kommst.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$3" Or Target.Address = "$J$4" Then
Rows("57:59").Hidden = Range("J3") = "x"
Rows("65:75").Hidden = Range("J4") = "x"
End If
End Sub

Gruß Gerd

AW: Zeilen ausblenden

02.03.2022 20:10:23

Uwe

Danke euch,
habe wieder zugelernt.Dein Code, Werner, klappt ohne Probleme.
Herzliche Grüße
Uwe

welcher Werner? owT

02.03.2022 20:58:25

Rudi

AW: welcher Werner? owT

03.03.2022 07:29:51

Uwe

Entschuldigung,
ich meinte Gerd
Gruß
Uwe

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeilen ausblenden

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread