Wie?Tabellenübergreifende Funktion mit Blattschutz
21.07.2019 12:22:27
Jochen
wie würde das in meiner Funktion aussehen wenn ich in Tabelle3(HuW) die Zeilen 35 bis 53 ausblenden will wenn in Tabelle1(Basis1) in Zelle F21 eine 0 ist?
Zeilen 35-43 anzeigen wenn F21 eine 1 und Zeilen 45-53 ausgeblendet
Zeilen 35-53 einblenden wenn F21 eine 2 steht.
Also F21=0 Zeilen 35-53 aus, F21=1 Zeilen 35-43 ein 45-53 aus, F21=2 Zeilen 35-53 ein
Zeilen 35-53 in Tabelle3
Dieser Code ist in Tabelle1 und funktioniert wie gewünscht
Beide Tabellen sind mit Blattschutz geschützt.
Private Sub Worksheet_change(ByVal Target As Range)
On Error GoTo Fehler
ActiveSheet.Unprotect "123"
If Range("A21").Text = "JA" Then 'JA
Rows("22:28").EntireRow.Hidden = False
Range("B1").Select
End If
If Range("A21").Text = "NEIN" Then 'NEIN
Rows("22:28").EntireRow.Hidden = True
Range("B1").Select
End If
If Range("F21").Text = "0" Then '0 Mieterwechsel
Columns("K:O").EntireColumn.Hidden = True
Range("A1").Select
End If
If Range("F21").Text = "1" Then '1 Mieterwechsel
Columns("K:M").EntireColumn.Hidden = False
Columns("N:O").EntireColumn.Hidden = True
Range("B1").Select
End If
If Range("F21").Text = "2" Then '2 Mieterwechsel
Columns("K:O").EntireColumn.Hidden = False
Range("B1").Select
End If
Err.Clear
On Error GoTo Fehler
Fehler:
ActiveSheet.Protect "123"
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Jochen