VBA
29.12.2008 21:20:00
Angela
habe einen Code von Tino bekommen, der leider noch nicht ganz geht.
Dim Zelle As Range
Set Zelle = Cells(Rows.Count, 2).End(xlUp).Offset(1)
With Range(Cells(Zelle.Row, "A"), Cells(Zelle.Row, "L"))
.RowHeight = 360 'Höhe auf 60
.Interior.ColorIndex = 40 'Hintergrund weiß
End With
Hierbei handelt es sich um einen Code der mir nach der Filterung die erste freie Zeile farbig dastellt.
Angenommen die Spezialfilterung gehtvon A10: L40,dann soll die A41:L41 gelbbraun (40) sein, mit einer Höhe von 360.
Private Sub ComboBox1_Change()
'ActiveSheet.Unprotect ("test")
'Worksheets("Klassenliste").Unprotect Password:="test"
Application.EnableEvents = False
Application.ScreenUpdating = False
'Einblenden
Zelle = Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets("Klassenliste").Rows(Zelle & ":65536").EntireRow.Hidden = False
Range("L1").Select
If ActiveCell 'Dim Zelle As Range
'Set Zelle = Cells(Rows.Count, 2).End(xlUp).Offset(1)
'With Range(Cells(Zelle.Row, "A"), Cells(Zelle.Row, "L"))
'.RowHeight = 160 'Höhe auf 60
'.Interior.ColorIndex = 40 'Hintergrund weiß
'End With
Range("b4").Select
Application.EnableEvents = True
Application.ScreenUpdating = True '
'ActiveSheet.Protect ("test")
'Worksheets("Klassenliste").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:="test"
End Sub
Zelle As Range hier erhalte ich die Fehlermeldung.
Was kann man machen?
Liebe Grüße Angela