Aktive Zeile einfärben

Computer: Software & Programmierung Office Software
#1

Hallo Experten,

ich bins nochmal.
Habe im Excel eine Heizoelverwaltung kreirt. Nun habe ich ein Makro eingebaut dass mir immer die aktive Zeile hellgelb markiert. Funktioniert auch alles schön, nur wenn ich einen Blattschutz vergebe, kann es die geschützten Zellen natürlich nicht mehr einfärben.
Habe folgenden Code benutzt:

Private Sub Worksheet\_SelectionChange(ByVal Target As Excel.Range)

Cells.Interior.ColorIndex = xlNone

Rows(Target.Row).Interior.ColorIndex = 19
End Sub

Ist es möglich dass dies trotz Blattschutz funktioniert?

#2

Hallo Sascha,

Ja.

und nun im Ernst:
(hoffentlich ohne Tippfehler)

Private Sub Worksheet_SelectionChange(ByVal Target As
Excel.Range)

activesheet.unprotect(„password“)

Cells.Interior.ColorIndex = xlNone

Rows(Target.Row).Interior.ColorIndex = 19

activesheet.protect(„password“)

End Sub

Ist es möglich dass dies trotz Blattschutz funktioniert?

mfg

Dirk.Pegasus

#3

Super!!

Vielen Dank für die schnelle Antwort…

Nur noch ein Problem besteht nun…
Wenn ich nun die Tabelle abspeichere und neu öffne kann ich auch die anderen gesperrten zeilen/zellen markieren (jedoch nichts hineinschreiben).
Und dies weil es beim aufheben und erneutem blatt schützen einen neuen haken setzt: „gesperrte zellen auswählen“. kann man diesen haken per VBA entfernen?

Ich benutze Excel Version 2002 SP3

#4

Holla.

Vielleicht noch ein kleiner Verbesserungsvorschlag, damit man das Passwort nicht hart codieren muss.

Private Sub Worksheet\_SelectionChange(ByVal Target As
Excel.Range)
**Dim KennWort As String  
InputBox "wiehoaterghoaßendernotenwart",KennWort**  
activesheet.unprotect( **KennWort** )
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 19
activesheet.protect( **KennWort** )
End Sub

Gruß Eillicht zu Vensre

3 Like
#5

Auch Dir vielen Dank…

Nur dann kommt lediglich immer eine Inputbox bei jedem mal wo ich auf eine Zelle klicke…

das bringt mich nicht viel weiter :smile:

#6

Auch Dir vielen Dank…

Gerne.

Nur dann kommt lediglich immer eine Inputbox bei jedem mal wo
ich auf eine Zelle klicke…

das bringt mich nicht viel weiter :smile:

Das nehme ich Dir vollinhaltlich ab. Die vermutlich bessere Variante ist, den Input und das unprotect auf Worksheet_Open zu legen und das erneute protect auf Worksheet.Close … sorry.

Gruß Eillicht zu Vensre

3 Like
#7

ja ok :smile:) nun sieht es anders aus.

aber mein problem mit dem ActiveSheet.Protect ist noch nicht gelöst.

hast du eine idee wie man per vba den haken „gesperrte zellen auswählen“ entfernen kann wenn das blatt im vba code automatisch wieder gesperrt wird?

#8

Lösung gefunden!
habe die lösung gefunden in der die gesperrten zellen nicht mehr auswählbar sind.

dieser code hat gefehlt:

ActiveSheet.EnableSelection = xlUnlockedCells

-)

nun habe ich aber durch das ganze 2 neue fehler erhalten.habe ein drucken makro im modul2.
dies spuckt nun, seit ich die aktiven zeilen mit farbe hervorhebe folgenden fehler aus:

Die NumberFormat-Eigenschaft des Range-Objektes kann nicht festgelegt werden.

Wenn ich aber den Code für die Zellenauswahl wieder entferne funktioniert das makro wieder.
woran kann dies liegen?

Zudem möchte ich die zellenüberschriften mit farbigem hintergrund, da aber der code alle zellen auf ColorIndex = xlNone einstellt fehlen diese nun.
ist es möglich den bereich zum hervorheben auf zellen a14-q26 zu begrenzen?

Vielleicht könnt Ihr mir dabei helfen? habe die Tabelle hier zum herunterladen:

http://www.badongo.com/file/1357861

#9

Hi Sascha,

habe die lösung gefunden in der die gesperrten zellen nicht

mehr auswählbar sind.
dieser code hat gefehlt:
ActiveSheet.EnableSelection = xlUnlockedCells
nun habe ich aber durch das ganze 2 neue fehler erhalten.habe
ein drucken makro im modul2.
dies spuckt nun, seit ich die aktiven zeilen mit farbe
hervorhebe folgenden fehler aus:
Die NumberFormat-Eigenschaft des Range-Objektes kann nicht
festgelegt werden.
Wenn ich aber den Code für die Zellenauswahl wieder entferne
funktioniert das makro wieder.
woran kann dies liegen?

Poste mal den Code für dein Druck-Makro.

Zudem möchte ich die zellenüberschriften mit farbigem
hintergrund, da aber der code alle zellen auf ColorIndex =
xlNone einstellt fehlen diese nun.
ist es möglich den bereich zum hervorheben auf zellen a14-q26
zu begrenzen?

Ich denk schon, in deinem Code abändern:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range(„a14:q26“).Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 19
End Sub

Vielleicht könnt Ihr mir dabei helfen? habe die Tabelle hier
zum herunterladen:
http://www.badongo.com/file/1357861

Tja nun, krieg sie nicht, muss ich mich dafür bei denen anmelden oder sowas?

Gruß
Reinhard

#10

hier mal den druck code:

Sub Drucken()
'
' Drucken Makro
'

'
frage = MsgBox("Soll diese Seite wirklich gedruckt werden?", vbYesNo)
If frage = vbYes Then
ActiveSheet.Unprotect "gregor"
 Range("F14:F26").Select
 Selection.NumberFormat = ";;;"
 ActiveWindow.SmallScroll Down:=-9
 Range("A14").Select
 Application.Dialogs(xlDialogPrint).Show
 Range("F14:F26").Select
 Selection.NumberFormat = "General"
 ActiveWindow.SmallScroll Down:=-15
 Range("A14").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="gregor"
ActiveSheet.EnableSelection = xlUnlockedCells

Else
MsgBox "Es wurde nichts gedruckt :smile:!"
End If
End Sub

nein anmelden musst du dich nicht. auf der rechten seite siehst du eine zeit von 15 sekunden ablaufen, danach kannst du den captcha code eingeben und der download wird gestartet. aber kannst es auch hier herunterladen:

http://www.haenggi.li/Heizoelverwaltung_Zellenfarbe.zip

#11

ganzes Problem gelöst!
Probieren geht über studieren!! :smile:

nun habe ich die sache doch noch gelöst.glaube es funktioniert alles nach meinen wünschen!

Vielen dank für die rasche hilfe und die codes!!!
hier noch das fertige sheet…

http://www.haenggi.li/Heizoelverwaltung_Zellenfarbe.zip

liebe grüsse
sascha