ich habe ein Makro (siehe unten) bei dem ich folgende Fehlermeldung bei der Codeposition
If rngStart = "" Then MsgBox("Zelle wurde nicht ausgewählt. Das Makro wird beendet", vbOKCancel, "Makro wird beendet") = vbCancel
bekomme.Fehler beim Kompilieren:
Funktionsaufruf auf der linken Seite der Zuweisung muss Variant oder Object zurückgeben
Da ich VBA Anfänger bin und dieses Problem mit der Hilfe auch nicht lösen konnte, bitte ich euch um Hilfe.
Danke!
Bert
Sub Kontakt_DS_Kopieren()
Dim rngStart As Range
Dim rngZiel As Range
' Makrofehler ignoreren und autom. mit nächstem Makroschritt fortfahren
' od. z.B.: Bei Abbrechen der InputBox für die Zellauswahl (siehe weiter unten) durch drücken des Button "Abbrechen" wird das Makro beendet
On Error Resume Next
' Makros im VBA-Editor Tabelle1 (Kunde) nicht durchlaufen
Application.EnableEvents = False
' Auswahlbox für: Zelle in gewünschter Kopierzeile auswählen
Set rngStart = Application.InputBox("Irgend eine Zelle in der gewünschten Kopierzeile auswählen", "Zellauswahl", , Type:=8)
' Wenn in die Input Box nichts eingegeben wird --> Wert = "" dann wird das Makro beendet.
If rngStart = "" Then MsgBox("Zelle wurde nicht ausgewählt. Das Makro wird beendet.", vbOKCancel, "Makro wird beendet") = vbCancel
' Wenn die Input Box mit der Schaltfläche "Abbrechen" --> Wert = "Falsch" abgebrochen wird, dann wird das Makro beendet.
If rngStart = "Falsch" Then Exit Sub
End Sub