Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Umbenennen und kopieren von Bildern in Excel

Umbenennen und kopieren von Bildern in Excel
16.05.2017 14:11:54
Bildern
Hallo,
ich möchte Mittels VBA Bilder von Worksheet2 in Worksheet1 kopieren. Dazu müsste ich aber als erstes einmal wissen, wie die Bilder heißen. Wo kann man den Namen eines Bildes ändern? Und mit was für einer Funktion kann man Bilder rüber kopieren?
Ich hoffe mir kann dabei jemand weiterhelfen...

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Umbenennen und kopieren von Bildern in Excel
16.05.2017 17:12:00
Bildern
Hallo!
Ein Beispiel für Dich, unter der Annahme, dass im Blatt 2 ein paar Bilder vorhanden sind:
Sub BilderKopieren()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Tabelle2")
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets("Tabelle1")
Dim pic As Shape
'Bilder-Namen ausgeben
For Each pic In WsQ.Shapes
Debug.Print pic.Name
Next pic
'Bestimmtest Bild kopieren...
WsQ.Shapes("Picture 1").Copy
With WsZ
'..einfügen...
.Paste
'...und im Blatt ausrichten...
With .Shapes(.Shapes.Count)
.Left = WsZ.Range("D5").Left
.Top = WsZ.Range("D5").Top
End With
End With
End Sub
LG
Michael
Anzeige
AW: Umbenennen und kopieren von Bildern in Excel
17.05.2017 15:51:59
Bildern
Super Danke! Was muss ich ändern, wenn ich immer nur ein Bild rüber kopieren möchte, und mit diesem dann das bereits vorhandene ersetzen möche. Also quasi wie bei einer Aktualisierung(neue Maschinendaten werden ausgewählt und bestätigt, dann werden nicht nur die neuen Daten aus Tabelle 2 in Tabelle 1 kopiert sondern auch ein neues Bild anstelle eines alten Bildes). Ist das verständlich?
Außerdem: Im oben reingestellten Code: Wie kann ich da genau die Bildposition ändern? Bei mir funktioniert es nicht
Danke im voraus...
AW: Umbenennen und kopieren von Bildern in Excel
17.05.2017 16:27:13
Bildern
Hallo!
Siehe neu-kommentierter Code:
Sub BilderKopieren()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Tabelle2")
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets("Tabelle1")
Dim pic As Shape
'Bestimmtes Bild in Ziel-Blatt löschen
WsZ.Shapes("Picture 1").Delete
'... oder Bild in Ziel-Blatt löschen
'wenn der Name nicht bekannt ist, aber der Index
'hier: das 1. Bild
WsZ.Shapes(1).Delete
'Bestimmtest Bild kopieren...
WsQ.Shapes("Picture 1").Copy
With WsZ
'..einfügen...
.Paste
'...und im Blatt ausrichten...
'hier: die obere linke Ecke des Bildes wird
'an der oberen linken Ecke der Ziel-Zelle (hier D5)
'ausgerichtet
With .Shapes(.Shapes.Count)
.Left = WsZ.Range("D5").Left
.Top = WsZ.Range("D5").Top
End With
End With
End Sub
Wie kann ich da genau die Bildposition ändern? Bei mir funktioniert es nicht
WAS funktioniert nicht? Was beim Ausrichten in meinem Code passiert steht oben im Code-Kommentar.
Ansonsten ist die Frage, was Du Dir vorstellst beim "Bildposition ändern".
LG
Michael
Anzeige
AW: Umbenennen und kopieren von Bildern in Excel
18.05.2017 11:22:07
Bildern
Also folgendermaßen sieht mein Code zum übertragen der Daten aus, er funktioniert auch wie gewollt. Er ist zwar sehr primitiv aber ich bin auch totaler Anfänger... Bei jedem Datensatz soll nun auch ein bestimmtes Bild mit kopiert werden und ggf. ein altes ersetzen (von Übersicht zu Berechnungstool kopieren.)Leider funktioniert das trotz der Infos im vorherigen Kommentar nicht wie gewollt... Bitte um Support auch wenn ich dumme Fragen stelle.. ;-)
Code:
Public Sub datenanzeigen_click()
Dim x As String
Dim y As String
x = Sheets("Berechnungstool").Range("B3").Value
y = Sheets("Berechnungstool").Range("B4").Value
'----------kopieren von Brot mit C120 ------------------------------
If x = "Brot" And y = "C120" Then
Sheets("Übersicht").Range("B17:B33").Copy
Sheets("Berechnungstool").Range("B11.B27").PasteSpecial xlPasteValues
End If
'----------kopieren von Brot mit C125 -------------------------------
If x = "Brot" And y = "C125" Then
Sheets("Übersicht").Range("C17:C33").Copy
Sheets("Berechnungstool").Range("B11.B27").PasteSpecial xlPasteValues
End If
'---------kopiert von Salt mit C120 -----------------------------------
If x = "Salat" And y = "C120" Then
Sheets("Übersicht").Range("B45:B61").Copy
Sheets("Berechnungstool").Range("B11.B27").PasteSpecial xlPasteValues
End If
'----------kopiert von Salt mit C250 ------------------------------------
If x = "Salat" And y = "C250" Then
Sheets("Übersicht").Range("C45:C61").Copy
Sheets("Berechnungstool").Range("B11.B27").PasteSpecial xlPasteValues
End If
'-----------kopiert von Salt mit C180 ------------------------------------
If x = "Salat" And y = "C180" Then
Sheets("Übersicht").Range("D45:D61").Copy
Sheets("Berechnungstool").Range("B11.B27").PasteSpecial xlPasteValues
End If
End Sub

