VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	26.09.2017 10:17:34	Gast54597
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	26.09.2017 13:42:47	Gast30772
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	27.09.2017 08:51:53	Gast54597
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	27.09.2017 08:54:22	Gast54597
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	27.09.2017 09:47:27	Gast30772
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	28.09.2017 09:10:27	Gast54597
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	28.09.2017 12:38:48	Gast30772

Ansicht des Beitrags:

Von:
Gast30772

Datum:
27.09.2017 09:47:27

Views:
610

Rating:

Antwort:

Thema:
Kein Abbruch des Makros falls Hyperlink nicht vorhanden

Code Button >>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ^ öffnet Fesnter wo PASTE

Sub meinBilder_Einfuegen()
'
'
Dim Path As String
Dim Func As String
Dim Form As String
Dim i As Integer
Dim j As Integer

'wegen Test auskommentiert / geändert **********
Rem Path = "XXX\"
Rem Func = ActiveSheet.Name
Rem Form = ".png"
Form = ".jpg"
'***********************************************
'
i = 2
j = 3

While (i < 180) '18 Zeilen
While (j < 6) ' 3 Spalten

    Cells(i, j).Select
'    MsgBox (Cells(i, j).Value) 'Debug

   
On Error Resume Next
   'wegen Test auskommentiert / geändert **********
    Rem ActiveSheet.Pictures.Insert(Path & Cells(i, j).Value & "_" & Func & Form).Select
    '***********************************************
    ActiveSheet.Pictures.Insert(Path & Cells(i, j).Value & Func & Form).Select
  If Err.Number = 0 Then
    Selection.ShapeRange.Height = 283.4645669291
    Selection.ShapeRange.IncrementLeft 10
    Selection.ShapeRange.IncrementTop 8
   End If
On Error GoTo 0
    'End If
    
    j = j + 1
    
Wend

    i = i + 10 'Zeilen immer zu 10. zusammengefasst "Easy Scroling"
    j = 3 'Erste Spalte ist C
Wend


End Sub

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:

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
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	26.09.2017 10:17:34	Gast54597
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	26.09.2017 13:42:47	Gast30772
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	27.09.2017 08:51:53	Gast54597
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	27.09.2017 08:54:22	Gast54597
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	27.09.2017 09:47:27	Gast30772
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	28.09.2017 09:10:27	Gast54597
Kein Abbruch des Makros falls Hyperlink nicht vorhanden	28.09.2017 12:38:48	Gast30772