Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Code zusammenbasteln
Frage
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
[code]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[/code]
Antwort 1 von Marie
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
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
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 :-((((
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
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
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
ische hab abber ie 7 :-((
Gruß marie
Gruß marie
Antwort 5 von halfstone
Hi,
das Problem ist schon erkannt, wird geändert.
Viele Grüße
fabian
das Problem ist schon erkannt, wird geändert.
Viele Grüße
fabian