Hallo zusammen,
ich habe vor in mehreren Spalten zu kontrollieren, ob sich eine leere Zelle befindet. Wenn ja soll eine Msgbox angezeigt werdne und der Sub soll beendet werden. Wenn nicht soll er fortfahren. Allerdings kommt es bei mir zu einer Fehlermeldung "Typen unverträglich". Wo hat sich der Fehler eingeschlichen? End If befindet sich weiter unten.
Sub SendMeetingRequest_2()
Dim Bereich As Range
Set Bereich = Range("F2:H41", "B2:B41") 'Zellbereich
With Application.WorksheetFunction
Dim objOL As Object 'As Outlook.Application
Dim objAppt As Object 'As Outlook.AppointmentItem
'Const olAppointmentItem = 1
Const olMeeting = 1
Dim ReminderTime As Long
Dim lfdnr As Integer
lfdnr = 2
'Überprüfung erstellen falls Aufgaben leer sind
'lfdnr = 4
If Bereich.Value = "" Then
MsgBox "Bitte fehlende Daten eintragen"
Call Leere_zellen_hervorheben
Exit Sub
Else
Danke für eure Hilfe!