Anzeige
AW: Zeig mir doch eine kleine Bsp-Mappe...
18.05.2017 12:38:13
Michae
Rainer,
...und gib einmal verbal an, was genau das Makro machen soll (in eigenen Worten das Ziel beschreiben, unabhängig davon ob Dein Code funktioniert und ohne "VBA"-Sprache). Dann schau ich mir das an, und baue das ggf. gleich so ein, wie Du's brauchst; dann musst Du nicht rätseln, wie Bsp-Code anzupassen ist.
LG
Michael
AW: Zeig mir doch eine kleine Bsp-Mappe...
22.05.2017 11:32:42
Rainer
Also das Programm besteht aus 2 Sheets. Im ersten Sheet ("Berechnungstool") kann in 2 Dropdown Fenstern die Maschine konfiguriert werden. Eine getroffene Auswahl im Dropdown Menü wird mit einem "Anzeigen" Button bestätigt und ausgeführt.Je nach Auswahl, werden dann die entsprechenden Daten dargestellt. Zusätzlich zu den Daten, soll je nach gewählter Maschine auch immer ein individuelles Bild angezeigt werden. Außerdem finden einige Berechnungen statt, die sich auch die ausgewählten Daten beziehen. Es wird immer nur ein Datensatz mit Bild dargestellt. Im zweiten Sheet ("Übersicht") werden die Daten aller Maschinen in Form von Tabellen nochmals als Übersicht dargestellt, auch mit dem jeweiligen zugeordneten Bild. Diese Tabellen dienen auch als Datenbasis.
Ist diese Erklärung verständlicher?
Anzeige
AW: Ich wollte eine Bsp-Mappe...
22.05.2017 12:40:46
Michael
...d.h. ich bin dann an dieser Stelle raus.
LG
Michael

303 Forumthreads zu ähnlichen Themen

kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Anzeige
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
als Bild kopieren
Manu

Hallo
die in Excel erstellten Grafiken übernehme ich als Bild in eine ppt. Bisher mache ich Screenshots, schneide unnötiges im Paint weg und speichere es als jpg ab um es als Grafik wieder in ppt zu importieren. Ich bin an Neuem interessiert und bin des jetztigen, m.E. sehr langen und aufwe...
16.12.2008 08:36:00
Thread-ID: 1033184
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
1
2
2
3
6
3
8
1
3
3
2
4
2
3
8
2
9
3
1
2
1
20
8