Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1032to1036
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

VBA

VBA
29.12.2008 21:20:00
Angela
Hallo
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA
29.12.2008 21:55:00
hary
Hallo Angela
Der Code muss in ein Modul dann funzt er.

Dim Zelle As Range
Sub Farbe()
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
End Sub


Gruss hary

AW: VBA
29.12.2008 22:10:59
Angela
Hallo Hary
danke Dir für die Antwort.
Er soll aber durch die KomboBOX ausgelöst werden (Private Sub ComboBox1_Change() )
Ich hatte in der ersten Mail den Code mitgeschickt.
Lieben Gruß Angela
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige