specialuser
Goto Top

Excel VBA Programmierung

Hallo zusammen,

ich suche auf diesem Weg Hilfe bei einer VBA Programmierung. Und zwar geht es darum 2 Dropdownlisten in Excel 2010 zu erstellen. Das habe ich auch schon getan leider funktionieren diese nicht so wie ich es mir vorstelle. In dem einen Dropdown stehen Kundennamen diese werden per Autovervollständigung vervollständigt. Das Dropdown sollte aber in jeder Zelle der Spalte C bei klicken sichtbar werden und auch den Inhalt dann in die angewählte Zelle in Spalte C schreiben. Das gleiche in der Spalte L. Des weiteren wollte ich eine Funktionalität einbauen welche mir sobald ich eine Änderung im Dropdown von Spalte L mache die komplette Zeile in welcher durch Dropdown eine bestimmte Auswahl getroffen wird in die nächst freie Zeile von Tabellenblatt 2 kopiert. Bin leider kein VBA-Held...würde mich über jede Hilfe freuen.

Hier das was ich schon geschrieben habe:

Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1.Value
End Sub

Private Sub ComboBox2_Change()
ActiveCell.Value = ComboBox2.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich1 As Range
Dim Bereich2 As Range
Set Bereich1 = Range("C2:C999")  
Set Bereich2 = Range("L2:L999")  

    
  If Bereich1.Count > 1 Then Exit Sub
    If Intersect(Target, Range("C2:C999")) Is Nothing Then  
        ComboBox2.Visible = True
        Exit Sub
    Else
        ComboBox2.Visible = True
        ComboBox2.Top = Target.Top
        ComboBox2.Left = Target.Left
        ComboBox2.Value = ActiveCell.Value
    End If
    
  If Bereich2.Count > 1 Then Exit Sub
    If Intersect(Target, Range("L2:L999")) Is Nothing Then  
        ComboBox1.Visible = True
        Exit Sub
    Else
        ComboBox1.Visible = True
        ComboBox1.Top = Target.Top
        ComboBox1.Left = Target.Left
        ComboBox1.Value = ActiveCell.Value
    End If
End Sub

Gruß

Content-ID: 349064

Url: https://administrator.de/contentid/349064

Ausgedruckt am: 24.11.2024 um 14:11 Uhr

133883
133883 14.09.2017 aktualisiert um 10:03:47 Uhr
Goto Top
Dafür nimmt man kein DropDown Steuerelement sondern die Funktion "Gültigkeitswerte" für die jeweiligen Zellen, dann erscheint in jeder damit formatierten Zelle ein Dropdown. Auf die Änderung der Werte in den Zellen reagiert man dann mit dem CellChange Event mit einem Intersect auf die Spalte.
Werf mal die Suche hier an,da gibt es einiges an Beispielen.

Gruß
specialuser
specialuser 14.09.2017 um 10:04:44 Uhr
Goto Top
Hallo Oneplus,

hab ich auch schon versucht aber mit der Autovervollständigung klappt das dann nicht wenn bspw. ein Kunde gesucht wird.

gruß
133883
133883 14.09.2017 um 10:05:50 Uhr
Goto Top
Doch face-smile
specialuser
specialuser 14.09.2017 um 10:11:23 Uhr
Goto Top
Wie schalte ich bei "Gültigkeitswerten" dann die Autovervollständigung ein?
133883
133883 14.09.2017 um 11:05:02 Uhr
Goto Top
Drop-down öffnen und lostippen.
colinardo
Lösung colinardo 15.09.2017 aktualisiert um 17:11:24 Uhr
Goto Top
Servus @specialuser ,
Hier was zum Spielen
dropdown_jump_349064.xlsm

Grüße Uwe
specialuser
specialuser 06.10.2017 um 16:43:43 Uhr
Goto Top
Hallo Uwe,

ich danke dir vielmals für deine Mühe.

Gruß