Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

MsgBox zu klein

Forumthread: MsgBox zu klein

MsgBox zu klein
01.03.2004 10:18:24
gui
Hallo Forum,
hätte ein kleines (großes) Problem:
Ist die MsgBox in der Größe eingeschränkt, d.h. passen dort nur so und soviele Einträge aus der Excel-Tabelle hinein? Kann man sie größer machen, oder eine Scrollleiste einfügen?
Es sind ca. 250 Einträge anzuzeigen.
Danke gui
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox zu klein
01.03.2004 10:48:03
Boris
Hi Gui,
...dafür ist ne Messagebox auch nicht da.
Bau dir ein Userform mit einer Listbox und lies die Daten dort ein.
Grüße Boris
AW: MsgBox zu klein
01.03.2004 15:04:45
gui
Hallo Boris,
danke für die Antwort, habe es versucht, aber es klappt nicht.
Vielleicht hast du ein paar Tips parat?
Anbei der Code für die MsgBox.

Private Sub Workbook_Open()
g = 12
Zeile = 4
CListe = ""
While IsEmpty(Tabelle1.Cells(Zeile, 4)) = False
Fällig = Tabelle1.Cells(Zeile, g)
If Fäll(Fällig) = Fäll(Now) Then
CListe = CListe & Tabelle1.Cells(Zeile, 1) & " " & Tabelle1.Cells(Zeile, 2) & " " & Tabelle1.Cells(Zeile, 3) & " " & Tabelle1.Cells(Zeile, g) & vbCrLf
End If
Zeile = Zeile + 1
Wend
If CListe >= " " Then
MsgBox CListe, , "Prüfung FÄLLIG"
End If
End Sub

Anzeige
AW: MsgBox zu klein
01.03.2004 16:34:03
Boris
Hi,
"...habe es versucht, aber es klappt nicht..."
Was hast du denn versucht?
Zum Code:
Was steht in Spalte 12?
Was ist "Fäll(Fällig)"? Und "Fäll(now)"?
Grüße Boris
AW: MsgBox zu klein
02.03.2004 08:25:55
gui
hi,
ab Zeile 4, Spalte 12 steht das Datum.
Fäll(Fällig) = Fäll(Now): Funktion in Modul 1.
Habe versucht die MsgBox durch eine Listbox zu ersetzen.
If CListe >= " " Then
ListBox1.AddItem Cliste
End If
Nur weiß ich nicht wie ich mit der UserForm umgehen soll und wie ich diese
in den bestehenden Code einsetzen soll.
Gruß gui
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige