Spalten ausblenden
27.11.2015 23:58:01
Sven
Irgendwie funktioniert mein vba-code nicht richtig...
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim i As Long
Columns("B:I").EntireColumn.Hidden = True
For i = 1 To 1
If Cells(i, 3) 0 Then
Columns("B:I").EntireColumn.Hidden = False
Exit Sub
End If
Next i
Columns("J:Q").EntireColumn.Hidden = True
For i = 1 To 1
If Cells(i, 11) 0 Then
Columns("J:Q").EntireColumn.Hidden = False
Exit Sub
End If
Next i
End Sub
Wenn in c1 ein höherer wert als null ermittelt wird (durch eine formel) werden die spalten b:i eingeblendet, wenn null ausgeblendet - soweit so gut.
Wird aber zudem in k1 ein höherer wert als null ermittelt werden die spalten j:q eingeblendet die spalten b:i aber wieder ausgeblendet obwohl auch c1 höher als null ist.
was mache ich falsch?
LG Sven
Anzeige