Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
hier mal noch ein Ansatz, ohne Autofilter:
If IsError(Range("A1")) Then Rows(1).Hidden = True
bzw.
Rows(1).Hidden = IsError(Range("A1"))
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo,
Code:
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Rows.Hidden = False
Columns(4).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub
Gruß Uwe
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• schauan
Registriert seit: 18.09.2020
Version(en): 2007
31.10.2020, 15:29
(Dieser Beitrag wurde zuletzt bearbeitet: 31.10.2020, 15:34 von ExcelVBAAnfänger.)
Hi Schuauan,
Zitat:Rows(1).Hidden = IsError(Range("A1"))
Als erstes mal Danke. Der Code funktioniert an für sich. Wenn ich aber in dem anderen Tabellenblatt etwas ändere. Verändert sich in dem entsprechenden Tabellenblatt nichts, wenn ich am wild rum klicke, verändert es sich so, wie es soll. HÄÄÄ?!
Der Code ist mit Worksheet_Change(ByVal Target As Range geschrieben.
Hi Kuwer,
deinen habe ich auch ausprobiert. am Anfang hat es teilweise geklappt. Aber jetzt gar nicht mehr. Das Programm hört nicht auf zu laden, wenn ich etwas verändere.
Gruß
ExcelVBAAnfänger
Hi Kuwer,
jetzt kommt der Laufzeitfehler ´-2147417848(80010108)´ raus :/
Gruß
ExcelVBAAnfänger
Registriert seit: 30.08.2014
Version(en): Office 365 - Beta 32 Bit
Hallo, :19:
mit einer aussagekräftigen Beispieldatei wäre die Sache (gestern) schon gegessen. :21:
Das "Private Sub Worksheet_Calculate()" solltest du, wenn möglich, meiden. Wenn du auf einem Tabellenblatt etwas änderst und es soll auf einem anderen Tabellenblatt etwas geschehen, dann nimm das "Private Sub Worksheet_Deactivate()" des Blattes in dem du etwas änderst, oder das "Private Sub Worksheet_Activate()" in dem Blatt wo dann etwas passieren soll. :21:
Das "Private Sub Worksheet_Calculate()" wird u. U. zu oft getrickert - je nachdem wie deine Datei ausgebaut ist.
________
Servus
Case
Folgende(r) 1 Nutzer sagt Danke an Case für diesen Beitrag:1 Nutzer sagt Danke an Case für diesen Beitrag 28
• ExcelVBAAnfänger
Registriert seit: 18.09.2020
Version(en): 2007
Hallo Case,
wir haben es geschafft!!!
Habe es jetzt einfach mit Worksheet_Activate() gemacht und es klappt.
Vielen Danke euch Leute. Richtig Geile Community!
(Datei hat 16 Seiten, 4 Seiten werden angezeigt, um den Rest zu öffnen PW, alles voneinander abhängig mit SVerweisen und VBA. Da eine aussagekräftige Beispieldatei zu machen, ist so gut wie unmöglich.)
Gruß
ExcelVBAAnfänger
