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, 8946 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 ...

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 ...

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 ...

Neue Wissensbeiträge
E-Mail
Neueste Masche der Bad Guys: Offene Erpressung
Information von the-buccaneer vor 1 TagE-Mail14 Kommentare

"Warum den komplizierten Weg über einen Kryptotrojaner nehmen, wenn man die Leute auch direkt erpressen kann?" haben sich wohl ...

Viren und Trojaner
Neues ct-desinfect 2018 erschienen
Information von Lochkartenstanzer vor 1 TagViren und Trojaner

Moin, heise hat eine neues Sonderheft Desinfect veröffentlicht (9,90€/12,90€) . Falls jemand öfter mal Kisten "säubern" muß ist das ...

Sicherheit

Ransomware legt Fluginformationssystem des Airport Bristol lahm

Information von kgborn vor 1 TagSicherheit

Da war wohl eine Wochenend-Schicht für die Flughafen IT angesagt. Ein Ransomware-Befall bzw. ein Hackerangriff sorgte dafür, dass drei ...

Windows 10

Windows 10 Microcode-Updates (13.9.2018) und WSUS- bzw. KB-Artikel-Chaos

Information von kgborn vor 3 TagenWindows 10

Es gibt neue #Microcode #Updates #KB4100347, #KB4090007, #KB4091663, #KB4091664 und #KB4091666 für Intel CPUs für #Windows10 - und jede ...

Heiß diskutierte Inhalte
Firewall
Blocken illegaler Film-Streams
gelöst Frage von CoreknabeFirewall19 Kommentare

Moin Wissende, unsere kleine Hochschule möchte gern das illegale Streaming von Kinofilmen und Serien unterbinden. Wir sperren bisher alle ...

Windows Server
2012 R2 Server Keine Anmeldung möglich Meldung: Laut den Sicherheitsrichtlinien auf diesem PC sollen informationen zur letzten interaktiven Anmeldung angezeigt werden
Frage von Speedy18A4Windows Server17 Kommentare

Hallo, ich habe vor einigen Wochen einen zweiten Domain Controller zu meiner Domain hinzugefügt. Funktionierte alles wunderbar. Auch die ...

iOS
Virus auf iphone
Frage von jensgebkeniOS16 Kommentare

hallo gemeinschaft, habe einen virus auf meinem iphone es kommen zwei meldungsfenster 1. online-2018-software-free.win 2. wpform.com - please click ...

Video & Streaming
Günstige Alternative zu Barco ClickShare
Frage von Leo-leVideo & Streaming15 Kommentare

Hallo zusammen, wir suchen eine vernünftige Lösung, um bei uns die Kabelage zu beseitigen und um einfach etwas komfortabler ...