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 Box 2 nur die Büros auftauchen die zur Abteilung 1 gehören. das geht, wird 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) und 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 ComboBox2.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
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.
https://www.herber.de/bbs/user/125924.zip