Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Zelle einfärben - aber wie richtig ?

Mitglied: FAAB58

FAAB58 (Level 1) - Jetzt verbinden

17.02.2015, aktualisiert 19.02.2015, 1231 Aufrufe, 3 Kommentare

Hallo an alle,

ich hoffe irgendwer hat eine idee, was ich verbessern kann

Ich habe in "Tabelle1" in den Bereichen

("D19:P25"); ("D32:P38") und ("D45:P51") Werte zu erfassen

Damit ich mich etwas besser auf der Seite orientieren kann, soll die jeweilige aktive Zelle statt weiß in hellgrau unterlegt sein.

Das klappt gut mit diesem Code

01.
Private Sub worksheet_selectionchange(ByVal Target As Excel.Range)
02.
On Error Resume Next
03.
Lastcell.Interior.ColorIndex = farbe
04.
farbe = Target.Interior.ColorIndex
05.
Target.Interior.ColorIndex = 15 '(grau)
06.
Set Lastcell = Target
07.
End Sub
Leider bekomme ich imme irgendeine Zelle in Grau eingefärbt, wenn ich das Blatt öffne.
Und zwar genau jenes, an dem ich das Blatt verlassen habe.

Wie kann ich beim Blattaufruf die oben genannten Bereiche auf weiß setzen.
Ich habe es mit dem Makrorekorder versucht, bekomme es aber nicht zum laufen.

Punkt 2 meines Anliegens
Alle Zellen, die oben nicht genannt werden, sollen gesperrt werden ausser ("D5") und ("P5")


Für jede Idee dankbar

Lieben Gruß an Euch

Mitglied: eisbein
18.02.2015 um 06:36 Uhr
Guten Morgen!

Wenn der Bereich fix ist und nicht variabel, warum färbst du die Zellen nicht mittels Hintergrundfarbe?
Formatierungen aufgrund des Zellinhaltes machst du am besten mit der "bedingten Formatierung".

Zu 2:

Schau dir im Kontextmenü einer Zelle (Zelle formatieren ... - Reiter Schutz) die Optionen an. Wenn Gesperrt aktiviert ist, ist dieses Zelle bei aktiven Blattschutz gesperrt, wenn nicht, kann sie bearbeitet werden.
Standardmäßig sind alle Zellen als gesperrt markiert.
Blattschutz kann im Menü "Überprüfen" - Blatt schützen bzw. Arbeitsmappe schützen aktiviert / deaktiviert werden. (bei Excel 2007)

Gruß
Eisbein
Bitte warten ..
Mitglied: Meierjo
18.02.2015 um 07:33 Uhr
Hallo


Leider bekomme ich imme irgendeine Zelle in Grau eingefärbt, wenn ich das Blatt öffne.
Und zwar genau jenes, an dem ich das Blatt verlassen habe.
Wie kann ich beim Blattaufruf die oben genannten Bereiche auf weiß setzen.

Könntest du zB mit einem Auto_start lösen, indem die aktive Zelle beim starten der Tabelle mit Farbe "automatisch" hinterlegt wird
Folgenden Code in ein allgemeines Modul

01.
Sub auto_open()
02.
    'Blatt entsperren
03.
    ActiveSheet.Unprotect
04.
    With Selection.Interior
05.
        .Pattern = xlSolid
06.
        .PatternColorIndex = xlAutomatic
07.
        .ThemeColor = xlThemeColorDark1
08.
        .TintAndShade = 0
09.
        .PatternTintAndShade = 0
10.
    End With
11.
End Sub


Punkt 2 meines Anliegens
Alle Zellen, die oben nicht genannt werden, sollen gesperrt werden ausser ("D5") und ("P5")

Per Default sind alle Zellen "gesperrt". Merkt man aber normalerweise nicht, wenn der Blattschutz nicht aktiv ist
Mit folgendem Code werden die gewünschten Zellen "entsperrt", und dann der Blattschutz aktiviert

01.
Sub sperren()
02.

03.
    Range("D5,P5,D19:P25,D32:P38,D45:P51").Select
04.
    Selection.Locked = False
05.
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
06.
End Sub

Gruss Urs
Bitte warten ..
Mitglied: 116301
18.02.2015 um 10:13 Uhr
Hallo FAAB58!

Meierjo hat ja schon Wege aufgezeigt, wie man das umsetzen kann, von daher alternativ noch folgende Lösung:

Diesen Code (Zellen sperren) in 'DieseArbeitsmappe' einfügen
01.
'Hintergrundfarbe der aktiven Zelle auf Standard-Farbe zurücksetzen
02.
'Sheet sperren (ohne Passwort) und nur entsperrte Zellen zum selektieren freigeben
03.

