|
Hallo liebe Mitglieder. Ich möchte gerne zwei Makros auf einem Tabellenblatt ausführen. Inzwischen weiß ich, dass das bei mehereren "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" nicht möglich ist. Ich habe folgende Sub´s:
Makro 1:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("E23").Value = "Nein" Or Range("E23").Value = "" Then
Rows("24:28").EntireRow.Hidden = True
Rows("33").EntireRow.Hidden = True
Rows("29:32").EntireRow.Hidden = False
Sheets("Tabelle2").Select
Sheets("Tabelle1").Select
Else:
Rows("24:28").EntireRow.Hidden = False
Rows("33").EntireRow.Hidden = False
Rows("29:32").EntireRow.Hidden = True
Sheets("Tabelle2").Select
Sheets("Tabelle1").Select
End If
End Sub
Makro 2:
Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
If Range(I21).Value = "" Or Range(I21).Value = "1" Then
Rows("19").EntireRow.Hidden = True
Sheets("Tabelle2").Select
Sheets("Tabelle1").Select
Else:
Rows("19").EntireRow.Hidden = False
Sheets("Tabelle2").Select
Sheets("Tabelle1").Select
End If
End Sub
Wie kann ich diese dahingehend ändern oder ergänzen?
P.S. Ich bin in VBA wirklich nicht sonderlich bewandert. ;-)
Vielen lieben Dank vorab!
Andreas
|