Combobox-DropDownList-DropDownCombo
08.01.2009 21:11:18
Gunter
ich habe in einer Tabelle eine ComboBox. Wenn diese bei der Eigenschaft Style als DropDownCombo ausgewählt ist funktioniert dieser Code:
Private Sub CommandButton1_Click() 'Lieferschein per mail versenden
Dim s As String
Dim t As String
Dim strPath As String
Dim Anwendung As Long
Dim objVBC As Object
Dim AWS As String
s = InputBox("Bitte den Mailempfänger eintragen")
If s = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
On Error GoTo Errorhandler
Anwendung = 6
If Anwendung = 6 Then
With ActiveWorkbook.VBProject
For Each objVBC In .VBComponents
Select Case objVBC.Type
Case 1, 2, 3
.VBComponents.Remove .VBComponents(objVBC.Name)
Case 100
With objVBC.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End If
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das löschen des VBA Codes ist fehlgeschlagen!" & vbCr & _
"Bitte überprüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro VBALöschen!"
End If
Err.Clear
ActiveWorkbook.SaveAs Filename:=Range("C19").Value & " LS vom" & " " & Date & ".xls"
AWS = ActiveWorkbook.FullName
End Sub
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Range("A1").Select
Application.ScreenUpdating = True
End Sub
so wie er soll. Wenn aber die Eigenschaft DropDownList gewählt ist, kommt die Fehlermeldung "Die Select Methode des Range-Objektes konnte nicht ausgeführt werden".
Hier ist noch eine Beispiel-Datei https://www.herber.de/bbs/user/58202.xls.
Ich möchte nach Möglichkeit die Eigenschaft DropDownList nutzen, beim debuggen ist nicht so richtig nachvollziehbar was im einzelnen passiert.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter