|
Hallo,
ich hoffe hier kann mir jemand weiter helfen.
Ich habe einen Code erstellt der abhängig von dem Wert einer Zelle Spalten ein- oder ausblendet:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varAusblend2 As Range
Dim varAusblend3 As Range
Dim varAusblend4 As Range
Set varAusblend = ActiveSheet.Columns("D:E")
Set varAusblend2 = ActiveSheet.Columns("W")
Set varAusblend3 = ActiveSheet.Columns("B:C")
Set varAusblend4 = ActiveSheet.Columns("V")
Set varSchalter = ActiveSheet.Cells(1, 1)
If varSchalter.Value = "Deutsch" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
Else
If varSchalter.Value = "Englisch" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
End If
End If
If varSchalter.Value = "Deutsch" And varAusblend2.Hidden = False Then
varAusblend2.Hidden = True
Else
If varSchalter.Value = "Englisch" And varAusblend2.Hidden = True Then
varAusblend2.Hidden = False
End If
End If
If varSchalter.Value = "Englisch" And varAusblend3.Hidden = False Then
varAusblend3.Hidden = True
Else
If varSchalter.Value = "Deutsch" And varAusblend3.Hidden = True Then
varAusblend3.Hidden = False
End If
End If
If varSchalter.Value = "Englisch" And varAusblend4.Hidden = False Then
varAusblend4.Hidden = True
Else
If varSchalter.Value = "Deutsch" And varAusblend4.Hidden = True Then
varAusblend4.Hidden = False
End If
End If
Bei den Spalten B:C und D:E funktioniert es auch. Aber wenn ich deutsch auswähle erscheinen zuerst Spalte V und W. Erst nach einem Doppelklick in das Tabellenblatt verschwindet Spalte W. Bei der Auswahl von englisch erscheint weder V noch W und nach einem Klick taucht Spalte W auf.
Hat hier jemand Ahnung woran das liegen kann??
VG
Hallo,
ich hoffe hier kann mir jemand weiter helfen.
Ich habe einen Code erstellt der abhängig von dem Wert einer Zelle Spalten ein- oder ausblendet:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varAusblend2 As Range
Dim varAusblend3 As Range
Dim varAusblend4 As Range
Set varAusblend = ActiveSheet.Columns("D:E")
Set varAusblend2 = ActiveSheet.Columns("W")
Set varAusblend3 = ActiveSheet.Columns("B:C")
Set varAusblend4 = ActiveSheet.Columns("V")
Set varSchalter = ActiveSheet.Cells(1, 1)
If varSchalter.Value = "Deutsch" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
Else
If varSchalter.Value = "Englisch" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
End If
End If
If varSchalter.Value = "Deutsch" And varAusblend2.Hidden = False Then
varAusblend2.Hidden = True
Else
If varSchalter.Value = "Englisch" And varAusblend2.Hidden = True Then
varAusblend2.Hidden = False
End If
End If
If varSchalter.Value = "Englisch" And varAusblend3.Hidden = False Then
varAusblend3.Hidden = True
Else
If varSchalter.Value = "Deutsch" And varAusblend3.Hidden = True Then
varAusblend3.Hidden = False
End If
End If
If varSchalter.Value = "Englisch" And varAusblend4.Hidden = False Then
varAusblend4.Hidden = True
Else
If varSchalter.Value = "Deutsch" And varAusblend4.Hidden = True Then
varAusblend4.Hidden = False
End If
End If
Bei den Spalten B:C und D:E funktioniert es auch. Aber wenn ich deutsch auswähle erscheinen zuerst Spalte V und W. Erst nach einem Doppelklick in das Tabellenblatt verschwindet Spalte W. Bei der Auswahl von englisch erscheint weder V noch W und nach einem Klick taucht Spalte W auf.
Hat hier jemand Ahnung woran das liegen kann??
VG
|