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
576to580
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
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild in 10 Tabellenblättern gleichzeitig einfügen

Bild in 10 Tabellenblättern gleichzeitig einfügen
25.02.2005 23:15:30
Peter
Hallo Forum,
habe ein Problem mit Bildern, komm einfach nicht mehr weiter.
Ich hoffe hier kann mir jemand helfen.
Habe 3 verschiedene Bilder jedes Bild ist in einem Tabellenblatt untergebracht, wenn in Tabelle 1 in "A1" Bild 1 steht muss das Bild 1 in 10 Tabellenblättern eingefügt werden immer wenn möglich in "B1",
wenn in Tabelle 1 in "A1" Bild 2 steht soll das gleiche mit Bild 2 geschehen,
und nochmal das gleiche mit Bild 3
kann man da irgendwie eine schleife Programmiern dass das ganze makro nicht ausartet?
Bedanke mich für eure Hilfe

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild in 10 Tabellenblättern gleichzeitig einfü
26.02.2005 00:14:12
Josef
Hallo Peter!
Wie heist das Blatt in dem sich die Bilder befinden?
Sind die zehn Tabellen alle Blätter der Mappe (ausser dem mit den Bildern),
oder sind noch andere Tabellen vorhanden in denen die Bilder nicht eingefügt
werden sollen?
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Bild in 10 Tabellenblättern gleichzeitig einfü
26.02.2005 00:38:20
Josef
Hallo Peter!
Mal als Anfang!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim shp As Shape, wks As Worksheet
'nur bei Eingabe in A!
If Target.Address = "$A$1" Then
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
'Name des Blattes mit den Bildern anpassen!
Sheets("Bilder").Shapes(Target.Text).Copy
On Error Resume Next
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> "Bilder" Then
'vorheriges Bild löschen
wks.Shapes("PIC_" & wks.Name).Delete
wks.Paste
Set shp = wks.Shapes(wks.Shapes.Count)
shp.Name = "PIC_" & wks.Name
shp.Top = wks.[B1].Top
shp.Left = wks.[B1].Left
Set shp = Nothing
End If
Next
End If
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Bild in 10 Tabellenblättern gleichzeitig einfü
26.02.2005 07:09:50
Peter
Hallo Sepp,
Die Blätter mit den Bildern heißen "Bild 1", "Bild 2" und "Bild 3",
nein in der Mappe gibt es noch mehr Blätter, insgesamt 17. Es sind noch andere vorhanden,
in dennen die Bilder nicht eingefügt werden,
werde jezt mal deinen Code ausprobieren
gruß Peter
AW: Bild in 10 Tabellenblättern gleichzeitig einfü
26.02.2005 12:48:19
Peter
Hallo Sepp,
irgendwie zeigt der code keine Reaktion, habe ihn in den Tabellencode von Tabelle1 eingefügt.
Sheets("Bilder").Shapes(Target.Text).Copy
muss ich hier bei (target.text) meinen bildnamen eingeben der kopiert werden soll?
oder reicht das schon wenn ich das Tabellenblatt angegeben habe.
Anzeige
AW: Bild in 10 Tabellenblättern gleichzeitig einfü
26.02.2005 13:49:36
Josef
Hallo Peter!
So einfach ist das nicht!
1. Ich würde die Bilder in einer Tabelle zusammenfassen ("Bilder"),
und die Bilder benennen (Bild 1, Bild 2, Bild 3).
2. Wie unterscheiden sich die Tabellen in denen das Bild eingefügt werden soll,
von denen in die es nicht eingefügt werden soll?
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Bild in 10 Tabellenblättern gleichzeitig einfü
26.02.2005 16:41:46
peter
danke für für die antwort,
ja die Bilder kann ich in einer Tabelle zusammenfassen, besser gesagt habe ich schon gemacht,
in den 10 Tabellenblättern wo die Bilder eingefügt werden sollen ist immer von A1 bis I7
kein Inhalt in den Zellen, vielleicht kann man so eine If bedingung schreiben, in den Anderen Tabellenblättern steht in den oberen Zeilen Text bzw. Formeln.
Ich hoff du hilft mir weiter,
danke für deine mühe schon mal im vorraus
Anzeige
AW: Bild in 10 Tabellenblättern gleichzeitig einfü
26.02.2005 17:05:36
Josef
Hallo Peter!
Die Tabelle mit den Bildern heist "Bilder" !
Der Code gehört in die Tabelle in der du in "A1" den Bildnamen eingibst!

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim shp As Shape, wks As Worksheet
'nur bei Eingabe in A1!
If Target.Address = "$A$1" Then
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
'Name des Blattes mit den Bildern anpassen!
Sheets("Bilder").Shapes(Target.Text).Copy
On Error Resume Next
'alle Tabellen durchlaufen
For Each wks In ThisWorkbook.Worksheets
'wenn Tabellenname <> "Bilder" und keine Einträge im Bereich "A1:I7" dann
If wks.Name <> "Bilder" And Application.CountA(wks.Range("A1:I7")) = 0 Then
'vorheriges Bild löschen
wks.Shapes("PIC_" & wks.Name).Delete
'Bild einfügen
wks.Paste
'Bild benennen und ausrichten (in Zelle "B1")
Set shp = wks.Shapes(wks.Shapes.Count)
shp.Name = "PIC_" & wks.Name
shp.Top = wks.[B1].Top
shp.Left = wks.[B1].Left
Set shp = Nothing
End If
Next
End If
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Bild in 10 Tabellenblättern gleichzeitig einfü
26.02.2005 21:00:27
simon
Hallo Sepp,
Hab den code in der tabelle eingebaut, der zeigt aber überhaupt keine Reaktion, habe die On error funktion deaktiviert, es kommt keine Fehlermeldung also gar nichts, an was könnte es liegen, die Tabellennamen habe ich angepasst, die bilder sind Richtig benannt, alle in einer Tabelle
AW: Bild in 10 Tabellenblättern gleichzeitig einfü
27.02.2005 00:07:08
Josef
Hallo Peter oder Simon?
Entweder du hast den Code an den falschen Ort kopiert, oder
du hast die Makros deaktiviert!
Kannst du die Datei hochladen?
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
@Josef: Mal ne Nachfrage
27.02.2005 16:31:19
Peter
Servus,
Wollte mal ne Nachfrage zu nem ähnlichen Thema stellen ohne nen neuen Tread aufzumachen, vieleicht kannst du mir mal wieder helfen.
Wie müsste ich den Code umschreiben wenn ich statt in a1:a7 in a8:ae8 den namen der Bilder hätte und diese bereits deklarierten Bilder ("z.B. Nebel") nur in Tabelle1 in die Zeile a6:ae6 (jeweils ein Bild - es gibt 7 varianten von Bildern) einfügen möchte. Von einem CommandButton aus.
Danke
MfG
Anzeige
AW: @Josef: Mal ne Nachfrage
27.02.2005 16:59:27
Josef
Hallo Reter!
In "A8:AE8" stehen die Bildnamen und für jedes Bild ein Button, oder wie meinst du das?
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: @Josef: Mal ne Nachfrage
27.02.2005 17:53:00
Peter
Servus,
Ich lad dir mal ne Beispieldatei hoch.
In dem Userform1 sollte bei Klicken auf den CommandButton die Bilder für den entsprechenden Tag, automatisch in die für den Tag vorgesehenen Zellen kopiert werden.
z.b. 01.03.05 / wolkig / Bild wolkig in A6 - wenns geht eben von a6 bis ae6 gleichzeitig bei einmaligen drücken des command buttons.
https://www.herber.de/bbs/user/18904.xls
Danke
Anzeige
Mal wieder ist mein Haupt geneigt....
27.02.2005 18:42:56
Peter
... Danke, Danke, Danke !!!!
Ich bastel weiter, wenn ich wieder aufrecht steh ;)
Servus Peter

178 Forumthreads zu ähnlichen Themen

Wechselbild in der Tabelle
WalterK

Hallo,
die angehängte Tabelle habe ich in der Recherche gefunden, mittels VBA wird ein Wechselbild gesteuert.
2 Fragen hätte ich dazu:
1.) Ich möchte 2 andere Bilder einfügen, wie kann ich diese dann mit dem Makro ansprechen, muss ich den Bildern Namen geben ....?
2.) Das Makro...
18.09.2008 19:50:12
Thread-ID: 1010845
9 Beiträge
Anzeige
Hintergrundbild in Excel-Tabelle
Lonni

Hallo,
kann mir jemand sagen, ob es möglich ist ein Bild (Grafikdatei) als Hintergrund in einer Excel-Tabelle einzufügen?
Dass es bei Diagrammen geht, weiss ich, jedoch hätte ich gerne ein Bild als Tabellenhintergrund.
Danke für Antworten!
Gruß Lonni
27.03.2009 18:28:11
Thread-ID: 1064723
5 Beiträge
Bilder einfügen ander Tabelle Formel Reaktion
Karel

Hallo Exelianer,
Habe untestehende Code zum bilder einfügen von Hajo's Seite.
meine Frage:
- wie kan ich Bilder einfugen wobei die Bildernamen in ein andere tabelle liegen (Tabelle1) bereich A8:A100
- bildname komen in Zelle Set RaBereich = Range("A10,C10,E10,G10") Tabelle (bild...
11.06.2009 20:52:07
Thread-ID: 1080841
8 Beiträge
Anzeige
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Bild in Zellverbund einfügen
Markus

Hallo,
füge ich ein Bild (Einfügen Graphik) in einen Zellverbund (verbunde Zellen von A3 bis R13 ein,
so wird das Bild zwar eingefügt ....
aber die Grösse passt sich nicht dem Zellverbund an (Bild meistens zu gross);
es wird zudem nicht eingemittet (der Zellverbund wurde vorher...
29.10.2009 16:19:45
Thread-ID: 1113103
4 Beiträge
userform in tabellenblatt einfügen
Fredy

Hallo alle
Ich versuche schon seit langem eine Datenbank zu erstellen was bis hier auch gut Klappt
Nun komme in nicht mehr weiter weil ich null Ahnung von VBA Habe
In der Vorlage TM2Rapport Datenbank habe ich ein UserForm Erstellt das ich über ein Makro auf rufen kann
Nun kom...
30.10.2009 09:40:59
Thread-ID: 1113242
9 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Bild in Excel einfügen und Formel hinterlegen
Susanne

Hallo,
mache mal ein neues Thema auf, da es sich auch nicht mehr direkt um das vorige handelt.
Mein Problem:
Kann man ein Logo (Bild) mit einer Formel hinterlegen, damit ich wenn der Kunde xy ist, das Logo ausblende?
Also in der Kopfzeile kann ich keine Formel hinterlegen, oder...
26.04.2010 14:28:36
Thread-ID: 1153845
11 Beiträge

Links zu Excel-Dialogen

CommandButton UserForm

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
8
1
4
7
6
3
3
8
4
10
2
9
2
3
2
2
5
2
6
5
2
6
3
10
24