Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Infomeldung bei bestimmten Bedingungen

Infomeldung bei bestimmten Bedingungen
24.10.2014 15:57:42
Hubert
Hallo Excelfreunde
ich habe folgendes Problem.
ich möchte beim Öffnen einer Datei in dieser Datei beim Zusammentreffen von
zwei Bedingungen sich eine Infomeldung öffnen lassen.
Hier ist es schlecht zu erklären, daher habe ich eine Datei hochgeladen
in der ich eine genauere Erklärung reingeschrieben habe.
Ich bekomme es mit meinen VBA-Kenntnissen nicht hin.
Wenn einer von euch eine Idee hat und mir einen Anstoß gibt,
wäre ich sehr dankbar.
https://www.herber.de/bbs/user/93346.xls
Schönen Gruß
Hubert

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Infomeldung bei bestimmten Bedingungen
24.10.2014 16:41:28
Matthias
Hallo
Kannst doch gleich eine Zeile darunter per Formel den Hinweis geben.
Tabelle1

 UVWXYZ
1WocheWocheWocheWocheSummeWoche
237373737Woche38
309.09.201410.09.201411.09.201412.09.2014 15.09.2014
4 Lohnsteuer SeptemberLohnsteuer SeptemberLohnsteuer September  

Formeln der Tabelle
ZelleFormel
U4=WENN(U2>=1;WENN(UND(TAG(U3)>9;TAG(U3)<15);"Lohnsteuer "&TEXT(U3;"MMMM");""))
V4=WENN(V2>=1;WENN(UND(TAG(V3)>9;TAG(V3)<15);"Lohnsteuer "&TEXT(V3;"MMMM");""))
W4=WENN(W2>=1;WENN(UND(TAG(W3)>9;TAG(W3)<15);"Lohnsteuer "&TEXT(W3;"MMMM");""))
X4=WENN(X2>=1;WENN(UND(TAG(X3)>9;TAG(X3)<15);"Lohnsteuer "&TEXT(X3;"MMMM");""))
Y4=WENN(Y2>=1;WENN(UND(TAG(Y3)>9;TAG(Y3)<15);"Lohnsteuer "&TEXT(Y3;"MMMM");""))
Z4=WENN(Z2>=1;WENN(UND(TAG(Z3)>9;TAG(Z3)<15);"Lohnsteuer "&TEXT(Z3;"MMMM");""))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Ansonsten ne Schleife über diese Zeile schicken und wenn das Datum in Zeile(3) größer heute ist
gibst Du die Meldung aus: Msgbox Range("V4").Value Gruß Matthias

Anzeige
AW: Infomeldung bei bestimmten Bedingungen
24.10.2014 19:15:59
Hubert
Hi Matthias
Danke schon mal für deinen Anstoß.
Ich werde das nachher oder spätestens aber morgen ausprobieren
und melde mich danach auf jeden Fall noch einmal.
Bis dann
Hubert

erst selbst probieren dann erst hier schauen ;-)
24.10.2014 19:44:39
Matthias
Hallo
Nur falls Du nicht zurechtkommst, schonmal mein Vorschlag:
Code gehört in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Dim Rng As Range, TxT$
With Tabelle1
For Each Rng In .Range("D4:DQ4")
If Rng.Offset(-2, 0).Value >= 1 And Rng.Value  "" Then
If CDate(Rng.Offset(-1, 0).Value) >= Date Then
TxT = TxT & Rng.Offset(-1, 0).Value & "-" & Rng.Value & vbLf
End If
End If
Next
End With
MsgBox TxT
End Sub
Userbild
Gruß Matthias

Anzeige
AW: erst selbst probieren dann erst hier schauen ;-)
25.10.2014 15:26:15
Hubert
Hallo Matthias
Super, vielen Dank.
Als wenn du es geahnt hättest. Ich habe lange daran rumprobiert und mir
fast einen abgebrochen, aber kriegte es nicht hin.
Wollte dich gerade danach fragen, da sah ich, dass du mir schon einen Vorschlag geschickt hast.
Und damit funktioniert es wunderbar und so wie ich es mir vorgestellt habe.
Ich habe mich dann erst einmal damit auseinander gesetzt, damit ich auch verstehe,
was da steht und wie das geht.
Nochmals Danke schön und noch ein schönes WE
Grüße, Hubert

Danke für die Rückmeldung :-) kwT
25.10.2014 15:33:58
Matthias

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige