Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anhand Zellenwert Zeilen ausblenden

Forumthread: Anhand Zellenwert Zeilen ausblenden

Anhand Zellenwert Zeilen ausblenden
30.05.2018 14:51:48
Domi
Hey Profis,
ich habe ein Excel Problem, welches für mich komplex, für euch aber wahrscheinlich leicht ist.
Ich will anhand dem Wert der Zelle "L2" eine gewisse Anzahl an Zeilen ausblenden (oder auch nicht). Das soll passieren sobald ich in der Zelle was eintrage.
Mein Code (der nicht Funktioniert :D) sieht wie folgt aus: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
i = 0
Target = Range("L2")
i = Range("L2").Value
If Target  "" Then
Rows("i:188").Hidden = True
Else
Rows("9:188").Hidden = False
End If
End Sub

Ich danke euch im Voraus für eure Hilfe.
LG Domi
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anhand Zellenwert Zeilen ausblenden
30.05.2018 15:52:25
PeterK
Hallo Domi

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$L$2" Then
If IsNumeric(Target.Value) Then
Rows(Target.Value & ":200").EntireRow.Hidden = True
Else
Rows("10:200").EntireRow.Hidden = False
End If
End If
End Sub

Anzeige
AW: Anhand Zellenwert Zeilen ausblenden
30.05.2018 16:06:10
Domi
Vielen Dank!!
Ich muss noch viel lernen :)
AW: Anhand Zellenwert Zeilen ausblenden
30.05.2018 21:03:55
Gerd
Moin 
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$L$2" Then
If Not IsNumeric(.Value) Or .Value

Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige