Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grafik in mehrere Blätter mit Schleife einfügen

Forumthread: Grafik in mehrere Blätter mit Schleife einfügen

Grafik in mehrere Blätter mit Schleife einfügen
24.03.2016 22:46:29
MB12
Hallo zusammen,
ich muss immer wieder verschiedene Makros über einen Teil meiner Blätter laufen lassen.
Inzwischen habe ich dafür die Blatt Codes so abgeändert, dass immer die identisch aufgebauten Blätter mit dem gleichen Code beginnen, z.B.
(Name) Name
Kd01 (Budget)
Kd02 (AG)
Kd11 (BO)
also nicht lückenlos aufsteigend.
Wie kopiere ich mit diesem Code eine Grafik in alle Blätter ein, die mit "Kd" beginnen anstatt in "neu_Test"?
Sub Bild_einfügen()
Sheets("Bilder").Select
Range("A12:F23").Copy
Sheets("Neu_Test").Select
Range("C5").Select
ActiveSheet.Paste
End Sub
Entschuldigung für die vielen "selects"
Schon jetzt herzlichen Dank
Margarete

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Grafik in mehrere Blätter mit Schleife einfügen
25.03.2016 00:10:29
Werner
Hallo Margarete,
meinst du so?
Sub Bild_einfügen()
Dim blatt As Worksheet
For Each blatt In ActiveWorkbook.Sheets
If blatt.Name Like "Kd*" Then
Sheets("Bilder").Range("A12:F23").Copy blatt.Range("C5")
End If
Next blatt
Application.CutCopyMode = False
End Sub
Gruß Werner

Anzeige
funktioniert nicht wegen Umbenennung
25.03.2016 08:11:39
MB12
Hallo Werner,
genau so würde es funktionieren (habe es getestet), wenn ich nicht die Blatt-Codes (nicht die Blatt-Namen, die völlig unterschiedlich sind und auch bleiben müssen)im Eigenschaftsfenster umbenannt hätte, um Blattgruppen zu definieren.
Trotzdem schon mal herzlichen Dank, auch diesen Code werde ich in anderen Dateien häufig einsetzen können.
Jetzt brauche ich nur noch eine Anpassung auf die Codes.
Eine Beispieldatei füge ich bei:
https://www.herber.de/bbs/user/104603.xlsm
Erfolgreiche Ostereiersuche und beste Grüße
Margarete

Anzeige
Funktioniert >>> If blatt.CodeName Like ... owT
25.03.2016 09:02:33
Michael

das Leben kann sooo einfach sein - DANKE
25.03.2016 09:07:14
MB12
Danke schön an beide!!!
Margarete

Gell? :-) Frohes Osterwochenende, owT
25.03.2016 09:12:02
Michael

Anzeige
AW: Danke für die Rückmeldung u. frohe Ostern
25.03.2016 13:13:59
Werner
;

Forumthreads zu verwandten Themen

Excel Grafiken in Word kopieren
niefl

Hi,
eine Freundin schreibt gerade eine Arbeit in Word. Sie verwendet sehr viele Excel Diagramme und Tabellen. Sie verwenden "kopieren" (in Excel) und "Inhalte einfügen" / "als Bild (Erweiterte Metadatei)" um Diagramme in das Word-Dokument zu integrieren. Leider ist das Ergebnis nicht perfek...
09.11.2008 19:19:03
Thread-ID: 1023105
2 Beiträge
Grafik in Kopfzeile gelöscht; wie wieder einfügen?
abdipost

Hallo zusammen,
habe aus einem Tabellenblatt in einer Excel-Mappe die Grafik aus der Kopfzeile gelöscht.
Die Grafik habe ich nicht als Datei vorliegen.
Wie bekomme ich die wieder rein?
In den anderen Tabellenblättern ist sie noch enthalten.
Danke für Eure Hilfe
16.06.2009 15:36:17
Thread-ID: 1081936
9 Beiträge
Anzeige
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
per vba textfelder mit text einfügen
Sascha

hallo an alle...
bei folgendem problem komm ich grad nich weiter...
in tabelle1 von A2:A16 wird eine Liste mit Namen (Maria, Anton, ...) erzeugt. (Anzahl der Namen immer Unterschiedlich)
jetzt würd ich gern in tabelle2 per vba, textfelder einfügen lassen in denen der name drinn steh...
09.05.2011 11:49:22
Thread-ID: 1213608
5 Beiträge
Anzeige
Grafik mit Bedingung Einfügen - Erstellungsdatum
Paulo

Hallo Freunde,
Mein Anliegen ist es ein Bild oder eine Grafik mit der Bedingung diese nur einzufügen wenn der bspw. Erstellungsdatum der Datei mit dem in einer Zelle vorgegeben datum zutrifft.
Wenn der Erstellungsdatum gleich ist wie in der Zelle fügt er das Bild ein Sonst nicht.
De...
26.09.2011 18:06:07
Thread-ID: 1231525
4 Beiträge
zahlen aus excel in wordtabelle farbig einfügen
preusbep

hallo ich würde gerne zahlen die ich aus excel lese in eine wordtabelle farbig einfügen. Leider werden die Zahlen nicht farbig sondern bleiben schwarz !
Danke für die Hilfe Sub farbe3() Dim Farbe(1 To 3, 1 To 1) As Single Set Word = CreateObject("word.Application") For i = 1 To 3 Farbe(i, 1...
27.09.2011 15:29:42
Thread-ID: 1231690
4 Beiträge
Anzeige
Markierten Bereich aus Excel in Word einfügen
Peter

Hallo liebes Forum,
ich möchte einen zusammenhängenden markierten Bereich aus Excel per Makro in ein existierendes Worddokument einfügen.
Einzelne Teile habe ich mir per Makrorekorder oder aus Archiv zusammengbastelt:
Selection.Copy
Pfad = ThisWorkbook.Path & "\Dokument1.doc...
18.11.2011 19:43:13
Thread-ID: 1238451
3 Beiträge
Tabelle in word einfügen
Carle

Ahoi!
Ich möchte eine Excel-Tabelle in ein Word-Dok einfügen. Dabei ging ich zuletzt wie folgt vor: Excel-Bereich markieren, kopieren, Wechsel in Word-Dok, Bearbeiten, Inhalte einfügen, Option Verknüpfung einfügen, MS Office Excel-Arbeitsblatt-Objekt, ok. Es erscheint jedoch nur ein grauer...
31.01.2012 14:19:35
Thread-ID: 1248650
2 Beiträge
HTML Tabelle als Grafik in E-Mail einfügen
steffen

Hallo!
ich habe folgendes Problem und hoffe ich finde hier helle Köpfe die mit weiterhelfen :-)
Ich erstelle autom. eine E-Mail: Dim objOutlook As New Outlook.Application Dim ObjMessage As MailItem Set ObjMessage = objOutlook.CreateItem(olMailItem) With ObjMessage .BodyFormat = 1 .HTML...
05.09.2012 13:22:36
Thread-ID: 1277492
3 Beiträge
Excel Grafiken verlinken ins Word
ste

Guten Abend
Im Excel generierte Grafiken verlinke ich mittels Einfügen - Verknüpfung einfügen - Microsoft Excel-Diagramm Objekt in ein Word Dokument. Anschliessend passe ich die Grösse der Grafiken an.
Was mir nun laufend passiert ist, dass sich die Grössen der Grafiken im Word Dokument...
13.12.2012 18:44:57
Thread-ID: 1290778
2 Beiträge
Excel Tabelle in Word einfügen, Laufzeitfehler 594
Stephan

Hallo zusammen,
ich habe via VBA in Excel eine Tabelle kopiert und versuche, diese mit der VBA-Anweisung in Word:
Selection.PasteExcelTable False, False, False
in ein Worddokument zu integrieren. Allerdings wird gar nix eingefügt. Wollte gern die Formatierungen aus Excel beibehalten...
18.01.2013 10:43:54
Thread-ID: 1294916
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige