Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

userform

userform
17.06.2005 16:53:55
max
hallo zusammen,
wer kann mir helfen
ich bin sehr neu in excel und möchte gerne wissen wie es mit der userform funktioniert.
ich möchte eine userform in die tabelle 1 einfügen, die mir daten aus der tabelle 2 anzeigt dazu habe ich im basic in die tabelle 1 eine userform eingefügt was muß ich nun machen das sie in dem tabellenblatt erscheint?
danke für eure zeit

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: userform
17.06.2005 17:02:32
Matthias
Hallo Max,
der Befeht zum Anzeigen ist
UserForm1.Show
Du kannst z.B. auf dem Blatt einen Commandbutton erstellen, darauf im Entwurfsmodus Rechtsklick - "Code anzeigen", dann in den erscheinenden Prozedurrumpf den Befehl einsetzen.
Gruß Matthias
AW: userform
17.06.2005 18:22:19
max
danke schön jetzt kann ich sie sehen
nun möchte ich in der userform spalte A und D aus der Tabelle 2 anzeigen dazu ziehe ich das Listfeld auf die Userform aber ich kann dann in der Eigenschaft dem Listfeld nicht die tabelle 2 zuweisen muß das auch programmiert werden? und wenn ja wie
wenn noch mal jemand zeit hätte
Anzeige
AW: userform
17.06.2005 20:08:14
Matthias
Hallo Max,
erstrelle für jede Spalte eine extra Listbox.
Dann ins Codemodul der Userform:
Private Sub UserForm_Activate()
ListBox1.RowSource = "Tabelle2!A1:A" & Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
ListBox2.RowSource = "Tabelle2!D1:D" & Sheets("Tabelle2").Cells(Rows.Count, 4).End(xlUp).Row
End Sub
So wird nur die Liste nur bis zum letzten benutzten Element angezeigt.
Gruß Matthias
AW: userform
17.06.2005 20:14:19
Matthias
Hallo nochmal,
andere Möglichkeit mit nur einer Listbox:
- Setze die Eigenschaft "ColumnCount" der Listbox auf 4
- Setze die Eigenschaft "ColumnWidths" der Listbox auf "30;0;0;30" (oder anders, wichtig ist der 2. und 3. Wert 0 (unsichtbar)
dann:

Private Sub UserForm_Activate()
ListBox1.RowSource = "Tabelle2!A1:D" & Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
End Sub

Gruß Matthias
Anzeige
AW: userform
20.06.2005 07:47:19
max
hallo,
du hast mir sehr geholfen
danke für deine Mühen ich bin gerade dabei alles auszuprobieren.
mfG max

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige