Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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 ?

Frage Microsoft Microsoft Office

Mitglied: FAAB58

FAAB58 (Level 1) - Jetzt verbinden

17.02.2015, aktualisiert 19.02.2015, 956 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
VB for Applications
gelöst Zelle in Excel per Klick einfärben (5)

Frage von C.Mue83 zum Thema VB for Applications ...

Microsoft Office
gelöst Wochenenden in Exceltabelle einfärben (w7 MSO2010) (28)

Frage von rudeboy zum Thema Microsoft Office ...

Microsoft Office
gelöst Wenn Inhalt Zelle X dann bestimmte Zellen (2)

Frage von Knuefi zum Thema Microsoft Office ...

Microsoft Office
gelöst Formel für eine automatische Füllung anderer Zellen (1)

Frage von michael1306 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Monitoring
Netzwerk-Monitoring Software (18)

Frage von Ghost108 zum Thema Monitoring ...

Windows Server
gelöst Kopiervorgang schlägt fehl, weil Datei- und Ordnername zu lang sind (14)

Frage von Schroedi zum Thema Windows Server ...

Windows 10
Windows 10 Fall Creators Update Fehler (13)

Frage von ZeroCool23 zum Thema Windows 10 ...