userform

Forumthread: 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

AW: userform

17.06.2005 17:02:32

Matthias
AW: userform

17.06.2005 18:22:19

max
AW: userform

17.06.2005 20:08:14

Matthias
AW: userform

17.06.2005 20:14:19

Matthias
AW: userform

20.06.2005 07:47:19

max

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

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: userform

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread