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

Visual Basic Macro für Excel: ganze Zeile farbig makieren....???

Mitglied: daemonadmin82

daemonadmin82 (Level 1) - Jetzt verbinden

20.10.2005, aktualisiert 25.10.2005, 8940 Aufrufe, 6 Kommentare

Hallo!

habe folgendes Problem:

habe eine Exceldatei, dort werden seit ein paar Monaten Werte eingetragen.

Eine Spalte bezeichnet das Datum des Eintrags.

Das Datum dient als Suchkriterium für folgende Aufgabe:

Es sollen alle Zeilen farblich makiert werden, die Älter als 3 Monate sind.

Außerdem, und das ist das Wichtigste:

Wenn später neue Zeilen hinzugfügt werden, soll automatisch das Datum der Zeile überprüft werden und die Zeile auch makiert werden wenn sie dem oben genannten Kriterium entspricht.


Bitte helft mir...

Danke, Maik
Mitglied: 13100
20.10.2005 um 17:29 Uhr
dafür braucht man eigentlich kein macro.
excel sollte dafür eine funktion, namens
"bedingte formatierung" zu verfügung
stellen, welche dem namen nach, im
menü format, angesiedelt is.
Bitte warten ..
Mitglied: daemonadmin82
20.10.2005 um 17:41 Uhr
Super Idee, hab es auch schon getestet.

Was muß ich denn als Kriterium eingeben für das aktuelle Datum??

Im Detail:

Wenn ich die Datumsspalte makiere und dann auf Format --> bedingte Formatierung klicke kommt ein Fenster:

Hier trage ich ein:

Bedingung 1:

Zellwert ist
kleiner oder gleich

das aktuelle Datum



Was trägt man für das aktuelle Datum ein?



Der Tipp ist astrein
Bitte warten ..
Mitglied: Biber
20.10.2005 um 18:13 Uhr
Moin daemonadmin82,
Zellwert... kleiner... =Heute()-90
HTH Biber
Bitte warten ..
Mitglied: daemonadmin82
20.10.2005 um 19:00 Uhr
klappt nicht, makiert sich immer die ganze Spalte komplett, auch die Zellen werden eingefärbt die nicht ins Kriterium passen...


Help!!
Bitte warten ..
Mitglied: Biber
20.10.2005 um 19:31 Uhr
@daemonadmin82
Du musst darauf achten, dass Excel Dir nicht die Formel '=Heute()-90' beim ersten Eingeben frecherweise in einen Text umwandelt. Dann steht da nämlich in Anführungszeichen '="Heute()-90"'.

Ist immer ein bisschen hakelig über den Klicki-Bunti-Weg.
Biber
Bitte warten ..
Mitglied: daemonadmin82
25.10.2005 um 08:21 Uhr
So, hier meine Lösung mit programmiertem Makro, habe keine bedingte Formatierung verwendet:



Sub zeilefarbe()

Dim zelle As Range
Dim az As Integer


az = ActiveSheet.Range("D5").End(xlDown).Row

Workbooks("Fertigwaren_Sende.xls").Names.Add Name:="hoch", RefersTo:="=50erbis70er!$d$5:$d$" & az


'ActiveSheet.Names.Add Name:="hoch", RefersTo:="aktivesheet!$d$5:$d$" & az

For Each zelle In ActiveSheet.Range("hoch")
If zelle.Value <= Date - 90 Then
zelle.EntireRow.Select
Selection.Interior.Color = vbYellow

End If
Next zelle


End Sub


Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel 2013: Visual Basic Problem
gelöst Frage von PerladdMicrosoft Office13 Kommentare

Hallo Leute, ich habe von VB keinerlei Ahnung und das was ich jetzt hier habe ist mit programmiert worden, ...

VB for Applications

Visual Basic - Werte in ausgeblendete Zeilen eintragen

gelöst Frage von TermimanVB for Applications2 Kommentare

Guten Abend liebe Leute, ich habe vor einiger Zeit eine super Hilfestellung bei meiner kleinen Excel Liste bekommen. siehe ...

Windows Tools

Excel Macro

Frage von bob1986Windows Tools3 Kommentare

Hallo allemal Kann mir jemand hiermit helfen mit einer formale oder VBA Ich probiere es mal zu erklären ich ...

VB for Applications

Excel 2013 - farbig formatierte Zeilen werden nicht als leere Zeilen deklariert

Frage von BigMike55VB for Applications3 Kommentare

Hallo, ich habe mir das folgende Makro geschrieben, das funktiert auch wunderbar - bis auf einen "Schönheitsfehler". Per Clickbutton ...

Neue Wissensbeiträge
Peripheriegeräte
Unterschrank für HP Drucker
Tipp von NixVerstehen vor 2 TagenPeripheriegeräte2 Kommentare

Als kurzen Freitags-Tipp möchte ich gerne meinen neuen Drucker-Unterschrank Modell Amica KS 15423W vorstellen. Das Gerät eignet sich hervorragend ...

Windows 10
Windows 10 - Probleme mit Point-And-Print
Tipp von emeriks vor 3 TagenWindows 103 Kommentare

Hi, wir kämpfen z.Z. mit einigen Druckertreibern, welche unter Win10 beim Verbinden eines Druckers von Printserver mit dem Dialog ...

Windows 10

Windows 10 1803 - Ihr Roamingbenutzerprofil wurde nicht vollständig synchronisiert

Anleitung von Deepsys vor 3 TagenWindows 101 Kommentar

Bei allen Windows 10 1803 PCs traten Probleme mit den Servergespeicherten Profilen auf. Das Abmelden dauerte sehr lange und ...

Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 5 TagenExchange Server7 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Heiß diskutierte Inhalte
Router & Routing
Routing Problem mit Kaskade FritzBox und pfsense zugeriff nur von der firewall auf die clients und 0.0.0.0
Frage von ukl1967Router & Routing23 Kommentare

Hallo, ich habe ein an sich triviales Problem elches ich allerdings nicht gelöst bekomme. NAS 10.5.10.53 Mein Netz baut ...

LAN, WAN, Wireless
HP Probook 470 G4 - abbrechende Downloads
Frage von joern1LAN, WAN, Wireless19 Kommentare

Folgendes Problem, für einen Tipp wäre ich dankbar: Bei WLAN-Verbindung zum Internet (nicht LAN) kommt es bei etwas größeren ...

Server-Hardware
Einsteigerfragen zu HP ProLiant DL380p Gen 8
gelöst Frage von brain2011Server-Hardware14 Kommentare

Hallo, ich habe mir einen HP ProLiant DL380p Gen 8 zugelegt, um mich grundlegend mit dieser Geräteklasse und der ...

Server-Hardware
DL380p Gen8 LEDs Laufwerksaktivität funktionieren nicht
Frage von Cisco7971Server-Hardware14 Kommentare

Hallo zusammen, ich habe hier ein seltsames Problem: Die LEDs an den Smart Carriern, die bei Laufwerksaktivität rotieren, tun ...