Msg Box mit Daten aus Tabelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Msg Box mit Daten aus Tabelle
von: Andi
Geschrieben am: 05.04.2005 14:00:10
Hallo Leute,
ich möchte gerne beim öffnen einer Datei eine MsgBox erscheinen lassen,
welche mir alle infos aus der Zeile mit dem aktuellen Datum anzeigt.
Wisst ihr wie das geht?
Gruß
Andi

Bild

Betrifft: AW: Msg Box mit Daten aus Tabelle
von: noch ein Andi
Geschrieben am: 05.04.2005 14:11:29
Ich nehme mal an, ich weiss wie das geht. Aber bevor ich damit anfange, würde mich noch interessieren, wo das Datum steht, und vor allem, was genau mit "alle Infos" gemeint ist. Ne Beispielmappe wär' am besten...
Schönen Gruß,
Andi
Bild

Betrifft: AW: Msg Box mit Daten aus Tabelle
von: Tobias Marx
Geschrieben am: 05.04.2005 14:13:26
Servus!
Fuege im VBA-Editor folgenden Code in deiner Arbeitsmappe ein:

Private Sub Workbook_Open()
  MsgBox (Date & " " & Range("A1").Value)
End Sub

Er gibt das Datum aus und den Wert der Zelle A1 (kannst du beliebig anpassen)
Gruss

Tobias
Bild

Betrifft: AW: Msg Box mit Daten aus Tabelle
von: Andi
Geschrieben am: 05.04.2005 14:24:17
https://www.herber.de/bbs/user/20711.xls
Da wo in Zeile mit dem aktuellen Datum ein N2 Steht soll dann der Name der Person ausgegeben werden.
Bild

Betrifft: AW: Msg Box mit Daten aus Tabelle
von: Peter Feustel
Geschrieben am: 05.04.2005 14:32:52
Hallo Andi,
als Anlage ein Beispiel, das du beliebig anpassen kannst
Viele Grüße Peter
https://www.herber.de/bbs/user/20712.xls
Bild

Betrifft: AW: Msg Box mit Daten aus Tabelle
von: anderer Andi
Geschrieben am: 05.04.2005 14:36:10
Hola,
was das mit dem N2 auf sich hat, hab ich noch nicht ganz kapiert, aber ich hab jetzt trotzdem mal was programmiert:

Private Sub Workbook_Open()
Dim zaehler As Integer
For zaehler = 2 To Worksheets("Schichtplan").Cells(65536, 2).End(xlUp).Row
If Worksheets("Schichtplan").Cells(zaehler, 2).Value = Date Then
MsgBox Date & " " & Worksheets("Schichtplan").Cells(zaehler, 6).Value
End If
Next zaehler
End Sub

Damit wird für jede Zeile mit dem aktuellen Datum in Spalte B eine MsgBox mit dem Datum und dem Inhalt der Zelle in Spalte F (Name 2) ausgegeben.
War's das so in etwa?
Schönen Gruß,
Andi
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Msg Box mit Daten aus Tabelle"