Herbers Excel-Forum - das Archiv

Msg Box mit Daten aus Tabelle

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
Excel-Beispiele zum Thema "Msg Box mit Daten aus Tabelle"
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum