Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumserkennung u. Hindernissen (VBA)

Datumserkennung u. Hindernissen (VBA)
15.03.2007 11:47:00
{mskro}
Hallo Excelfreunde,
wieder einmal habe ich etwas schwieriges mit Datumsfeldern zu bewerkstelligen, was ich auch durch nachlesen nicht alleine hin bekomme.
Vielleicht kann mir wieder jemand von euch hilfreich zur Seite stehen.
Anforderung:
in der "Spalte J" stehen Datumswerte "MM.TT.JJJJ". Nun soll eine MsgBox anzeigen, wenn ein Datum - 3 Werktage erreicht ist und die Inhalte aus den Spalten "D" & "F" der jeweiligen Zeile anzeigen. Ist allerdings in der Spalte "K" ein Wert enthalten, dann soll diese Meldung aus bleiben.
Ich hoffe nun, das es verständlich geschrieben ist und ihr mir weiter helfen könnt.
Gruß Manfred

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
oder mit Formel (oT)
15.03.2007 12:47:00
{mskro}
AW: oder mit Formel (oT)
15.03.2007 13:16:01
Klaus
Hallo Manfred,
=WENN(K2="";WENN(J2>=HEUTE()-3;D2&F2;"");"")

klappt das?
Gruß,
Klaus M.vdT.
AW: oder mit Formel (oT)
15.03.2007 14:12:02
{mskro}
Hallo Klaus,
danke, aber ich habe doch festgestellt, das das ganze wohl nur mit VBA zu lösen geht, wie soll denn sonst, die MsgBox zur Erinnerung aufpoppen? Zum anderen würde -3 in deiner Formel nicht funktionieren, wenn ein Wochenende dazwischen liegt. Ich benötige 3 Werktage, nicht 3 Tage.
Aber für weitere Anregungen bin ich sehr dankbar.
Gruss Manfred
AW: oder mit Formel (oT)
15.03.2007 17:36:37
Erich
Hallo Manfred,
probier das mal: 

