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

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

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

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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige