Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1464to1468
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
1464to1468
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Comboboxinhalt aus verschiedenen Tabellen

Comboboxinhalt aus verschiedenen Tabellen
06.01.2016 09:16:31
Ralle
Hallo liebe Forum-ler
ich habe auf einer Userform 3 Comboboxen, in einer kann ich das Jahr auswählen das funktioniert auch dabei wird das entsprechende Jahr (Tabellenblätter) ausgewählt. Nun möchte ich in einer 2. Combobox den Inhalt aus spalte C vom jeweiligem Jahr was in der Combobox steht in der 2. Combobox mir ohne doppelte Werte anzeigen lassen. Wie kann ich das realisieren?
Dankeschön für eure Hilfen.!!!! :-)

23
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Comboboxinhalt aus verschiedenen Tabellen
06.01.2016 09:37:39
Rudi
Hallo,
z.B. so: 
Private Sub ComboBox1_Change()
ComboBox2.List = CBX_Values(Sheets(ComboBox1.Value), 3)
End Sub
Function CBX_Values(sh As Worksheet, lColumn As Long)
Dim objList As Object, i As Long
Set objList = CreateObject("Scripting.dictionary")
With sh
For i = 2 To .Cells(Rows.Count, lColumn).End(xlUp).Row
objList(.Cells(i, lColumn).Value) = 0
Next
End With
CBX_Values = objList.keys
End Function
Gruß
Rudi

AW: Comboboxinhalt aus verschiedenen Tabellen
06.01.2016 09:40:26
Ralle
Wo muss ich den Code eintragen in ein Modul oder in die Userform (initalize oder Activate) 
Function CBX_Values(sh As Worksheet, lColumn As Long)
Dim objList As Object, i As Long
Set objList = CreateObject("Scripting.dictionary")
With sh
For i = 2 To .Cells(Rows.Count, lColumn).End(xlUp).Row
objList(.Cells(i, lColumn).Value) = 0
Next
End With
CBX_Values = objList.keys
End Function

Anzeige
egal ob Modul oder UF. owT
06.01.2016 10:14:21
Rudi

AW: egal ob Modul oder UF. owT
06.01.2016 10:16:22
Hajo_Zi
aber nicht in initalize oder Activate

AW: egal ob Modul oder UF. owT
06.01.2016 10:46:19
Rudi
... der Compiler anmeckern.
Private Sub Userform_Initialize()
Function Bla(x)
End Function
End Sub
Gruß
Rudi

AW: egal ob Modul oder UF. owT
06.01.2016 10:17:01
Ralle
Hallo Rudi,
ich komme mit der Function CBX_Values nicht klar. Was bedeutet das?
Danke

AW: egal ob Modul oder UF. owT
06.01.2016 10:26:08
Rudi
Hallo,
ich habe einfach die Ermittlung der Werte für Combobox2 in eine Funktion ausgelagert. Es werden einmalige Werte aus einem Blatt (sh) in einer bestimmten Spalte (lColumn) ermittelt und in ein Datenfeld (CBX_Values) geschrieben. Dieses wird der List-Eigenschaft der ComboBox zugeordnet (Combobox2.List=CBX_Values(Worksheets(Combobox1.Value), 3)).
Eine Combobox kannst auf mehrere Arten füllen: Angabe des Quellbereichs(RowSource), per AddItem-Methode oder durch Festlegen der List-Eigenschaft (hier genutzt).
Gruß
Rudi

Anzeige
AW: egal ob Modul oder UF. owT
06.01.2016 10:26:50
Ralle
Wie bekomme ich es dann noch hin das er mir die werte die ich in der Combobox mal auswählen kann auch in der Listbox angezeigt bekomme. Aber im Moment funktioniert das nicht. Die CB2 bleibt leer ich habe den Code so Übernommen aber nichts. Mache ich was falsch?

AW: egal ob Modul oder UF. owT
06.01.2016 10:31:12
Rudi
die CB2 wird erst nach Auswahl eines Wertes in CB1 gefüllt.

AW: egal ob Modul oder UF. owT
06.01.2016 10:39:40
Ralle
aha! Aber es geht nicht!! :-(

bei mir geht es
06.01.2016 10:41:06
Rudi
wahrscheinlich weil ich alles richtig mache.
Lad die Mappe hoch.

AW: bei mir geht es
06.01.2016 10:53:46
Ralle
Hallo hab mal die Mappe angehängt! Mit der Bitte um Hilfe
https://www.herber.de/bbs/user/102605.xlsm
Bitte um Hilfe!

Anzeige
AW: bei mir geht es
06.01.2016 11:04:52
Rudi
das
ComboBox1.List = CBX_Values(Sheets(cmbVerkäufer.Value), 3)
gehört natürlich in
Private Sub cmbVerkäufer_Change()
Gruß
Rudi
da kriegt man ja Augenkrebs

AW: bei mir geht es
06.01.2016 11:12:30
Ralle
Super Danke!
wie kann ich mir jetzt die Auswahl in der Listbox anzeigen lassen?

Listbox filtern
06.01.2016 11:48:36
Rudi
Hallo, 
Private Sub cmbVerkäufer_Change()
Worksheets(cmbVerkäufer.Value).Activate
With lsb1
.RowSource = ""
.List = ActiveSheet.Cells(1, 1).CurrentRegion.Offset(1).Value
End With
With ComboBox1
.Clear
.List = CBX_Values(Sheets(cmbVerkäufer.Value), 3)
End With
End Sub
Private Sub ComboBox1_Change()
Dim i As Long
With lsb1
.List = Sheets(cmbVerkäufer.Value).Cells(1, 1).CurrentRegion.Offset(1).Value
If ComboBox1.ListIndex > -1 Then
For i = .ListCount - 1 To 0 Step -1
If .List(i, 2)  ComboBox1.Value Then .RemoveItem i
Next
End If
End With
End Sub
Gruß
Rudi

Anzeige
AW: Listbox filtern
06.01.2016 12:31:19
Ralle
Super ein großes Danke!
Ich hab doch die Test Mappe gesendet. Kann ich die comboboxen voneinander abhängig machen? sodass wenn das Jahr ausgewählt wurde dann in der 2. Box der Verkäufer und in der 3. Box nach gegenstand?

AW: Listbox filtern
06.01.2016 12:48:02
Rudi
das kann man machen. Ich sehe aber nirgends einen Verkäufer. Meinst du Vertragspartner?
Du solltest die Userformen bereinigen. Über cmbVerkäufer steht 'Auswahl Rechnungsjahr' usw. Da blickt doch keiner mehr durch.
Außerdem sollten die Begriffe in den Tabellen und den Userformen gleich sein.
Die Daten würde ich nicht nach Jahr in unterschiedliche Blätter schreiben sondern alle in ein Blatt. Das vereinfacht einiges.
Gruß
Rudi

Anzeige
AW: Listbox filtern
06.01.2016 13:03:52
Ralle
Hallo Rudi,
Danke für den Hinweis. Es geht um die CBX cmbBelege und um die CBX cmbGegenstand. die beiden sollen abhängig voneinander sein.
Sicher wirst Du recht haben aber ich bin ein totaler Laie ich versuche mir etwas zusammen zubasteln so wie es mir gefallen könnte.
Kannst Du mir einen Hinweis geben wie ich die beiden CBX abhängig machen kann. Du hast ja die TestMappe erhalten.
vielen Dank für die Hilfestellungen.

Inhalt der Combobox anzeigen beim Starten der UF
06.01.2016 14:04:54
Ralle
Hallo Forum-ler,
1. wie kann ich es in die Tat umsetzen, dass wenn ich die Userform starte gleich das aktuelle Jahr in der Combobox drin steht. Siehe beiliegende Mappe es geht dabei um die Userform1 und um die CBX 1
2. Die Listbox auf der Userform ist im Entwicklungsmodus normal groß wie ich das möchte, aber wenn ich die Userform starte, ist diese so klein. Weiß jemand woran das liegt?
Danke für Euer Verständnis und eure Hilfe

Anzeige
AW: Inhalt der Combobox anzeigen beim Starten der UF
06.01.2016 14:09:17
Rudi
1. im _activate: Combobox1=Year(Date)
2. na wenn du die Höhe setzt, kein Wunder
Gruß
Rudi

AW: Inhalt der Combobox anzeigen beim Starten der UF
06.01.2016 14:22:03
Ralle
Perfekt !! Danke

AW: Comboboxinhalt aus verschiedenen Tabellen
06.01.2016 10:20:01
Ralle
Hab den Code jatzt mal reinkopiert. Aber combobox bleibt leer. Woran kann es noch liegen?
Danke

Perfekt Danke an alle für die Hilfe!!!
06.01.2016 14:22:58
Ralle
o.w.t.

300 Forumthreads zu ähnlichen Themen

Inhalt aus mehreren Tabellen einfügen
Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...
21.08.2008 18:04:19
Thread-ID: 1003605
2 Beiträge
Anzeige
einfaches Bild einfüges aus currdir
Ludes

Hallo zusammen,
- xls-Datei mit Makro in Ordner gespeichert.
- in selbem Ordner einen Ordner "Bilder" mit verschiedenen Bildern
- in Zelle A1 steht der Dateiname eines der Bilder
Brauch nun ein Marko, dass aus dem aktuellen Ordner in der xls-Datei gespeichert ist ein Bild in Zel...
25.08.2008 10:12:55
Thread-ID: 1004386
3 Beiträge
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
Anzeige
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox ListBox

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
1
2
2
7
3
4
6
33
4
2
1
2
2
1
4
2
6
8
2
3
1
3
5
5
4