- #1
G
Gast
Guest
Hi all,
Ich bin gerade dabei in einem Excel file folgendes zu tun...
Ich habe eine Auflistung der Monate + der einzelnen Tage
Was ich nun möchte ist mittels des VBA z.B nur 3 Monate anzuzeigen wenn ich in der Zelle "Anzahl Monate" 3 eingebe
Ich konnte mir bis jetzt diesen Code zusammenreimen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$19" Then
If Target.Value = "1" Then
Rows("66:449").Hidden = True
Else
Rows("66:449").Hidden = False
End If
ElseIf Target.Address = "$H$19" Then
If Target.Value = "2" Then
Rows("101:449").Hidden = True
Else
Rows("101:449").Hidden = False
End If
End If
End Sub
Wenn ich nun "1" eingebe, werden alle anderen Zeilen ausgeblendet...sobald ich 2 in die Zielzelle (H19) eingebe tut sich gar nichts...
Hoffentlich fällt euch eine Lösung ein !
Dankeschön.
Lg, Bash
Ich bin gerade dabei in einem Excel file folgendes zu tun...
Ich habe eine Auflistung der Monate + der einzelnen Tage
Was ich nun möchte ist mittels des VBA z.B nur 3 Monate anzuzeigen wenn ich in der Zelle "Anzahl Monate" 3 eingebe
Ich konnte mir bis jetzt diesen Code zusammenreimen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$19" Then
If Target.Value = "1" Then
Rows("66:449").Hidden = True
Else
Rows("66:449").Hidden = False
End If
ElseIf Target.Address = "$H$19" Then
If Target.Value = "2" Then
Rows("101:449").Hidden = True
Else
Rows("101:449").Hidden = False
End If
End If
End Sub
Wenn ich nun "1" eingebe, werden alle anderen Zeilen ausgeblendet...sobald ich 2 in die Zielzelle (H19) eingebe tut sich gar nichts...
Hoffentlich fällt euch eine Lösung ein !
Dankeschön.
Lg, Bash