04.
Private Sub Workbook_Open()
05.
    With ActiveSheet
06.
         Application.EnableEvents = False
07.
        .Unprotect
08.
        .Range("D5,P5,D19:P25,D32:P38,D45:P51").Locked = False
09.
        .Protect "", True, True, True, True
10.
        .EnableSelection = xlUnlockedCells
11.
         Application.EnableEvents = True
12.
    End With
13.
    ActiveCell.Interior.ColorIndex = xlNone
14.
End Sub
Diesen Code (Hintergrundfarbe ändern) in die Tabelle einfügen
01.
Private LastCell As Range
02.

03.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
04.
    If Not LastCell Is Nothing Then
05.
        LastCell.Interior.ColorIndex = xlNone
06.
    End If
07.
    
08.
    Target.Interior.ColorIndex = 15 '(grau)
09.
    Set LastCell = Target
10.
End Sub
Grüße Dieter
Bitte warten ..
Ähnliche Inhalte
Windows Server
Richtig lizensiert?
gelöst Frage von MiStWindows Server25 Kommentare

Guten Morgen, ich hoffe, dass das keine FR-Frage ist, aber ich habe hier einen virtuellen Windows Server R2 2008 ...

Vmware

Richtig Templates erstellen, wie wäre es richtig?

Frage von DeathNoteVmware11 Kommentare

Hallo. Ich würde mir gerne für 2012R2 Win10 und Win7 Templates erstellen. Also Maschinen, die ich mal jederzeit mit ...

Batch & Shell

Per Batch Datei die Zahl jede Zell in einer Spalte um 10 verkleinern

gelöst Frage von ha5257Batch & Shell12 Kommentare

Guten Morgen, ich importiere jeden Tag automatisch eine Lagerbestandsliste(csv Datei) von meinem Lieferant mit einem Batch Datei. Die Batch ...

Verschlüsselung & Zertifikate

VPN richtig eingerichtet?

Frage von billy01Verschlüsselung & Zertifikate3 Kommentare

Hallo Leute, ich habe an meinem Windows Server ein VPN eingerichtet (nach folgendem Video:). Ich habe dann noch in ...

Neue Wissensbeiträge
Linux Tools
Dolibarr ERP CRM - Update Prozess
Anleitung von radiogugu vor 3 StundenLinux Tools

Hallo. Dies soll den kurzen Update Prozess der Software schildern. Zugrunde liegt eine Ubuntu Linux VM an der Stelle. ...

Linux Tools
Dolibarr ERP CRM - Überblick der Software
Anleitung von radiogugu vor 5 StundenLinux Tools

Hallo. Nach der Anleitung zur Einrichtung und Installation der Datenbank und des Webserver Dolibarr ERP CRM Installation möchte ich ...

Linux Tools

Dolibarr ERP CRM Installation der Datenbank und des Webserver

Anleitung von radiogugu vor 5 StundenLinux Tools

Hallo zusammen. Ich bin seit kurzem nebenberuflich selbstständig und suchte eine geeignete Software für die Auftragsverwaltung, CRM und ein ...

Sicherheit

Chrome 79 übermittelt eingegebene Kennwörter nach Hause

Information von DerWoWusste vor 1 TagSicherheit11 Kommentare

Ab sofort warnt Chrome standardmäßig Nutzer davor, wenn aus Leaks bekannte Passwörter zum Einsatz kommen. Beim Besuch einer Website, ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 Herunterfahren - Funktioniert nach Upgrade von Windows 7 nicht mehr
Frage von krischeuWindows 1016 Kommentare

Hi, ich habe verschiedene PCs mit dem Upgrade Assistenten von Windows 7 Pro 64 Bit auf Windows 10 geupdatet. ...

Windows 10
Win10 Remote Desktop User anders
Frage von ludibubiWindows 1015 Kommentare

Folgende Situation: Auf meinem Rechner (Win10) in der Firma (Domänen-Netzwerk) starte ich abends bevor ich gehe einen Newsletterversand. Damit ...

Server-Hardware
Server startet nach Debian Installation nicht mehr
Frage von RobertDServer-Hardware15 Kommentare

Hallo, ich habe heute zum ersten Mal auf meinen Server (selbst zusammengebaut) Linux installiert, ging auch alles ganz gut. ...

Entwicklung
Programmiersprache für Server
gelöst Frage von MondeosEntwicklung12 Kommentare

Ich bin relativ neu im Gebiet der Programmierung etc.(mache das auch nur als Hobby bin noch Schüler), und wollte ...