Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1688to1692
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
Inhaltsverzeichnis

VBA: Datumabfrage in Kombi mit Suche in Spalte

VBA: Datumabfrage in Kombi mit Suche in Spalte
07.05.2019 08:13:41
Chriss
Guten Morgen,
ich als VBA-Laie würde gerne zur Erinnerung beim Start einer Arbeitsmappe eine MsgBox anzeigen lassen, sofern folgende Situation eintritt:
WENN1 Monat Datum Heute >= 10
DANN1 WENN2 in "Tab 1" Spalte G (ab Zeile 2 bis Zeile 100) kein Datum mit Jahr Heute + 1  _
auffindbar
DANN2 MsgBox 
Else wird nicht benötigt.
Vielen Dank für eure Hilfe im Voraus :-)
Wäre eine super hilfreiche Sache für mich und meine Kollegen/innen!
LG,
Chriss

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Datumabfrage in Kombi mit Suche in Spalte
07.05.2019 08:46:09
Hajo_Zi
Hallo Chris,
mache es ohne VBA mit bedingter Formatierung.
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: VBA: Datumabfrage in Kombi mit Suche in Spalte
07.05.2019 08:51:35
hary
Moin
Hab es so verstanden.
Wenn heutiger Monat groesser/gleich 10 dann suche das morgige Datum in G2:G100. Wenn nicht vorhanden dann Msgbox.
Gehe davon aus das in G richtige Daten stehen.
In den Code der Arbeitsmappe.
Private Sub Workbook_Open()
Dim a As Variant
If Month(Date) >= 10 Then
a = Application.Match(CLng(Date + 1), Worksheets("Tab 1").Range("G2:G100"), 0)
If Not IsNumeric(a) Then
MsgBox "nicht vorhanden"
End If
End If
End Sub

gruss hary
AW: VBA: Datumabfrage in Kombi mit Suche in Spalte
07.05.2019 11:13:23
Chriss
Hallo Hajo_Zi, hallo hary,
vielen Dank zunächst für die Hilfe!
@Hajo_Zi: ich werde deine Anmerkungen in Zukunft berücksichtigen. In diesem Fall hielt ich "Bedingte Formatierung" für nicht so praktisch wie eine MsgBox - daher dieser Weg.
@hary: ich habe es getestet, alles funktioniert wie gewünscht.
Daher vielen lieben Dank für deine Hilfe!
Gruß,
Chris
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige