Microsoft Excel

Herbers Excel/VBA-Archiv

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

Infomeldung bei bestimmten Bedingungen

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

 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


  

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


  

Betrifft: Danke für die Rückmeldung :-) kwT von: Matthias L
Geschrieben am: 25.10.2014 15:33:58




 

Beiträge aus den Excel-Beispielen zum Thema "Infomeldung bei bestimmten Bedingungen"