Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Schaltfläche auf neuem Tabellenblatt

Forumthread: Schaltfläche auf neuem Tabellenblatt

Schaltfläche auf neuem Tabellenblatt
18.04.2016 15:24:12
Alex
Hallo zusammen,
könnt Ihr mir bei folgendem Problem helfen? Ich habe eine Tabelle zur Personenverwaltung erstellt, welche durch eine Schaltfläche neben der Tabelle aufgerufen wird. Wenn ich die Userform mittel einer Schaltfläche auf einem anderen Tabellenblatt öffne, wird im Kombinationsfeld nichts angezeigt.
Woran liegt das?
https://www.herber.de/bbs/user/105050.xlsm
Beste Grüße
Alex

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche auf neuem Tabellenblatt
18.04.2016 15:44:27
Rudi
Hallo,
Private Sub CMB_Person_DropButtonClick()
With CMB_Person
.ColumnCount = 2
.List = Worksheets("Tabelle1").Range("A2:B" & intLetzteZeile).Value
End With
End Sub

Gruß
Rudi

AW: Schaltfläche auf neuem Tabellenblatt
18.04.2016 21:33:43
Alex
Hallo Rudi,
leider funktioniert der Code bei mir nicht richtig. Jetzt werden zwar Daten im Kombinationsfeld angezeigt, jedoch nur die ersten beiden Zeilen der Spalte A.
https://www.herber.de/bbs/user/105057.xlsm
Grüße
Alex

Anzeige
AW: Schaltfläche auf neuem Tabellenblatt
19.04.2016 08:56:48
Peter
Hallo Alex
Probier mal:
Private Sub CMB_Person_DropButtonClick()
With CMB_Person
.RowSource = "Tabelle1!A2:B" & Worksheets("Tabelle1").Cells(Rows.Count, 1).Row
.ColumnCount = 2
End With
End Sub
Viele Grüße
Peter (hpo)

AW: Schaltfläche auf neuem Tabellenblatt
19.04.2016 09:00:39
Peter
Hallo Alex
Leider einen Fehler im Code.
Private Sub CMB_Person_DropButtonClick()
With CMB_Person
.RowSource = "Tabelle1!A2:B" & Worksheets("Tabelle1").Cells(Rows.Count, 1).end(xlup).Row
.ColumnCount = 2
End With
End Sub
So solltes funktionieren
Gruß
Peter (hpo)

Anzeige
bei mir alles. owT
20.04.2016 00:19:32
Rudi

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige