Supportnet / Forum / Tabellenkalkulation

ein herzliches hallo an alle ;o) habe mir eine exceltabelle erstellt um meine cd´s, die ich ins mp3 format gewandelt habe, zu verwalten. die dazugehörigen cover habe ich eingescannt und in einem seperaten ordner gespeichert, beschriftet habe ich diese fast so, wie ich sie in die tabelle schreibe. habe vier spalten: COVER / INTERPRET - ALBUM / JAHR / CD-ART beginnend ab zeile 3. ist es nun möglich aus spalte B (INTERPRET - ALBUM) den titel auszulesen, mit dem ordner in dem die covers liegen zu vergleichen und in spalte A (COVER) das zugehörige cover einzufügen (wenn noch keins vorhanden), grösse anzupassen und zu zentrieren per button ? wobei die bilder so gespeichert sind: "666 — amokk (maxi)" aber in der titel der tabelle so geschrieben steht 666 — amokk" habe es mal selber mit aufzeichnen probiert, was natürlich nicht funktioniert, da er mir immer wieder das gleiche cover einfügt: [code]Sub grafik_einfügen() ´ ´ grafik_einfügen Makro ´ Makro am 21.05.2006 von Ponscho aufgezeichnet ´ ´ ActiveSheet.Pictures.Insert( _ "C:\Dokumente und Einstellungen\Master\Eigene Dateien\Eigene Musik\mp3\0--cd covers--0\666 — amokk (maxi).jpg" _ ).Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 57# Selection.ShapeRange.Width = 57# Selection.ShapeRange.Rotation = 0# With Selection .Placement = xlMoveAndSize .PrintObject = True End With Selection.ShapeRange.IncrementLeft 3.75 Selection.ShapeRange.IncrementTop 1.5 End Sub[/code]

sorry, habe vergessen mich im voraus zu bedanken !

internette grüsse
Ponscho

Hallo

Versuch´s ´mal damit:

Option Explicit

Private Sub CommandButton1_Click()
Dim zaehler as long, i%, ct%, cl%
For zaehler = 3 To Range("B65535").End(xlUp).Row
Debug.Print Cells(zaehler, 2)
ct = Cells(zaehler, 1).Top 
cl = Cells(zaehler, 1).Left
With Application.FileSearch
    .NewSearch
    .LookIn = "C:\eigene dateien\eigene bilder"
    .SearchSubFolders = False
    .Filename = Cells(zaehler, 2)
    .TextOrProperty = ""
    .MatchAllWordForms = True
    .FileType = msoFileTypeAllFiles
    If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
  ActiveSheet.Shapes.AddPicture Filename:=.FoundFiles(i), _
  LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
  Left:=cl, Top:=ct, Width:=100, Height:=100
                Next i
    Else
        MsgBox "Nix passendes gefunden."
    End If
End With
Next
End Sub

Gruß

hallo fürLau,

erstmal vielen dank für deine mühe!

habe das makro in ein modul eingefügt, meinen bedürfnissen abgeändert
und den code einer schaltfläche zugewiesen.

funktioniert aber irgendwie nicht, mach ich was verkehrt ?
er zeigt dann auch die info-box "nix gefunden" an die ich mind. 15 mal anklicken muss bis diese verschwindet.

internette grüsse
Ponscho

hi,
Hast Du in der Zeile
.LookIn = "C:\eigene dateien\eigene bilder"
Deinen Datenpfad
"C:\Dokumente und Einstellungen\Master\Eigene Dateien\Eigene Musik\mp3\0--cd covers--0"
eingetragen?
Gruß

hallo fürLau,

ja, habe ich siehe:

Option Explicit

Private Sub CommandButton1_Click()
Dim zaehler As Long, i%, ct%, cl%
For zaehler = 3 To Range("B65535").End(xlUp).Row
Debug.Print Cells(zaehler, 2)
ct = Cells(zaehler, 1).Top
cl = Cells(zaehler, 1).Left
With Application.FileSearch
.NewSearch
.LookIn = "C:\Dokumente und Einstellungen\Master\Eigene Dateien\Eigene Musik\mp3\0--cd covers--0"
.SearchSubFolders = False
.Filename = Cells(zaehler, 2)
.TextOrProperty = ""
.MatchAllWordForms = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ActiveSheet.Shapes.AddPicture Filename:=.FoundFiles(i), _
LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
Left:=cl, Top:=ct, Width:=57, Height:=57
Next i
Else
MsgBox "Nix passendes gefunden."
End If
End With
Next
End Sub

habe ich evtl. vergessen zu erwähnen, dass die covers alle als *.jpg vorliegen ?
wenn ja, tut es mir sehr leid...

internette grüsse
Ponscho

hi,


Grüße (m)Urmel

Hallo

Ich kann mir eigentlich nur vorstellen, daß Du in der Pfadangabe oder dem Dateinamen und der Bezeichnung in Spalte"B" einen Fehler hast.;-)
ist was anderes als
Im ersten chr(151) "—" und im zweiten chr(45) "-"
Gruß

hallo fürLau bzw. (m)Urmel ;o)

verkehrt reingeschrieben kann ich es garnicht haben, da ich den titel von den jeweiligen ordnern kopiert
und in die zeilen eingefügt habe.
was in klammern stand z.b. "(maxi)" habe ich gelöscht und dafür eine seperate spalte erstellt "CD-ART".

internette grüsse
Ponscho

ps: bist du zufällig auch AUGSBURGER PUPPENKISTEN-FAN, wegen Urmel ???

hallo,

habe es jetzt durch rumprobieren doch geschafft, dass es läuft, nur irgendwie nicht richtig.
er legt in jede zelle A, wenn sich in zelle B ein text befindet, meine sämtlichen covers die sich im ordner befinden ab.

internette grüsse
Ponscho

• Makro um eine Grafik auszutauschen
• Suche Fotoalbumsoftware für eigene HP
• Makro zum automatischen Datenimport