vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Kombinierte Auswahl mit 2 ComboBoxen 
Autor: wAmBo
Datum: 10.12.18 13:23

Hallo, ich habe ein Problem.

Ich habe auf einer Userform, 2 comboBoxen.
Eine zur Auswahl für die Abteilung und eine zur Auswahl für das Büro.
Wenn ich in der Abteilungsbox die erste Abteilung aus wähle soll in Combobox 2 nur die Büros auftauchen die zur Abteilung 1 gehören. Das geht und die Listen werden auch dynamisch erzeugt.

Mein Problem ist wenn ich Abteilung 1 mit Büro 1 ausgewählt habe, soll aus einer liste (Tagesliste) aus einer Spalte (zb. Tagesliste!C9:C106) also 100 Zeilen der wert in ein anderes Tabellen Blatt (Anforderung) kopiert werden.

Dies habe ich schon mit der Funktion hier unten geschafft wenn ich nur eine Combobox zur Auswahl nutze. aber bei 250 Büros ist mir die Auswahl liste zulang. deswegen möchte ich erst die Abteilung auswählen. Quasi zum filtern.
Private Sub EinfügenI()
 
   B = ActiveSheet.Name
   zweiter = 0
   Dim d As String
 
   Sheets("Anforderung").Unprotect
 
   Select Case ComboBox1.Value
 
               Case 0
                   R = 2
                   If CheckBox1 = True Then R = R + 2: zweiter = 1
                   Call datenübertragen
                   'Abteilung und Büro einfügen
                   Range("B4").Select
                   ActiveCell.FormulaR1C1 = "I.In"
                   Range("B5").Select
                   ActiveCell.FormulaR1C1 = "11"
 
                   Call datumeinfügen
 
                   UserForm1.Hide
 
               Case 1
                   R = 4
                   If CheckBox1 = True Then R = R + 2: zweiter = 1
                   Call datenübertragen
                   Range("B4").Select
                   ActiveCell.FormulaR1C1 = "I.In"
                   Range("B5").Select
                   ActiveCell.FormulaR1C1 = "12"
 
                   Call datumeinfügen
 
                   UserForm1.Hide
 
            End Select
 
   End Sub
Mit der Funktion Select Case habe ich die Auswahl genutzt und gezielt das auslesen der spalte getroffen. Jetzt wollte ich das ineinander verschachteln, das klappt aber nicht.

Private Sub CommandButton1_Click()
 
   B = ActiveSheet.Name
   zweiter = 0
   Dim d As String
 
   Sheets("Anforderung").Unprotect
 
       If ComboBox2.Value = "" Then
           UserForm1.Hide
           UserForm2.Show
           GoTo ende:
       End If
 
   Select Case ComboBox1.Value
 
       Case 0 'Abteilung 1
 
           Call EinfügenI 'Springen zur Auswahl des Büros in Combobox2 Siehe 
           ' oben
 
       Case 1
           Call EinfügenII
 
   End Select
 
   ende:
   End Sub
___________________________________________
 
Sub EinfügenI()
 
B = ActiveSheet.Name
zweiter = 0
Dim d As String
 
Sheets("Anforderung").Unprotect
 
        Select Case ComboBox2.Value
 
            Case 0
                R = 2
                If CheckBox1 = True Then R = R + 2: zweiter = 1
                Call datenübertragen
                Range("B4").Select
                ActiveCell.FormulaR1C1 = "I.In"
                Range("B5").Select
                ActiveCell.FormulaR1C1 = "11"
 
                Call datumeinfügen
 
                UserForm1.Hide
 
           Case 1
                R = 4
                If CheckBox1 = True Then R = R + 2: zweiter = 1
                Call datenübertragen
                Range("B4").Select
                ActiveCell.FormulaR1C1 = "I.In"
                Range("B5").Select
                ActiveCell.FormulaR1C1 = "12"
 
                Call datumeinfügen
 
                UserForm1.Hide
        End Select
 
End Sub
Wäre schön wenn mir jemand helfen kann. Datei habe ich mit angehängt.
es gibt noch viele andere Funktionen die aber keine Probleme machen.

Hier die Datei
http://www.herber.de/bbs/user/125994.xlsm
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Kombinierte Auswahl mit 2 ComboBoxen200wAmBo10.12.18 13:23
Re: Kombinierte Auswahl mit 2 ComboBoxen84wAmBo10.12.18 13:23
Re: Kombinierte Auswahl mit 2 ComboBoxen81wAmBo11.12.18 06:37
Re: Kombinierte Auswahl mit 2 ComboBoxen63janno7624.01.19 10:07

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel