Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum Suche in MSG Box ausgeben und farblich marki

Forumthread: Datum Suche in MSG Box ausgeben und farblich marki

Datum Suche in MSG Box ausgeben und farblich marki
28.08.2014 20:20:47
Rene
Guten Abend an alle,
Wäre mal wieder für eure Unterstützung dankbar.
Ziel ist das beim öffnen der Arbeitsmappe in Spalte B das Datum zB minus10 tage oder vom aktuellen Tagesdatum plus 5 gesucht/gefunden wird und über MSG Box dem User angezeigt wird.Es wäre schön wenn das zugehörige Projekt in Spalte A welches dem Datum Suchkriterien entspricht mit in der MSG Box angezeigt wird.Nahezu Perfekt ,wenn das betreffende Datum auch noch farblich markiert ,und in die betreffende Zelle gesprungen wird ,
anbei eine Beispieldatei um es zu verdeutlichen:
https://www.herber.de/bbs/user/92372.xlsm
Danke Rene

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Suche in MSG Box ausgeben und farblich marki
28.08.2014 23:43:02
Adis
Hallo
hier eine kurze Makro Version zum kopieren. Zum Testen einfach in ein normales Modul kopieren und starten.
Ich hoffe sie funktioniert zufriedenstellend. İn die Schleife 2 muss noch der Aufruf der Anzeige eingefügt werden.
Die Variablen für Datum und Projekt Name sind bereits geladen.
Option Explicit
Sub Datum_markieren_undAnzeigen()
Dim Datum As Date, zDatum As Double
Dim Adr As String, Edr As String
Dim Projekt As String, z As Variant
zDatum = CLng([h2])        'Datum als Zahl
Adr = ActiveCell.Address   'ActiveCell.Adr
Edr = [b2].End(xlDown).Address   'End-Adr.
'Innenbereich Farbe löschen
Range("B2", Edr).Interior.ColorIndex = xlNone
'1. Schleife zum farblichen markieren
For Each z In Range("B2", Edr)
If CLng(z) = zDatum + 5 Then z.Interior.ColorIndex = 6
Next z
'2. Schleife zum Anzeigen
For Each z In Range("B2", Edr)
Projekt = Empty:  Datum = CDate(z)  'Projekt Name laden
If z.Interior.ColorIndex = 3 Then Projekt = z.Cells(1, 0)
If z.Interior.ColorIndex = 6 Then Projekt = z.Cells(1, 0)
If Projekt  Empty Then
z.Select
'hier muss die Meldung aufgerufen werden
End If
Next z
'alte Adresse zurücksetzen
Range(Adr).Select
End Sub
Gruss Adis

Anzeige
AW: Datum Suche in MSG Box ausgeben und farblich marki
29.08.2014 11:35:11
Rene
Hallo Adis
das einfärben der Zellen funktioniert super ,könntest du mir noch einen Ansatz für die Ausgabe in der MSG Box geben? Leider habe ich damit keinerlei Erfahrungen und die "gefundenen Codes" helfen bis jetzt nicht wirklich weiter :-)
regards

AW: Datum Suche in MSG Box ausgeben und farblich marki
29.08.2014 13:37:11
Adis
Hallo
es freut mich sehr das es funktioniert. Unten ein kleines Testprogramm mit 3 Varianten wie die MsgBox aussehen kann. Selbst entscheiden was optisch besser gefaellt. Reine Geschmacksache. Basis ist die MsgBox im Auto_Open ThisWorkbook.
kurzer Tipp dazu. Projekt und Datum waren ja als "xxxx" schon vorgegeben. An der Stelle habe ich den String aufgetrennt und die Variablen mit & Zeichen eingefügt. Mit Chr(10) geht man auf die naechste Zeile. Manche programmieren auch vbLF als LineFeed. Bitte selbst entscheiden was gefaellt.
Sub MsgBox_Test()
Dim Datum As Date, Projekt As String
'Projekt Name + Datum aus Zeile 2 laden
Datum = CDate(Cells(2, 2))
Projekt = "Test  " & Cells(2, 1)
'drei Meldungen:  Selbst entscheiden was optisch besser gefaellt
MsgBox "Es gibt offene/anstehende  Wareneingänge zum Projekt:  " & Projekt & "   Datum  " &  _
Datum & " bitte prüfen !", vbInformation, "Rectiquest offene Wareneingänge"
MsgBox "Es gibt offene/anstehende  Wareneingänge zum Projekt:  " & Projekt & Chr(10) & " _
Datum  " & Datum & " bitte prüfen !", vbInformation, "Rectiquest offene Wareneingänge"
MsgBox "Es gibt offene/anstehende  Wareneingänge" & Chr(10) & "Projekt:  " & Projekt & Chr( _
10) & "Datum  " & Datum & " bitte prüfen !", vbInformation, "Rectiquest offene Wareneingänge"
End Sub
Gruss Adis

Anzeige
AW: Datum Suche in MSG Box ausgeben und farblich marki
29.08.2014 20:35:59
Rene
Guten Abend Adis
Ich bin immer wieder begeistert was man mit VBA alles machen kann,dein Code funktioniert super ,ist es auch möglich ( Projekt = "Test " & Cells(2, 1))hier mit einer Schleife zu arbeiten ,so das zum gefundenen Datum das jeweilige Projekt angezeigt wird ,in der MSG dann je Datum je Projekt ? hmm weiß nicht ob ich mich verständlich genug ausgedrückt habe :-)
Vielen Dank René

Anzeige
AW: Datum Suche in MSG Box ausgeben und farblich marki
31.08.2014 00:26:35
Adis
Hallo
das Problem wurde in meiner 1. Antwort schon gelöst. Die 2. For Next Schleife ist für MsgBox Anzeige vorgesehen!
Hier steht ja auch der Text als Kommentar: hier die Meldung einfügen.
Hier muss nur die MsgBox hinein kopiert werden die gewünscht ist. Im Testmakro stehen ja 3 zur Auswahl.
Die gewünschte MsgBox vom Text MsgBox bis zum Ende des Text String in die For Next Schleife 2 kopieren.
Das ist alles. In dieser Schleife werden die Variablen Datum und Projekt aus der Spalte A + B geladen.
Sollte der Projekt Name in einer anderen Spalte stehen muss nur die Spalte der Variable geaendert werden.
Gruss Adis

Anzeige
AW: Datum Suche in MSG Box ausgeben und farblich marki
31.08.2014 00:59:03
Rene
Hallo Adis
Sorry , vollkommen richtig die Lösung gab es schon mit der 1.Antwort .Hatte beim auskommentieren einen Fehler.
Funktioniert einwandfrei , nochmals danke
Rene
;

Forumthreads zu verwandten Themen

Jüngstes Datum in Textstring ausgeben
Markus

Hallo zusammen,
nachdem meine Netzrecherchen nicht zum Ziel führten, anbei mein erster Beitrag in Form einer Frage...
Zum Hintergrund: Für meine Diplomarbeit hab ich ein Makro geschrieben, welches die Pressemitteilungen (ca. 3000) der Firmen einer Industrie aufbereitet. Hierbei bereinig...
25.08.2008 18:19:00
Thread-ID: 1004535
17 Beiträge
Datum im Textbox
Urmila

Hallo,
ich habe ein TextBox, in der soll ein gültiges Datum im Format tt.mm.jjjj eingegeben werden. Wenn ein anderer Wert eingetragen wird, soll eine Fehlermeldung kommen, den Inhalt löschen und sonst keine andere Aktion
Hab schon gesucht aber die Lösungen sind weit ausgebaut, sodass ic...
19.11.2008 09:04:00
Thread-ID: 1025862
4 Beiträge
Datumsformat ins englische
Werner

Hallo
ich habe ein Datumsfeld mit dem folgenden Format "TT.MM.JJJJ"
Benötige dieses aber im JJJJ-MM-TT Format.
Was kann ich tun?
Vielen Dank!
02.12.2009 08:12:07
Thread-ID: 1121324
4 Beiträge
Anzeige
Datumsformat ohne TEXT (englisch vs. deutsch II)
Doro

Hallo Ihr Lieben,
und das nächste Problem mit unterschiedlichen Sprachen...
Ich habe in einer Zelle A1 eine auswählbare Kategorie (z.B. Customer) und in einer anderen Zelle A2 einen auswählbaren Zeitraum, z.B. Mrz 09 für März 09. Daraus soll sich eine Überschrift zusammensetzen, z.B. "C...
09.12.2009 17:05:12
Thread-ID: 1122664
3 Beiträge
Anzeige
Englisches Wörterbuch in deutschem Excel ?
Goos

Hallo,wie kann ich eine englische Rechtschreibprüfung in EXCEL 97 durchführen ???
10.04.2002 16:15:19
Thread-ID: 112161
3 Beiträge
Datumsformatierung ist englisch
marc

Hallo,
ich habe das Problem, dass ich ein Feld mit Datum eingefügt habe. Leider schreibt das Programm aber die Angabe dddd, dd. mmmm yyyy das ganze in englischer Formatierung also January anstelle von Januar. Wo muss ich es einstellen, dass mir die Datumsanzeige in deutscher Sprache formatie...
29.04.2002 09:22:34
Thread-ID: 117049
2 Beiträge
Textimport: datum der Datei abfragen
Daniel

Hallo,
ich habe einen Textimport aus einer bestimmten Datei in einer Zelle hinterlegt.
Via Makro lasse ich das aktualisieren: Sheets("Signals").Select Range("V2").Select Selection.QueryTable.Refresh BackgroundQuery:=False
Nun meine Frage: kann man dabei das Datum der Datei abfrage...
22.10.2010 10:50:47
Thread-ID: 1183481
7 Beiträge
Range aus seriellen Zahlen in Datum im Textformat
Peter

Liebes Forum
In range(cells(6,1),cells(62,1) stehen serielle Zahlen drin; einzelne Zellen sind leer. Ziel ist, die seriellen Zahlen als Datum zu zeigen, die Spatle anzupassen, dass das Datum lesbar ist und als letzter Schritt das Datum als Text zu speichern (ohne dass vom Aussehen her etwas...
05.02.2011 21:11:19
Thread-ID: 1199232
5 Beiträge
Text ausgeben für einen Datumsbereich
Jan

Hallo miteinander,
habe im Forum gesucht, bin aber nicht fündig geworden!?
Es geht um folgendes: In Spalte A2:A100 stehen Geburtstage.
In Spalte E2:E13 stehen die Namen der Sternzeichen und in den Spalten F2:F13 Anfang des Datumsbereiches und G2:G13 das Ende des Datumsbereiches.
21.06.2011 22:00:45
Thread-ID: 1219215
8 Beiträge
Textfile Import nach Excel: Datum falsch
Florian

Hallo liebe Excel-Freunde,
über eine Makro importiere ich Textdateien nach Excel. Leider wird teilweise das Datum falsch importiert (z.B. 03/12/2013 statt 12/03/2013), was evt an irgendeiner Ländereinstellung liegen kann.
Gibt es eine Möglichkeit (per VBA-Code) dies zu verhindern?
B...
03.09.2013 18:00:35
Thread-ID: 1329421
4 Beiträge
Datum finden und Adresse ausgeben
Martina

Hallo zusammen
Ich möchte in meiner Tabelle ein Datum finden und die Adresse davon ausgeben. Hier mein Code:
Sub DatumSuchen () Dim Zelle As Range Dim Bereich As Range Set Bereich = Sheets("Tabelle1").Columns(3) Set Zelle = Bereich.Find(Range("A1"), lookat:=xlWhole, LookIn:=xlFormulas)...
05.10.2013 18:21:55
Thread-ID: 1333278
2 Beiträge
Datum im Textformat
Pater

Hallo zusammen,
vieleicht komme ich hier ja weiter, habe mich schon deppert gegoogelt, es muß doch irgendwie gehen..., sicher ein alt bekanntes Problem!
Die Ausgangsspalte ist ein Datum, in einer als Datum formatierten Zelle.
Die Umwandlung in die Datumszahl in einer neuen Spalte f...
09.09.2014 10:18:25
Thread-ID: 1380567
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige