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 / Skripte(PHP,ASP,Perl...)

Skripte(PHP,ASP,Perl...)

Fragevon Kathi1 vom 11.12.2019, 16:42 Options

Code zusammenbasteln

Hallo,
ich habe mit meinen Laien-Kenntnissen mir folgenden VBA-Code gebastelt, von dem jeder einzelne auch funktioniert. Aber ich schaffe es nicht, beides auf einmal zum laufen zu kriegen!
Kann mir da bitte jemand helfen?

Dankeschön im vorraus & Grüße
Kathi

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 schreiben

Antwort 1 von Marie vom 11.12.2019, 22:51 Options

lass mal end Sub und darunter

Private Sub Worksheet_Change(ByVal Target As Range) weg, dann hast Du keine zwei Funktionen mehr, sondern nur noch eine. Ich vermute mal das war schon was Du gesucht hast.

Wenn nicht kopier mal den Code hier rein ohne Formatierung, weil leider funktioniert das nicht, dass ich den kopiere, keine Ahnung wieso nicht. Aber abschreiben is mir zu mühsam.

Gruß Marie

Antwort 2 von Marie vom 11.12.2019, 23:22 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

Leider sieht Dein Code bei mir so aus, wenn ich ihn in Excel oder in den Editor, oder hier einfüge :-((((

Antwort 3 von Massaraksch vom 12.12.2019, 00:32 Options

Gut gemacht, Marie :o(
Hoffentlich kann ein Admin diese Monsterzeile mal wieder gradebiegen...

PS: Das scheint nur beim Kopieren mit dem IE(6?) zu passieren. Mit dem FF kein Problem.

Massaraksch

Antwort 4 von Marie vom 12.12.2019, 00:47 Options

ische hab abber ie 7 :-((

Gruß marie

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