Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einfügen und Inhalte Einfügen funktioniert nicht ?

Einfügen und Inhalte Einfügen funktioniert nicht ?
28.11.2006 10:19:14
Thomas
Hallo,
wenn ich das nachsehende Makro in ein Arbeitsblatt einfüge funktioniert "Einfügen und "Inhalte einfügen" nicht mehr.
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pfad As String
On Error Resume Next
Image1.Picture = LoadPicture("c:\keinbild.jpg")
If Not Intersect(Target, Range("b13:c10000")) Is Nothing Then
Pfad = Cells(ActiveCell.Row, 5)
Image1.Visible = True
Image1.Picture = LoadPicture(Pfad)
End If
End Sub

Kann mir einer das erklären ?
Vielen dank !

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfügen und Inhalte Einfügen funktioniert nicht ?
28.11.2006 13:33:25
ChrisL
Hallo Thomas
Ist es möglich folgende Zeile zu löschen resp. ist Image1 nicht immer sichtbar?
Image1.Visible = True
Gruss
Chris
AW: Einfügen und Inhalte Einfügen funktioniert nicht ?
28.11.2006 14:51:04
Thomas
Danke Chris!
Warum habe ich es denn reingeschrieben bin leider son Makroabgucker !
Aber ich bin am lernen !
Thomas
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige