Hallo, ich habe ein Programm geschrieben, in dem ein Bild aus der Zwischenablage eingefügt wird und sich die Größe automatisch anpasst. Über eine If Bedingung prüfe ich, ob der Benutzer nicht einen Text in der Zwischenablage hatte. Um einen Error auszuschließen, falls sich nichts in der Zwischenablage befindet, habe ich einen Error handler eingesetzt, leider Funktioniert dieser nicht. Könnt ihr mir bitte helfen?

Der Code wäre:

On Error GoTo ERRORHANDLER

ActiveSheet.Range("V21").Select
ActiveSheet.Paste
Set Artikel = Selection
Artikel.Name = "Artikel"

If ActiveSheet.Range("V21").Value = "" Then
    Artikel.Width = 210
    Höhe = Artikel.Height
    Breite = Artikel.Width
        If Höhe / Breite > 0.39 Then
            Artikel.Height = 85
            Breite = Artikel.Width
            PositionLinks = Artikel.Left
            Verschiebung = 106.3 - Breite / 2
            Artikel.Left = Verschiebung + PositionLinks
        End If
Else
    If ActiveSheet.Name = "Werkzeugdoku" Then
        ActiveSheet.Range("V21").Clear
        MsgBox "Es war ein Text und kein Bild im Zwischenspeicher!"
    End If
End If

ERRORHANDLER:

If Err <> 0 Then
    MsgBox "Es war kein Bild in der Zwischenspeicher!"
End If

Der Code hängt sich immer bei  Artikel.Width = 210 auf, logischerweise.

Der Errorandler wird einfach außer Kraft gesetzt.

Ich danke euch für Ihre antworten.

Mit freundlichen Grüßen,

Phillip Rockrohr