String läuft nicht?.....bitte Hilfe
Peter
untenstehender Code soll in Tabelle1 die Spalte F ausblenden, wenn in Tabelle2 in Zelle F9 der Wert = 1 ist.....tut er aber nicht?
Sub_SelectionChange......
Dim W As String
W = Sheets("Tabelle2").[F9].Value
If W = "1" Then
With Sheets("Tabelle1")
Columns("F:F").Select
Selection.EntireColumn.Hidden = True
End With
End If
End Sub
Weiss jemand Abhilfe?
Danek
Peter S.