Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
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

/ Forum / Test

Test

Fragevon herman5678 vom 11.12.2019, 16:46 Options

Das ist ein automatisierter Test

Das ist ein automatisierter TestDas ist ein automatisierter TestDas ist ein automatisierter TestDas ist ein automatisierter TestDas ist ein automatisierter TestDas ist ein automatisierter TestDas ist ein automatisierter TestDas ist ein automatisierter Test Testwort123

Antwort schreiben

Antwort 1 von Mickey vom 11.12.2019, 23:28 Options

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

Antwort 2 von micoc vom 11.12.2019, 23:29 Options

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

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

Tipp einschicken

News einschicken