Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 14:14:51
Summewenn letzter Eintrag
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
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
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listefeld aus wachsender Tabelle

Listefeld aus wachsender Tabelle
lupo
Hallo Forum.
Ich schreibe gerade eine kleine Exceltabelle mit einer Userform in dem sheet1.
In der Userform habe ich ein Listenfeld, dass auf die Spalte a des Sheets2 zugreifen soll.
Die Spalte A des Sheets2 wird aber länger, so dass ich keinen festen Zeilenbezug für die letzte Zeile habe.
Wie initializiere ich jetzt dieses Listenfeld?
Schöne Grüss
lupo

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
klappts so ?
19.06.2010 18:34:12
Matthias
Hallo
Dim LoLetztE As Long
LoLetztE = Tabelle2.Cells(Rows.Count, 1).End(xlUp)
ListBox1.RowSource = "Tabelle2!A1:A" & LoLetztE
Gruß Matthias
AW: klappts so ?
19.06.2010 19:30:14
lupo
Hallo Matthias.
Leider klappts so nicht.
Die Idee von Tino ist da besser.
Aber trotdem DANKE für die Hilfe.
lupo
klar, da fehlte ja die ZeilenNr. ...
20.06.2010 09:48:33
Matthias
Hallo
LoLetztE = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row
Gruß Matthias
hier zwei Varianten, ...
19.06.2010 18:45:22
Tino
Hallo,
gehe davon aus das in Zeile 1 die Überschrift ist und diese nicht übernommen werden soll.
Private Sub UserForm_Initialize()
Dim rngBereich As Range, MaxRow As Long
With Tabelle2 'Tabelle anpassen
MaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rngBereich = .Range("A2", .Cells(MaxRow, 1))
If Intersect(rngBereich, .Rows(1)) Is Nothing Then
ListBox1.RowSource = ""
If MaxRow > 2 Then
ListBox1.List = rngBereich.Value2
Else
ListBox1.AddItem rngBereich.Value
End If
End If
End With
End Sub


'2. Variante *****************************************************
Private Sub UserForm_Initialize()
Dim rngBereich As Range
With Tabelle2 'Tabelle anpassen
Set rngBereich = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
If Intersect(rngBereich, .Rows(1)) Is Nothing Then _
ListBox1.RowSource = .Name & "!" & rngBereich.Address
End With
End Sub
Gruß Tino
Anzeige
AW: hier zwei Varianten, ...
19.06.2010 19:28:19
lupo
Ja, Variante zwei gefällt mir und funktioniert.
Leider ist die zeile 1 keine Überschrift.
Kann man das noch anpassen oder?
DANKE für die Hilfe!
lupo
so wenn nicht Überschrift...
19.06.2010 19:32:53
Tino
Hallo,
versuche es mals so.
Private Sub UserForm_Initialize()
Dim rngBereich As Range
With Tabelle2 'Tabelle anpassen
Set rngBereich = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
If rngBereich(1, 1)  "" Then _
ListBox1.RowSource = .Name & "!" & rngBereich.Address
End With
End Sub
Gruß Tino
AW: so wenn nicht Überschrift...
19.06.2010 19:35:27
lupo
Hallo Tino.
DANKE, jetzt ist es o wie ich mir es gewünscht hatte.
Klasse!
lupo
Anzeige

299 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
mehrer Tabellen aus wählen (Liste = Listox)
Rocky

Hallo Excelgemeinde,
ich möchte gerne verschiedene Tabellen blätter auswählen um diese zusammen in eine andere (neue) Datei zu kopieren. Die entsprechenden Tabellen werden in einer Listbox angezeigt.
so z.b (Leihenhaft)
sheets.array(Listbox1.list).copy
Danke für eure Hilfe
...
15.09.2008 12:23:27
Thread-ID: 1009754
5 Beiträge
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 Beiträge
Anzeige

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
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
9
2
20
7
3
5
4
4
8
2
5
1
3
5
1
6
4
4
1
1
4
11
2