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

automatisches Ausführen einer Prozedur

Forumthread: automatisches Ausführen einer Prozedur

automatisches Ausführen einer Prozedur
17.02.2004 19:46:35
Erwin
Hallo Excel-Spezialisten,
ich möchte bei einem Text-Eintrag in B12, dass in B1 ein Bild erscheint. Dank diesem Forum habe ich folgenden Code selbst zusammengebastelt, der auch funktioniert!

Sub bild()
If Range("B12")<> "" Then
Range("B1").Select
LW = "D:\Erwin\"
BildName = "Auto"
BildDatei = LW & BildName & ".jpg"
If Dir(BildDatei)<> "" Then
ActiveSheet.Pictures.Insert(BildDatei).Select
End If
End If
End Sub

Was mir aber einfach nicht gelingen will, ist, dass sich diese Prozedur automatisch ausführt. Also, wenn ich in B12 einen Text eingebe und mit Return abschließe, in B13 bin, soll die Prozedur automatisch ausgeführt und das Bild angzeigt werden!
Vielleicht weiß jemand einen guten Tipp. Wäre sehr dankbar dafür.
Erwin
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisches Ausführen einer Prozedur
17.02.2004 19:47:52
Hajo_Zi
Hallo Erwin
schaue mal auf meine Homepage da ist ein Beispiel, auf der Seite VBA.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: automatisches Ausführen einer Prozedur
17.02.2004 20:01:57
Erwin
Hallo Hajo,
Problem gelöst! Funktioniert einwandfrei.
Danke dir und noch einen schönen Abend
Erwin
AW: automatisches Ausführen einer Prozedur
17.02.2004 19:55:58
Bert
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "B12" Then Exit Sub
If Target <> "" Then
LW = "D:\Erwin\"
BildName = "Auto"
BildDatei = LW & BildName & ".jpg"
If Dir(BildDatei) <> "" Then
ActiveSheet.Pictures.Insert(BildDatei).Select
End If
End If
End Sub

Bert
Anzeige
AW: automatisches Ausführen einer Prozedur
17.02.2004 20:05:03
Erwin
Hallo Bert,
da schinde ich mich stundenlang, dass mir der Kopf raucht und jetzt habe ich auf die Schnelle gleich zwei Lösungen.
Danke dir, klappt auch wunderbar.
Ebenfalls einen schönen Abend wünscht dir
Erwin
;

Beliebteste Forumthreads (12 Monate)

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