Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 22:28:14
Formel Suche nur genauen Wert ausgeben
10.05.2024 19:12:28
Suche Formel für Monatsberechnung
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche zum Öffnen einer Userform

Schaltfläche zum Öffnen einer Userform
11.01.2023 10:07:50
Marc
Guten Morgen,
ich habe zwei Schaltflächen auf dem Tabellenblatt womit ich gerne eine Userform öffnen möchte. Bisher habe ich das mit einem Klick auf eine Zelle gemacht. Habt ihr eine Idee und könnt mir helfen? Hier die Datei https://www.herber.de/bbs/user/157202.xlsm
Gruß Marc

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

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche zum Öffnen einer Userform
11.01.2023 10:25:38
ChrisL
Hi

Sub Schaltfläche1_Klicken()
Set TabFürListe = Tabelle2.ListObjects(1)
Set AusgabeZelle = Tabelle1.Range("C2")
UserForm1.Show
End Sub


Sub Schaltfläche2_Klicken()
Set TabFürListe = Tabelle2.ListObjects(2)
Set AusgabeZelle = Tabelle1.Range("C3")
UserForm1.Show
End Sub
cu
Chris
AW: Schaltfläche zum Öffnen einer Userform
11.01.2023 11:07:12
Marcus
Danke dir Chris, die Userform1 öffnet sich zwar, aber es sind dann die gleichen Werte hinterlegt und nicht aus der anderen Tabelle. Hättest du auch noch eine Lösung für mich, wie ich das mit den ". " am Satzende hinbekomme (steht in roter Schrift in der Excel Datei). Vielen Dank.
Gruß Marc
Anzeige
AW: Schaltfläche zum Öffnen einer Userform
11.01.2023 11:16:45
ChrisL
Hi
Hast du meine Antwort im letzten Beitrag gelesen. U.a. Unload statt Hide.
cu
Chris
AW: Schaltfläche zum Öffnen einer Userform
11.01.2023 11:41:34
Marcus
Ich habe jetzt auch Unload me verwendet. Wenn ich auf den oberen Button(Schaltfläch1) klicke, soll der die "Tabelle11" von dem Arbeitsblatt "Stammdaten" und der untere Button(Schaltfläch2) soll die gleiche Userform öffnen, aber mit den Daten von "Tabelle12" des Arbeitsblattes "Stammdaten". Die Daten sollen dann auch entsprechend von Button1 in Zelle C2 und die Daten von Button2 in Zelle C3 geschrieben werden. Kannst du mir dabei nochmal helfen? Vielen Dank.
Gruß Marc
AW: Schaltfläche zum Öffnen einer Userform
11.01.2023 12:53:15
ChrisL
Hi
Bei mir funktioniert es. Wie gesagt, Unload anstelle Hide bei beiden Code-Stellen und natürlich musst du Schaltfläche1 das 1. Makro und Schaltfläche2 das 2. Makro zuweisen.
Meinen ursprünglichen Vorschlag zum Punkt möchte ich hiermit noch leicht revidieren:

Private Sub btnTabellenblatt_Click()
Dim i&, Daten$
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Daten = ListBox1.List(i, 1) & ". " & Daten
Next
AusgabeZelle.Value = Daten
Unload Me
End Sub
cu
Chris
Anzeige
AW: Schaltfläche zum Öffnen einer Userform
11.01.2023 12:55:33
ChrisL
Flüchtigkeitsfehler :)
so...

Private Sub btnTabellenblatt_Click()
Dim i&, Daten$
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Daten = Daten & ListBox1.List(i, 1) & ". "
Next
AusgabeZelle.Value = Daten
Unload Me
End Sub

AW: Schaltfläche zum Öffnen einer Userform
11.01.2023 13:11:13
Marcus
Vielen Dank, jetzt weiß ich wo der Fehler lag. Vielen Dank nochmal und dir einen schönen Tag.
AW: Schaltfläche zum Öffnen einer Userform
11.01.2023 11:32:02
onur
Er meinte auch D2 bzw D3 statt C2 bzw C3.

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige