Infomeldung bei bestimmten Bedingungen

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Infomeldung bei bestimmten Bedingungen

Infomeldung bei bestimmten Bedingungen von Hubert Cimander vom 24.10.2014 15:57:42

AW: Infomeldung bei bestimmten Bedingungen - von Matthias L am 24.10.2014 16:41:28
- AW: Infomeldung bei bestimmten Bedingungen - von Hubert Cimander am 24.10.2014 19:15:59
  - erst selbst probieren dann erst hier schauen ;-) - von Matthias L am 24.10.2014 19:44:39
    - AW: erst selbst probieren dann erst hier schauen ;-) - von Hubert Cimander am 25.10.2014 15:26:15
      - Danke für die Rückmeldung :-) kwT - von Matthias L am 25.10.2014 15:33:58

Betrifft: Infomeldung bei bestimmten Bedingungen von: Hubert Cimander
Geschrieben am: 24.10.2014 15:57:42

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

Betrifft: AW: Infomeldung bei bestimmten Bedingungen von: Matthias L
Geschrieben am: 24.10.2014 16:41:28

Hallo

Kannst doch gleich eine Zeile darunter per Formel den Hinweis geben.

Tabelle1

	U	V	W	X	Y	Z
1	Woche	Woche	Woche	Woche	Summe	Woche
2	37	37	37	37	Woche	38
3	09.09.2014	10.09.2014	11.09.2014	12.09.2014		15.09.2014
4		Lohnsteuer September	Lohnsteuer September	Lohnsteuer September

Formeln der Tabelle

Zelle	Formel
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

Betrifft: AW: Infomeldung bei bestimmten Bedingungen von: Hubert Cimander
Geschrieben am: 24.10.2014 19:15:59

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

Betrifft: erst selbst probieren dann erst hier schauen ;-) von: Matthias L
Geschrieben am: 24.10.2014 19:44:39

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

Gruß Matthias

Betrifft: AW: erst selbst probieren dann erst hier schauen ;-) von: Hubert Cimander
Geschrieben am: 25.10.2014 15:26:15

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