Option Explicit
Sub Termin3()
Dim datT As Date, rngF As Range, lngZ As Long
datT = Date - 3 + (Weekday(Date, vbSaturday)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: oder mit Formel (oT)
16.03.2007 10:37:39
{mskro}
Hallo Erich,
das kommt der Sache schon sehr nahe. Vielen Dank schon mal dafür.
Ein paar kleine Handicaps gibt es allerdings noch.
1. Es funktioniert nur bei der Datumsangabe TT.MM.JJJJ und nicht bei TT.MM.JJ
2. Auch wäre es Klasse, wenn nicht nur 3 Tage vorher, sondern auch noch 2 Tage, einen Tag und am Tag X die MsgBox angezeigt wird, solange die jeweilige Zelle in der Spalte K nicht gefüllt ist.
3. Kann man mehrere Informationen untereinander in der MsgBox anzeigen, wenn es mehrere Zeilen mit dem zu warnenden Datum gibt?
Ich hoffe du hast auch dafür die perfekte Lösung.
Gruss Manfred
Anzeige
AW: MsgBox aus Terminliste
16.03.2007 12:54:27
Erich
Hallo Manfred,
dann gehts nicht mehr mit Find, hier eine Möglichkeit mit zellenweiser Prüfung: 

Option Explicit
Sub Termin4()
Dim datT As Date, lngZ As Long, strM As String
datT = Date - 3 + (Weekday(Date, vbSaturday)  "" Then strM = strM & vbLf
strM = strM & Cells(lngZ, 10).Text & ": " & Cells(lngZ, 4) & " " & Cells(lngZ, 6)
End If
End If
Next lngZ
If strM > "" Then MsgBox strM
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: MsgBox aus Terminliste
16.03.2007 14:26:23
{mskro}
Hallo Erich,
das ist schon Genial, aber warum zeigt Excel mir keine Werte an obwohl ein Datum 17.03. vorhanden ist?
Er sollte mir doch die Werte für die Tage 16.(Heute), 17.(Sa.), 18.(So.), 19.(Werktag1), 20.(Werktag2) und 21. (Werktag3) ausgeben.
Oder wenn das nicht geht, dann zumindest 16.(Heute), 17.(+1 Tag), 18.(+2Tage), 19.(+3 Tage),
ein schönes Wochenende
Gruss Manfred
Anzeige
AW: MsgBox aus Terminliste
16.03.2007 16:15:34
Erich
Hi Manfred,
dann drehen wirs ein wenig um: 

Option Explicit
Sub Termin5()
Dim datT As Date, lngZ As Long, strM As String
datT = Date + 3 - (Weekday(Date, vbSaturday)  "" Then strM = strM & vbLf
strM = strM & Cells(lngZ, 10).Text & ": " & Cells(lngZ, 4) & " " & Cells(lngZ, 6)
End If
End If
Next lngZ
If strM > "" Then MsgBox strM
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
...genau so sollte es sein.
16.03.2007 18:47:00
{mskro}
Hallo Erich,
du bist der Größte.
Ich wurschtel hier seit Wochen herum und du machst das aus dem Stehgreif.
Einfach Super, genau so brauche ich das.
Vielen vielen Dank und nochmals ein schönes Wochenende.
Gruss Manfred
Anzeige
Danke für Rückmeldung - auch schönes WoEnde! (oT)
16.03.2007 18:52:52
Erich

302 Forumthreads zu ähnlichen Themen

Datumssuche in VBA
Snewi

Hallo ich habe folgendes Excel Sheet:
https://www.herber.de/bbs/user/55612.xls
Nun möchte ich zum einen wie vorgegeben das min und das max Datum automatisch anzeigen was aber leider bei mir nicht funktioniert!
Zum anderen möchte ich die Spalten so ein und ausblenden wie ich ein Zei...
24.09.2008 08:11:00
Thread-ID: 1011914
14 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Datum/Autor für Eingabe mit "Historie" (vba)
Lukas

Hallo liebe Forumnutzer,
in meiner Unwissenheit wurde ich gebeten, folgendes umzusetzen:
In A5 wird ein Wert eingegeben, in A7 und A8 sollen einmal Autor und einmal Datum der Änderung notiert werden. Jetzt wird in A5 ein neuer Wert eingetragen, der alte Wert aus A5 soll inklusive Autor...
18.11.2008 17:52:05
Thread-ID: 1025721
4 Beiträge
Anzeige
Datum in Monaten (mit 0,5) - ohne VBA
Wolfgang

Hallo,
ich bin auf der Suche nach einer Formel (nicht VBA), welche die Differenz zwischen Datum in Spalte F und Spalte G (z.B. 12.01.09 - 28.02.09) ermittelt und mir als Monat mit einer Stelle nach dem Komma z.B. 1,5 auswirft. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
...
20.01.2009 14:30:25
Thread-ID: 1041840
5 Beiträge
Datum Minus 5Jahre in VBA
Modolo

Hallo Zusammen
Ich arbeite innerhalb eines Makros mit Filtern, ich bräuchte jetzt noch eine Lösung wie ich dort das aktuelle Datum minus 5 Jahre eingebe.
Hat da Jemand eine Lösung für mich?
Danke
Modolo
26.02.2009 13:14:16
Thread-ID: 1054345
10 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Datumsformat in der Maske bei Aufruf über VBA
Wusino

Hallo miteinander,
da meine Suche in ettlichen Büchern und Foren sehr frustrierend war, wende ich mich nun doch an Euch.
Ich habe ein kleines Skript, das beim Öffnen des Dokuments auf das Datenblatt Uebersicht springt und beim Wählen eines anderen Datenblatts die Maske anzeigt. Das Prob...
18.04.2009 09:42:39
Thread-ID: 1069435
2 Beiträge
Datum in andere Spalte mit and. Format VBA
Wolfgang

Hallo,
in Spalte F, ab Zeile 2 befinden sich Daten im Format "18.06.2009" - wäre denkbar, dass jeweils dieses Datum in Spalte R im Format "Juni 09" wiederholt/konvertiert wird? Die Anzahl der Zellen ist jeweils unbekannt, das Konvertieren würde ich gerne immer beim Start der Excel-Mappe vor...
18.06.2009 21:23:07
Thread-ID: 1082734
6 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
1
2
3
3
4
9
11
1
5
4
11
7
2
1
3
2
7
4
13
10
2
2
10
1