Hallo liebe VBA-Gemeinde,
ich versuche folgendes:
If cmd2.Picture = LoadPicture(ThisWorkbook.Path & "\" & "X.jpg") And cmd4.Picture = LoadPicture(ThisWorkbook.Path & "\" & "X.jpg") Then
br = txtBreite - def - def
ElseIf cmd2.Picture = LoadPicture(ThisWorkbook.Path & "\" & "X.jpg") And cmd4.Picture = LoadPicture("") Then
br = txtBreite - def
ElseIf cmd2.Picture = LoadPicture("") And cmd4.Picture = LoadPicture(ThisWorkbook.Path & "\" & "X.jpg") Then
br = txtBreite - def
Else
br = txtBreite
End If
Das funktioniert nicht, habr ihr eine Idee?
LG Lisa
|