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
Kommentar vom Moderator Biber am 22.09.2009 um 18:52:34 Uhr
Beitrag von "Entwicklung" nach "Excel" verschoben.

gelöst Excel Zellen Hintergrundfarbe vergleichen

Mitglied: MrVain

MrVain (Level 1) - Jetzt verbinden

22.09.2009, aktualisiert 20:22 Uhr, 10398 Aufrufe, 3 Kommentare

Hallo,

ich möchte einen Bereitschafts-Kalender in Exel erstellen.

Auswahl der Mitarbeiter erfolgt per Zell-Farbe.

Nun möchte ich die Wochenenden gerne auswerten. Jeder Tag besitzt 3 Zellen.

1. Zelle= Datum
2. Zelle= wenn Wochenende - dann grau
3. Zelle= Mitarbeiter Farbe

Wie zähle ich nun die Anzahl der Wochenenden pro Mitarbeiter:

if Zelle=grau and zelle-rechts-daneben=blau then x=x+1

am besten als Funktion, wobei ich hier die Farben als Variablen hab...
01.
Die Gesamt-Tage habe ich so berechnet (FUNKTION) 
02.
 
03.
Function CountColor(rng As Range, iColor As Integer) 
04.
Dim rngAct As Range 
05.
Dim iCount As Integer 
06.
Application.Volatile 
07.
For Each rngAct In rng.Cells 
08.
If rngAct.Interior.ColorIndex = iColor Then 
09.
iCount = iCount + 1 
10.
End If 
11.
Next rngAct 
12.
CountColor = iCount 
13.
End Function
Wieso klappt dies nicht:
01.
Function CountWeekend(rng As Range, iColor As Integer) 
02.
Dim rngAct As Range 
03.
Dim iCount As Integer 
04.
Application.Volatile 
05.
For Each rngAct In rng.Cells 
06.
If rngAct.Interior.ColorIndex = iColor And ActiveCell.Offset(0, -1).Value.Interior.ColorIndex = "15" Then 
07.
iCount = iCount + 1 
08.
End If 
09.
Next rngAct 
10.
CountWeekend = iCount 
11.
End Function
Mitglied: Iwan
22.09.2009 um 15:11 Uhr
Wie postet man 100% falsch?
Nachdem man Google, Bing, Yahoo & Co., die FAQs und die Boardsuche erfolgreich ignoriert hat, erstellt man mindestens 5 neue Themen, alle in unterschiedlichen aber defintiv falschen Unterforen, möglichst mit kreativem Titel und undeutlichem Text, damit sich jeder etwas anderes vorstellen kann.

Farbe der aktiven Zelle ermitteln: click mich sanft
auch wenn der Beitrag dort über 5 Jahre alt ist, funktioniert es mit Excel 2003 trotzdem immer noch:
01.
Sub ZellFarbe() 
02.
   Farbe = ActiveCell.Interior.ColorIndex 
03.
End Sub
Bitte warten ..
Mitglied: MrVain
22.09.2009 um 15:54 Uhr
Dies ist mir bekannt !

Es geht mir eher darum:

if Zelle=grau and zelle-rechts-daneben=blau then x=x+1
Bitte warten ..
Mitglied: MrVain
22.09.2009 um 16:43 Uhr
Habs hinbekommen:

01.
Function CountWeekend(rng As Range, iColor As Integer) 
02.
Dim rngAct As Range 
03.
Dim iCount As Integer 
04.
    Application.Volatile 
05.
    For Each rngAct In rng.Cells 
06.
      If rngAct.Interior.ColorIndex = "15" And rngAct.Offset(0, 1).Interior.ColorIndex = iColor Then 
07.
        iCount = iCount + 1 
08.
      End If 
09.
    Next rngAct 
10.
    CountWeekend = iCount 
11.
End Function

[Edit Biber] Codetags ergänzt [Edit]
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel (2013) Hintergrundfarbe der Zelle automatisch ändern

gelöst Frage von 125525Microsoft Office3 Kommentare

Hallo zusammen, ich würde gerne unter Excel (2013) eine Zelle so bearbeiten, dass wenn z.B. die Zahl X. welche ...

VB for Applications

Zelle vergleichen

gelöst Frage von Gimli3311VB for Applications4 Kommentare

Hallo Zusammen, Hallo jodel32, Ich habe 2 Excel-Dateien mit Tabellen nun haben die Tabellen verschiedene Vorlagen. Ich hab also ...

VB for Applications

Zwei Excel Zellen vergleichen und Änderungen kenntlich machen

Frage von stmskreuVB for Applications2 Kommentare

Hallo zusammen, ich möchte mittels VBA den Inhalt einer Zelle mit dem Inhalt einer anderen Zelle abgleichen und im ...

Microsoft Office

Excel 2013: Hintergrundfarbe von Schaltfläche ändern

gelöst Frage von PerladdMicrosoft Office4 Kommentare

Hallo Leute, ich bin auf Office 2013 umgestiegen. Mit einigen Schwierigkeiten bei meinen Excel Tabellen, das ich jetzt aber ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 15 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 18 StundenAdministrator.de Feedback14 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...