Zeilen ausblenden

Bild

Betrifft: Zeilen ausblenden
von: Wolfgang
Geschrieben am: 24.09.2003 10:20:13

Hallo Experten!

Ich brauche dringend ein Makro,das Zeilen über Button ausblendet,wenn die Zellen
L14 bis L100 "leer" sind.

Danke.

Bild


Betrifft: AW: Zeilen ausblenden
von: Guido Palacios
Geschrieben am: 24.09.2003 10:28:39

Hi,

Da!!!
___________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 Then
If Target.Row > 14 And Target.Row < 100 Then
If Target.Value = "" Then
Target.Select
Selection.EntireRow.Hidden = True
'Selection.Delete Shift:=xlUp
Exit Sub
End If
End If
Else

End If


Bild


Betrifft: AW: Zeilen ausblenden
von: Wolfgang
Geschrieben am: 24.09.2003 11:34:27

Hi Guido!
Ich habe das so in Modul1 übernommen,aber es wird beim Ausführen ein Fehler in der Zeile
"If Target.Column = 12 Then" angezeigt.
Kannst du mir nochmal weiter helfen.


Sub kompl_ausblenden()
If Target.Column = 12 Then
If Target.Row > 14 And Target.Row < 100 Then
If Target.Value = "" Then
Target.Select
Selection.EntireRow.Hidden = True
'Selection.Delete Shift:=xlUp
Exit Sub
End If
End If
Else
End If
End Sub



Bild


Betrifft: AW: Zeilen ausblenden
von: Guido Palacios
Geschrieben am: 24.09.2003 12:01:22

Hi,

das liegt darin das du eine Sub Routine geschrieben hast die kein Target übergibt!
In meiner Methode lag mein Code im "Worksheet_Change"- Ereignis!!! d.H: Wird in eine Zelle in der Spalte L(=12) in den Zeilen 14-100 bzw. 15-99 Null oder "" eingetragen, dann wird dieses Ereignis ausgelöst.

Private Sub Worksheet_Change(ByVal Target As Range) 'Arbeitsblatt geändert?
If Target.Column = 12 Then 'Spalte 12 geändert?
If Target.Row > 14 And Target.Row < 100 Then 'Liegt geänderte Zeilen# zwischen 14 und 100
If Target.Value = "" Then ' Ist die Änderung NULL oder "" dann...
Target.Select ' Selectiere Zelle
Selection.EntireRow.Hidden = True ' Setze Hide-Eigenschaft auf true
'Selection.Delete Shift:=xlUp ' Lösche Selectierte Zeile
Exit Sub
End If
End If
Else

End If


Hoffe jetzt ists verständlicher...
Wenn du deine Sub beibehalten willst musst du direkt auf die Zelle verweisen...
if cells(14, 12) = "" then
Selection.EntireRow.Hidden = True
endif

o.s.ä.!!!

Grüße
Guido P.


Bild


Betrifft: Feedback?!?!?
von: Guido Palacios
Geschrieben am: 26.09.2003 22:26:17

Feedback?!?!?

Wie siehts aus?
Hats geklappt?

Grüße
Guido P.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zeilen ausblenden"