Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit Schleife mehrere Grafiken einfügen

Mit Schleife mehrere Grafiken einfügen
Joachim
Hi,
ich habe auf einem Sheet ("BILDER") 4 Grafiken.
auf meinem Datensheet ("Daten") möchte ich in der Spalte T eine schleife starten, die folgendes mache soll:
Wenn in der Spalte E "Baum" steht, soll aus dem Tabellenblatt "Bilder" die Grafik "Picture7" kopiert und im Sheet "Daten" in der gleichen Zeile in der Spalte T eingefügt werden.
Wenn in der Spalte E "Auto" steht, soll aus dem Tabellenblatt "Bilder" die Grafik "Picture9" kopiert und im Sheet "Daten" in der gleichen Zeile in der Spalte T eingefügt werden.
So soll Zeile für Zeile durchgearbeitet werden.
Wie mache ich das mit einem Makro
Dank Euch
Gruss
Joachim

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mit Schleife mehrere Grafiken einfügen
17.11.2009 14:38:52
fcs
Hallo Joachim,
das nachfolgende Makro erledigt diesne Kopiervorgang.
Gruß
Franz
Sub BilderCopy()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim objShape As Shape, Zeile As Long
Set wksZiel = Worksheets("DATEN")
Set wksQuelle = Worksheets("BILDER")
With wksZiel
'Zeilen mit daten in Spalte E abarbeiten
For Zeile = 1 To .Cells(.Rows.Count, 5).End(xlUp).Row
'Bild gemäß Wert in Zelle in Spalte E (5) festlegen
Select Case .Cells(Zeile, 5).Value
Case "Baum"
Set objShape = wksQuelle.Shapes("Picture7")
Case "Auto"
Set objShape = wksQuelle.Shapes("Picture9")
Case Else
'do nothing
Set objShape = Nothing
End Select
If Not objShape Is Nothing Then
'Bild kopieren
objShape.Copy
.Paste
'Bild positionieren in Spalte T (20)
Set objShape = .Shapes(.Shapes.Count)
With .Cells(Zeile, 20)
objShape.Top = .Top
objShape.Left = .Left
End With
End If
Next
End With
End Sub

Anzeige

299 Forumthreads zu ähnlichen Themen


Hallo Experten,
ich habe eine Frage, die vermutlich recht leicht zu lösen sein sollte:
Ich habe eine sehr lange Liste, in der in Spalte A Produktnummern stehen, viele kommen auch mehrfach vor. Ich möchte gerne daraus in einem neuen Tabellenblatt eine Liste erstellen, in der jede verschi...

Hallo zusammen,
wie kann man in einem Range navigieren? Z.b. ich habe Zeilen mit dem Autofilter gefiltert und möchte jetzt auf bestimmte Werte bestimmter Spalten zugreifen.
.Cells(row, 1).Value = wkstArtikeln.UsedRange.Columns("$A:$A").SpecialCells(xlCellTypeVisible).Offset(1, 0).Value<...

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige