Problem mit frmNamen
14.12.2017 13:45:40
Felix
ich habe ein Problem/Wunsch mit meinem "frmNamen". Und zwar sieht der Code dazu folgendermaßen aus:
Private Sub cmbAbbrechen_Click()
Unload Me
End Sub
Private Sub cmbOK_Click()
Dim wks As Worksheet
Dim Zeile As Long
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1.Value = "" Then
MsgBox " Bitte einen Namen auswählen - keine Leerzeile!"
Else
With Worksheets("Bestellungen")
Zeile = .ListObjects(1).DataBodyRange.Row + Me.ComboBox1.ListIndex
.Cells(Zeile, 2).Value = Me.Tag
Unload Me
End With
End If
End Sub
Private Sub ComboBox1_Change()
End Sub
Jetzt habe ich aber in meiner Bezugstabelle nur jede zweite Spalte in Verwendung. Allerdings wird in meinem DropDown- Menü jede Spalte (auch die leeren) angezeigt. Jetzt möchte ich dies gerne so ändern, dass ich nur die ausgefüllten Spalten (jede zweite) im DropDown- Menü angezeigt bekomme und auswählen kann.Dazu würde ich gerne noch wissen, wie ich die Größe, Schriftart, Schriftgröße usw. vom DropDown- Menü anpassen kann?
Vielen Dank schon mal im Voraus für eure Antworten :)
LG
Felix