Thema Datum  Von Nutzer Rating
Antwort
Rot Error handler geht nicht
 25.04.2017 08:42:43 Phillip
Solved
25.04.2017 15:28:30 Gast93460
NotSolved
26.04.2017 11:16:53 Phillip
NotSolved

Ansicht des Beitrags:
Von:
Phillip		 Datum:
25.04.2017 08:42:43		 Views:
1139		 Rating:
     
Antwort:
 Nein
Thema:
Error handler geht nicht

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Error handler geht nicht
 25.04.2017 08:42:43 Phillip
Solved
25.04.2017 15:28:30 Gast93460
NotSolved
26.04.2017 11:16:53 Phillip
NotSolved