Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.05.2024 12:28:15
Index Vergleich such Kriterien wenn sonst wert
12.05.2024 10:04:21
Zellbezug zeigen anderes Arbeitsblatt
12.05.2024 09:29:18
Mittelwertwenn
11.05.2024 22:49:27
VBA - NOT-Operator 2 Prozeduren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1888to1892
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert aus Userform3 Userform1

Wert aus Userform3 Userform1
28.06.2022 09:18:25
oraculix
Hallo Alle!
Versuche schon seit Wochen den Wert von Userform3 aus Listbox1 in die Userform1 Listbox2 zu übernehmen.
Leider schaffe ich es nicht hoffe jemand kann mir helfen.
Wenn ich die Userform 3 per Commandbutton11 schließe soll Userform1 geöffnet werden und die markierte Zeile der Userform3 aus Iisttbox1
in Userform1 gesucht werden und angezeigt werden. Bisher schaffe ich aber nur das die Userform1 geöffnet wird und es wird nichts angezeigt.
Leider kann ich keine Mappe Hochladen da viele Bilder Dazugehören deshalb ein Screenshoot von Userform1.
Userbild
Hier wird nichts angezeigt oder Markiert.
'Mit diesem Code wird die Userform3 beendet und Userform1 gestartet

Private Sub CommandButton11_Click()
Unload Me
UserForm1.Show
Listbox1.Value = Listbox2 'Funktioniert aber nicht!
End Sub
Hoffe jemand kann mir helfen
Gruß
Oraculix

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus Userform3 Userform1
28.06.2022 09:32:16
Daniel
Hi
probiers mal damit, die erste Userform nicht komplett zu schließen, sondern einfach nur auszublenden (Me.Hide statt Unload Me)
dann kannst du auf beide userformen zugreifen.
Wenn du die Steuerelemente der anderen userform ansprechen willst, musst du den Userformnamen davorsetzen.

Private Sub CommandButton11_Click()
Me.Hide
UserForm1.Show
Userform2.Listbox1.Value = Me.Listbox1.value 'Funktioniert aber nicht!
End Sub
mit dem .Value = .Value natürlich nur, wenn beide Listboxen auch die gleiche Datenquelle haben.
Gruß Daniel
Anzeige
AW: Wert aus Userform3 Userform1
28.06.2022 10:26:03
oraculix
Danke Daniel!
Es funktioniert nicht.
Me.Hide
UserForm1.Show
UserForm3.ListBox1.Value = Me.ListBox2.Value 'Funktioniert aber nicht!
End Sub Die Daten sind Grundsätzlich Gleich aber
Userform1 hat 5 Spalten in der Listbox2 wobei Spalte B angesprochen werden muss.
und Userform3 hat nur 1 Spalte diese wird ermittelt per klick auf Bild.Von Spalte A1 bis IZ1
'Klick auf beliebige Spalte Zeile 1 Schauspielerbild öffnet Userform3 und zeigt Bild in Userform3 an

Public Sub ImageClick2()
Dim objShape As Shape
Worksheets("Schauspieler").Activate
Set objShape = ActiveSheet.Shapes(Application.Caller)
With UserForm3
Set .Image21.Picture = GetPicture(objShape)
.ListBox1.List = Range(Cells(2, objShape.TopLeftCell.Column), _
Cells(Rows.Count, objShape.TopLeftCell.Column).End(xlUp)).Value
.ComboBox1.Text = Cells(1, objShape.TopLeftCell.Column).Text
Call .Show
End With
Set objShape = Nothing
End Sub
Gruß
Oraculix
Anzeige
AW: Wert aus Userform3 Userform1
28.06.2022 10:43:14
Daniel
naja, dann ist deine Methode, den Listbox.Value gleich zu setzten grundsätzlich falsch.
wenn die Listboxen die gleiche Datenquelle haben, so dass in gleichen Zeilen gleiche Inhalte stehen (also auch Reihenfolge gleich), dann kannst du besser den ListIndex gleichsetzen (ListboxA.ListIndex = ListboxB.ListIndex)
wenn die datenquellen nicht gleich sind, kannst du auch mit einer Schleife durch die Listbox gehen und den Wert vergleichen.
Dabei kannst du dann auch die Spalte, die du für den Vergleich heranziehst, frei wählen:
dieser Code funktioniert auch, wenn der gesuchte Wert nicht vorkommt, dann wird auch nichts ausgewählt.

for i = ListboxX.ListCount - 1 to 0 step - 1
if ListboxX.List(i, SpaltenIndex) = "gesuchter Wert" then Exit for
Next
ListboxX.ListIndex = i
Gruß Daniel
Anzeige
AW: Wert aus Userform3 Userform1
28.06.2022 14:23:18
oraculix
Hallo Daniel Danke! Leider Funktioniert es nicht.
Aber die Listboxen haben nicht die gleiche Daten Quelle!
Userform3 Textbox1 In der Tabelle ' Schauspieler ' sind die Quelldaten in A2-IZ170
Userform1 Textbox2 zeigt In der Tabelle ' FilmDB ' sind die erforderlichen Daten in Spalte B
Habe versucht eine Abgespeckte Mappe zu erstellen aber mit nur einem Bild wird die Datei 5mb groß.
Vielleicht gibt es noch einen anderen Löungsvorschlag?
Danke
Gruß
Oraculix
AW: Wert aus Userform3 Userform1
28.06.2022 14:32:21
Daniel
hi
leider nein, bei den dürftigen Informationen die du lieferst, kann ich dir leider nicht weiterhelfen.
Gruß Daniel
Anzeige
AW: ohne value Userform1 B1780
28.06.2022 14:57:54
oraculix
Falls Du es nicht hinbekommst Daniel den Wert aus der Userform3 in Userform 1 zu zu Übernehmen.
im Notfall würde es auch genügen wenn er in der Listbox2 einfach nur ein Bild aus der Tabelle FilmDB Zelle B1780 anzuzeigen.

Private Sub CommandButton11_Click()
Unload Me
UserForm1.Show
Listbox2 Zeile = Cells(Rows.Count, FilmDB B1780 ).Aktivat oder diese Zeile Markieren 'Dies ist nur in meinem Anfänger Hirn entstanden
End Sub
Gruß
Oraculix
AW: ohne value Userform1 B1780
28.06.2022 15:20:18
Daniel
Hi
sorry, bei Listbox + Bild bin ich raus.
das ist zu kompliziert für mich.
Gruß Daniel
Anzeige
AW: ohne value Userform1 B1780
28.06.2022 16:00:41
oraculix
Kann ich verstehen Trotzdem Danke für Deine Hilfe und gute Beschreibung!!
Gruß
Oraculix

Links zu Excel-Dialogen

ListBox TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige