Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Spalten an Kombinationsfeld übertragen

Mehrere Spalten an Kombinationsfeld übertragen
16.09.2013 15:45:43
Christian
Hallo Excelfreunde
Ich möchte mehrere Spalten einer Tabelle an ein Combinationsfeld übertragen.

For i = 3 To 10
UserForm_BestGuide.ComboBox_Suchen.AddItem Sheets("MyPortal").Range(Cells(i,4),Cells(i,5),....,Cells(i,9)).value
Next i

Das Problem ist, das Value nicht geht. Kommt Fehlermeldung. Wie kann ich das lösen
danke

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
RowSource = "DeineTabelle!D3:I10"
16.09.2013 16:08:07
Matthias
Hallo
TabellenblattName & Name der Combobox anpassen!
With ComboBox1
.RowSource = "Tabelle1!D3:I10" 'Bereich anpassen
.ColumnCount = 6
.ColumnWidths = "50;50;50;50;50;50"
.Text = "Bitte auswählen ... "
End With

Warum hier keine Rückmeldung?
https://www.herber.de/forum/messages/1330540.html
Gruß Matthias

AW: Mehrere Spalten an Kombinationsfeld übertragen
16.09.2013 16:10:50
EtoPHG
Hallo Christian,
Kommt Fehlermeldung. uuuuhhh, sehr aussagekräftig. Da weiss man doch sofort wo das Problem liegt! .AddItem addiert genau 1 Element. Und nicht mehrere Spalten!
Um die Ganze Liste in einem Rutsch in die Combox zu schieben: 

With ComboBox_Suchen
.Clear
.ColumnCount = 6
.List = Sheets("MyPortal").Range( _
Sheets("MyPortal").Cells(3, 4), _
Sheets("MyPortal").Cells(10, 9)).Value
End With
Der Code gehört in das Klassenmodul der Userform.
Gruess Hansueli

Anzeige
AW: Mehrere Spalten an Kombinationsfeld übertragen
16.09.2013 17:42:33
Christian
Danke für die schnelle Unterstützung
Soweit schon gut. Ist es möglich den Inhalt der Spalten in der Kombibox untereinander anzuzeigen.
Der Anwender Soll nicht sehen das diese Daten in verschidene Spalten liegen. Einfach eine Dropdownliste, wo der Anwender auswählt
Danke

AW: Mehrere Spalten an Kombinationsfeld übertragen
16.09.2013 17:51:23
Rudi
Hallo,
For i = 3 To 10
For j=4 to 9
UserForm_BestGuide.ComboBox_Suchen.AddItem Sheets("MyPortal").Cells(i,j)
next j
Next i
Gruß
Rudi

AW: Mehrere Spalten an Kombinationsfeld übertragen
17.09.2013 11:19:58
Christian
Hallo Rudi
Danke für deine Lösung. Die Lösung lag so nah. Es brauchte nur eine 2 Schleife
Nochmal Danke

Anzeige
AW: Mehrere Spalten an Kombinationsfeld übertragen
17.09.2013 15:20:45
Christian
Hallo Rudi
Besteht die Möglichkeit, das die Schleife i solange durchläuft bis die erste leere Zeile angezeigt wird
Ich habe schon mit Loletzte überlegt
Danke

AW: Mehrere Spalten an Kombinationsfeld übertragen
17.09.2013 15:47:57
Rudi
Hallo,
sicher.
Wenn D immer gefüllt ist:
For i= 3 to cells(rows.count,4).end(xlup).row
Gruß
Rudi

AW: Mehrere Spalten an Kombinationsfeld übertragen
17.09.2013 16:00:46
Christian
Hallo Rudi
Du warst so freundlich mir diesn Code zu geben: 

For i = 3 To 20
For j = 4 To 9
UserForm_BestGuide.ComboBox_Suchen.AddItem Sheets("MyPortal").Cells(i, j)
UserForm_BestGuide.ComboBox_Suchen.AddItem Sheets("OneERP").Cells(i, j)
Next j
Next i
Und die Schleife soll solange laufen bis kein Eintrag mehr vorhanden ist. Also die Vorschleiife i= 3 To ?
deine Lösung betrift ja die Spalten.
Danke

Anzeige
AW: Mehrere Spalten an Kombinationsfeld übertragen
17.09.2013 17:14:53
Rudi
Hallo,
jetzt willst du die CB plötzlich aus 2 Blättern füllen?
Andere Methode: 
  Dim rngC As Range
With Sheets("MyPortal")
For Each rngC In .Range("D3:I1000")
If rngC = "" Then Exit For
UserForm_BestGuide.ComboBox_Suchen.AddItem rngC
Next
End With
With Sheets("OneERP")
For Each rngC In .Range("D3:I1000")
If rngC = "" Then Exit For
UserForm_BestGuide.ComboBox_Suchen.AddItem rngC
Next
End With

Gruß
Rudi

300 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox 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
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
9
6
2
10
2