Variable Pfadangabe
16.03.2016 20:15:41
Tobias
wie so viele habe auch ich schon einige Stunden mit der Suche verbracht und habe doch keine Lösung für mein Problem gefunden...
Für Folgendes Problem bräuchte ich Hilfe.
Mittels eines Makros sollen Bilder von der Fastplatte meines PC's in excel kopiert werden. Hierzu steht der Name des Bildes welches eingefügt werden soll in einer x-beliebigen Spalte, nach welcher zu beginn gefragt wird. Die Bilder sollen dann jeweils den Bezeichnungen zugeordnet werden und in der spalte A eingefügt werden. Mit dem Makro welches ich geschrieben habe (ich weiss es ist sicherlich nicht elegant. aber es erfüllt für mich als blutigen Anfänger seinen Zweck...) funktioniert das auch ganz gut, solange der Name des Bildes und der Zellinhalt zu welchem das Bild zugeordnet werden soll übereinstimmen. Und genau jetzt ist der Punkt erreicht an welchem ich nicht mehr weiter komme...die Bilder auf der Festplatte stimmen in Ihren Bezeichnungen zwar teilweise mit den Zellinhalten überein, eine vollständige Übereinstimmung ist aber nicht immer gewährleistet...Wie kann ich es nun relisiere, dass das Bild auch bei einer teilweisen Übereinstimmung zugeordnet wird? Ich bräcuhte ja wahrscheinlich eine Anweisung welche bspw. bewirkt, dass auch bei teilweiser Übereinstimmung zugeordnet wird. Also wird dies wahrscheinlich in irgeneiner Weise mit Platzhaltern und Variablen realisiert...aber wie? Kann mir bitte jemand meinen angefügten Code soweit umschreiben/ergänzen, dass dies gewährleistet ist und ich es als Anfänger noch nachvollziehen und daraus lernen kann?
Sub Bild_einfügen()
Dim Dat As String
Dim Zelle As Range
Dim ScaleA As Double
Dim shpBild As Shape
Dim stx As String
Dim i As Integer
Dim Zeilenanzahl As Integer
Dim Bildname As String
Dim Pfad As String
Dim stxPfad As String
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.RowHeight = 69
Columns("A:A").Select
Selection.ColumnWidth = 16
stx = InputBox("In welcher Spalte steht der Name des Bildes?")
Zeilenanzahl = ActiveSheet.UsedRange.Rows.Count
For i = 1 To Zeilenanzahl
Bildname = ActiveSheet.Cells(i, stx).Value
Pfad = "C:\Users\Administrator\Pictures\Saved Pictures\"
stxPfad = Dir("C:\Users\Administrator\Pictures\Saved Pictures\*" & Bildname & "*.jpg")
If stxPfad "" Then
Set Zelle = ActiveSheet.Cells(i, 1)
Zelle.Select
ActiveSheet.Pictures.Insert ("C:\Users\Administrator\Pictures\Saved Pictures\" & Bildname & ". _
_
jpg")
Else
End If
Next i
For Each shpBild In ActiveSheet.Shapes
With shpBild
.Height = Application.CentimetersToPoints(3)
.Width = Application.CentimetersToPoints(2.5)
End With
Next
End
Sub