Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1488to1492
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
Inhaltsverzeichnis

Schaltfläche auf neuem Tabellenblatt

Schaltfläche auf neuem Tabellenblatt
18.04.2016 13: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

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

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche auf neuem Tabellenblatt
18.04.2016 13: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 19: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

AW: Schaltfläche auf neuem Tabellenblatt
19.04.2016 06: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)

Anzeige
AW: Schaltfläche auf neuem Tabellenblatt
19.04.2016 07: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)

bei mir alles. owT
19.04.2016 22:19:32
Rudi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige