Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

VBA code für bedingte Formatierung bei einer wenn dann Formel?

Frage Entwicklung VB for Applications

Mitglied: Rainer23

Rainer23 (Level 1) - Jetzt verbinden

30.01.2015, aktualisiert 01.03.2015, 2294 Aufrufe, 6 Kommentare

Hallo zusammen,

ich komme einfach nicht da drauf, wie der richtige vba code für folgendes Problem lautet und ich hoffe so sehr, dass jemand von euch weiter weiß.

Im ganzen Arbeitsblatt "Lieferdaten" sollen die Zellen A:O einer Zeile rot eingefärbt werden, wenn zutrifft, dass in der jeweiligen Zeile in der Spalte E etwas drinnen steht UND das Datum, dass in Spalte F in dieser Zeile steht, kleiner ist als das Datum, was in Spalte M in dieser Zeile steht.

Wenn ich die bedingte Formatierung ohne VBA eingebe, sieht das so aus:

Bedingte Formatierung (Formel)
=UND($E2<>"";$F2<$M2)
dann wähle ich die Farbe Rot zum Ausfüllen aus, klicke auf OK, und gebe den Anwendungsbereich an:
$A$2:$O$10000

Wie würde das im VBA Code aussehen?

Danke für die Hilfe!!

Viele Grüße
Mitglied: colinardo
LÖSUNG 30.01.2015, aktualisiert 01.03.2015
Hallo Rainer23, Willkommen auf Administrator.de!
Das sieht nach deiner Beschreibung so aus:
01.
With ActiveSheet.Range("$A$2:$O$10000").FormatConditions.Add(xlExpression, Formula1:="=UND($E2<>"""";$F2<$M2)") 
02.
   .Interior.Color = vbRed 
03.
End With
Grüße Uwe
Bitte warten ..
Mitglied: Rainer23
02.02.2015 um 09:59 Uhr
danke! werde ich gleich ausprobieren
Bitte warten ..
Mitglied: Rainer23
02.02.2015 um 10:00 Uhr
danke, werde ich gleich ausprobierren
Bitte warten ..
Mitglied: Rainer23
02.02.2015 um 16:17 Uhr
hat funktioniert! Tausend Dank!! Echt super ))
Bitte warten ..
Mitglied: colinardo
03.02.2015, aktualisiert um 14:33 Uhr
Wenns das dann war, den Beitrag bitte noch auf gelöst setzen. Merci.

p.s. die drei Kommentare hätte man auch in einem Kommentar zusammenfassen können.
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel-Formel oder VBA (7)

Frage von nicki01 zum Thema Microsoft Office ...

Microsoft Office
gelöst Bedingte Formatierung in Excel für verschiedene Dezimalstellen (6)

Frage von winget zum Thema Microsoft Office ...

Microsoft Office
gelöst Bedingte Formatierung in Excel, wenn zweite Dezimalstelelle nicht eine Null ist (11)

Frage von winget zum Thema Microsoft Office ...

Neue Wissensbeiträge
Entwicklung

Exploit Development

Anleitung von burhanudinn123 zum Thema Entwicklung ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(1)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
Leiten "dumme" Switches VLAN-Tags mit durch? (17)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

E-Business
Wo tragt ihr eure privaten Termine ein? (14)

Frage von honeybee zum Thema E-Business ...

Batch & Shell
Batch zum suchen und verschieben von Verknüpfungen (12)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...