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

AW: Mit Schleife mehrere Grafiken einfügen

fcs

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

299 Forumthreads zu ähnlichen Themen

Einzigartige Werte in Array identifizieren

Sebastian

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...

10.08.2008 21:30:00

Thread-ID: 1000688

2 Beiträge

in einem Range navigieren?

pasya

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<...

12.08.2008 09:58:00

Thread-ID: 1001081

3 Beiträge

Formel über VBA in Range.

Tom

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(...

13.08.2008 11:41:00

Thread-ID: 1001455

4 Beiträge

If...Then... bei verschiedenen Bedingungen?

Vic

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...

13.08.2008 15:00:00

Thread-ID: 1001553

5 Beiträge

In Spalte nach Anzahl eines Begriffs suchen?

Lauren

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
...

19.08.2008 11:08:23

Thread-ID: 1002846

5 Beiträge

Schriftgröße Zelle automatisch an Inhalt anpassen

Peter

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...

21.08.2008 15:04:06

Thread-ID: 1003519

4 Beiträge

Alle verwandten Forumthreads anzeigen

Wert finden und nicht Ziffer

Knifflig - Zeilen einfügen

Range bis zu einer bstimmten Zeile kopieren

Range einer Funktion übergeben

Datum in einem Range Formatieren

Klein.- in Grosschrift ändern

Schleife: Zählen mit 2 Bedingungen

Achsenbeschriftung + Hilfslinie in Diagramm