Office: (Office 365) Excel VBA Problem create button

Hallo liebe Community,

ich hoffe ihr könnt helfen, bin am verzweifeln und kann den Fehler einfach nicht finden.

Wir haben eine aufwendig gestallte Excel Liste, wo wir unter anderem Button generieren und über die bestimmte Informationen an bestimmte E-Mail Verteiler gesendet werden.

Nun ist mein Problem, dass wir seit einiger Zeit die Buttons nicht generieren können aufgrund einer Fehlermeldung, diese lautet:

Laufzeitfehler '13'
Typen unverträglich

Über debbugen wird mir im VBA folgendes angestrichen (siehe Spoiler rot markierter Bereich).

Spoiler: Create Button

Sub CreateButton()

Dim RowNumber As Long, sht As Worksheet
Dim c As Range

Set sht = ActiveSheet

RowNumber = CLng(Split(Application.Caller, "_")(1))

Set c = sht.Cells(RowNumber, "F")

If c.Value = vbNullString Then
c.Value = "User: " & Application.UserName & vbNewLine & "Date: " & Date

If Date <= ActiveSheet.Cells(RowNumber, "E").Value Then
c.Font.Color = RGB(1, 125, 33)
c.Interior.Color = RGB(0, 255, 127)
Else
c.Font.Color = vbRed
c.Interior.Color = RGB(255, 204, 204)
End If
Else
c.Value = vbNullString
c.Interior.ColorIndex = 2
c.Font.Color = vbBlack
End If

End Sub

Hoffe mit diesen Informationen könnt ihr mir ggf. schon einen Hinweis geben.

Vielen Dank und lieben Gruß
Psy

 

Hi,

hat der Code jemals funktioniert? M.E. muss man es so lösen:

Code:

RowNumber = CLng(Split(sht.Shapes(Application.Caller).Name, "_")(1))

Falls es nicht der Name sondern die Aufschrift ist, musst du .Name durch .AlternativeText ersetzen.

---