Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige