Hallo Leute,
folgendes Problem:
Habe eine Input-Box um werte einzulesen und mit einer excel-liste abzugleichen.
Statt der Input-Box möchte ich nun eine Dropdown Combobox erstellen, die mir eine möglichkeit für einen neuen sucheintrag erlaubt, aber auch daten aus einer weiteren excel-liste (c:\mapppe2.xlsx) vorgibt.
Aus dem ganzen Code wird später eine standardisierte E-Mail erstellt.
weiterer fehler:
die Else-Abfrage "Der Datensatz existiert nicht!"
will einfach nicht funktionieren.
Anbei der funktionierende Code mit inpubox:
Sub StandardMessage()
Dim MyMessage As Outlook.MailItem
Dim excelwerte As String
Dim objExcel, objWorkbook
Dim kunde As String
Dim kundennummer As Integer
Dim dateischonoffen As Boolean
dateischonoffen = False
kunde = InputBox("Auswahl")
'mein ansatz für die combobox, funktioniert aber nicht ...
'Set objBox = CreateObject("Outlook.Application")
'kunde = objBox.OlkComboBox.DropDown.objExcel.Range("B2:A6")
'öffnen der excel-datei
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("c:\Mappe1.xlsx")
objExcel.Visible = True
'kunde suchen
i = 1
Do While i