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, 8956 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
Visual Studio
Visual basic - Fenstergröße
gelöst Frage von Cougar77Visual Studio4 Kommentare

Hallo, ich habe ein kleines Programm geschrieben - visual studio 2015, visual basic. Soweit funktioniert das auch sehr gut, ...

VB for Applications
Excel 2007 - Macro
Frage von EverestVB for Applications4 Kommentare

Hallo Excel-Spezialisten, ich habe eine Frage. Gibt es eine Möglichkeit, die Einstellung des Makros NUR für eine bestimmte Datei, ...

Visual Studio
Visual Basic für anfänger
gelöst Frage von Daoudi1973Visual Studio12 Kommentare

ich möchte Visual Basic lernen, kann jemand mir Tipps geben. PS: ich habe nur im 1999 mit Fortran 90 ...

VB for Applications
Visual Basic Checkbox drucken?
gelöst Frage von GERz0cKErZVB for Applications10 Kommentare

Hallo, ich habe ein Programm wo man mehrere checkboxen anklicken kann. Der Text der checkboxen soll am Ende gedruckt ...

Neue Wissensbeiträge
Internet
Copyright-Reform: Upload-Filter
Information von Frank vor 16 StundenInternet

Hallo, viele Menschen reden aktuell von Upload-Filtern. Sie reden darüber, als wären es eine Selbstverständlichkeit, das Upload-Filter die Seitenbetreiber ...

Google Android

Blokada: Tracking und Werbung unter Android unterbinden

Information von AnkhMorpork vor 18 StundenGoogle Android1 Kommentar

In Ergänzung zu meinem vorherigen Beitrag: Blokada efficiently blocks ads, tracking and malware. It saves your data plan, makes ...

Google Android
Facebooks unsichtbare Datensammlung
Information von AnkhMorpork vor 18 StundenGoogle Android1 Kommentar

Rund 30 Prozent aller Apps im Play-Store nehmen Kontakt zu Facebook auf, sobald man sie startet. So erfährt der ...

Exchange Server

Exchange 2010 bis 2019 Sicherheitslücke durch CU RU schließen

Information von sabines vor 21 StundenExchange Server

Für die hier: und hier: besprochene Sicherheitslücke ist ein Patch für Microsoft Exchange Server 2010 - 2019 verfügbar. RU ...

Heiß diskutierte Inhalte
Windows 10
Windows Update funktioniert nicht - Keine Verbindung mit dem Updatedienst
gelöst Frage von anveWindows 1030 Kommentare

Hallo, ich kann schon länger keine Updates mehr machen. Wenn ich auf Update suchen gehe, dann schreibt er folgendes: ...

LAN, WAN, Wireless
NETBEUI unter Windows 10
Frage von certifiedit.netLAN, WAN, Wireless26 Kommentare

Guten Abend, wir stehen gerade vor dem Rästel, warum man in einer Industriemaschine (wert gut 6-stellig, paar mal vorhanden) ...

Hardware
Was passiert wenn ein Server zu heiß wird?
Frage von LohrakHardware21 Kommentare

Hallo Sollte ein Server zu heiß werden, da z.B ein Lüfter ausfällt, was würde passieren? Wie meldet sich der ...

Internet
EU-Gremien einigen sich auf die schärfste Form von Upload-Filter und Leistungsschutzrecht
Information von FrankInternet17 Kommentare

Nun ist es . Die Verlage, die in der Vergangenheit das Internet verschlafen hatten und kurz vor ihrer Auflösung ...