Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel On Error go to
02.01.2018 10:09:22 Sebastian
NotSolved
02.01.2018 10:50:00 RPP63
NotSolved
02.01.2018 16:03:09 Sebastian
NotSolved
02.01.2018 17:00:03 Holger
*****
Solved
02.01.2018 17:14:09 Sebastian
NotSolved

Ansicht des Beitrags:
Von:
Sebastian		 Datum:
02.01.2018 10:09:22		 Views:
1149		 Rating:
     
Antwort:
  Ja
Thema:
VBA Excel On Error go to

Hallo zusammen und ein frohes Neues!

 

Ich habe ein Excel-Tabellenblatt mit einer Userform, in der ich insgesamt 7 Bilddateien laden möchte. Für die (sich verändernden) Namen, die in Ax4-Ax9 auftauchen gibt es entsprechende Bilddateien mit dem Namen in einem Ordner.

 

?
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
31
32
33
34
35
36
37
38
39
40
41
Private Sub UserForm_initialize()
 With UserForm33
 Dim logo As String
 Dim player1 As String
 
 Dim player2 As String
 
 Dim player3 As String
 
 Dim player4 As String
 
 Dim player5 As String
 
 Dim player6 As String
 
 
logo = Worksheets("VS").Range("B1")
player1 = Worksheets("VS").Range("AX4")
 
player2 = Worksheets("VS").Range("AX5")
 
player3 = Worksheets("VS").Range("AX6")
 
player4 = Worksheets("VS").Range("AX7")
 
player5 = Worksheets("VS").Range("AX8")
 
player6 = Worksheets("VS").Range("AX9")
 
 Image1.Picture = LoadPicture("Dateifpad" & logo & ".jpg")
 Image2.Picture = LoadPicture("Dateifpad" & player1 & ".jpg")
 Image3.Picture = LoadPicture("Dateifpad" & player2 & ".jpg")
 Image4.Picture = LoadPicture("Dateifpad" & player3 & ".jpg")
 Image5.Picture = LoadPicture("Dateifpad" & player4 & ".jpg")
 Image6.Picture = LoadPicture("Dateifpad" & player5 & ".jpg")
 Image7.Picture = LoadPicture("Dateifpad" & player6 & ".jpg")
 
  
  
   End With
End Sub

 

Jetzt passiert es aber, dass ich in den zellen ax4-ax9 ab und zu Namen stehen, für die es keine zugehörige Bilddatei im entsprechenden Ordner gibt. Ich würde dann jedesmal gerne eine Standard-Bilddatei laden, wenn dies der Fall ist. Ich habs jetzt auch schon über On Error go to versucht aber irgendwie lädt er mir dann jedesmal das Bild aus dem Errorverweis.

 

Kann mir vielleicht wer helfen? Vielen Dank schonmal! :)

 

 

Sebastian

 

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 VBA Excel On Error go to
02.01.2018 10:09:22 Sebastian
NotSolved
02.01.2018 10:50:00 RPP63
NotSolved
02.01.2018 16:03:09 Sebastian
NotSolved
02.01.2018 17:00:03 Holger
*****
Solved
02.01.2018 17:14:09 Sebastian
NotSolved