Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
Fragevon hermann999 vom 11.12.2019, 23:35 Options
Codetest
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Me.Range("BH34")) Is Nothing Then Exit Sub If Cells(34, 60).Value = "" Then Rows(35).Hidden = True Rows(36).Hidden = True ElseIf Cells(34, 60).Value <> "" Then Rows(35).Hidden = False Rows(36).Hidden = False End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Me.Range("BH42")) Is Nothing Then Exit Sub If Cells(42, 60).Value = "" Then Rows(43).Hidden = True Rows(44).Hidden = True ElseIf Cells(34, 60).Value <> "" Then Rows(43).Hidden = False Rows(44).Hidden = False End If End Sub
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
