Supportnet / Forum / Tabellenkalkulation

Hallo, meine Kenntnisse über VBA sind absolutes Anfängerniveau. Ich mache vieles über die Aufzeichnungsfunktion. Ich wollte mit folgendem Code erreichen: in einer Zelle steht eine Zahl. Diese Zahl steht für den Namen einer Fussballmannschaft. Das Wappen des Vereins ist unter diesem Namen in einem Ordner gespeichert. Nun sollte sich das Makro dieses Wappen holen und in die aktivierte Zelle einfügen. Nur tut er es nicht. Er bleibt beim Pfad hängen. Kann mir da jemand einen Vorschlag machen, wie ich das hinbekomme. Vielen Dank dafür schon eimal. Function Import_Wappen() Dim m As String, nr As String ´m = Variable für den Mannschaftsnamen ´nr = Variable für den Wappencode Range("C2").Select nr = ActiveCell.Value Sheets("Code Mannschaften").Select Range("B2").Select a1: If ActiveCell.Value = nr Then ActiveCell.Offset(0, -1).Select m = ActiveCell.Value Sheets("Spieltag").Select ActiveSheet.Pictures.Insert ( _ "H:\Bundesligatippspiel\Bundesliga\Wappen Germany\1 Bundesliga\" & m & ".jpg") Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 15# Selection.ShapeRange.Width = 33# Selection.ShapeRange.Rotation = 0# Else ActiveCell.Offset(1, 0).Select GoTo a1 End If End Function

hallo audifan,

ich hab´s mal nachvollzogen und m.E. fehlt bei deinem Code in der Zeile


hinter der Klammer ein

bei meiner Tabelle hat´s dann geklappt...

Greetings ;-)

Hallo Coolpix,

vielen Dank. So ein kleines Detail hat gefehlt und mich knapp 1 Stunde Probieren & suchen gekostet.

Danke.

Gruß

• links und rechts Inhalte in einer Tabelle
• VBA-Editor öffnen und schließen