Fehler in Formel
13.11.2006 10:15:04
Uwe
folgende Formel benutzte ich für ein Image auf einem Tabellenblatt zu füllen.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim rngUCase As Range
Set rngUCase = Union(Range("E4:Q63"), Range("B82:P110"))
If Not Intersect(Target, rngUCase) Is Nothing Then
Set Target = Intersect(Target, rngUCase)
Target.Cells(1) = UCase(Target.Cells(1))
End If
If Target.Address = "$E$17" And Target(1).Value <> "" Then
Call WordDokumentEinbetten(Target.Value)
End If
Application.EnableEvents = True
'Sheets(1).Image1.Picture = LoadPicture("C:\BILDER\" & Sheets(1).Cells(800, 3) & ".jpg")
End Sub
...Zelle C800 beinhaltet auch eine Formel.
Soweit bekomm ich das Bild ins Image rein wenn C800 der Bildname drin ist.
Lösche ich jedoch mit einem Button A800 dann bekomm ich den Debugfehler in der Image1 Zeile angezeigt. In C800 steht"=TEIL(B800;21;9)" drin.
Zusätzlich fällt mir auf das die einmal geladenen Bilder in den Image stehen bleiben. Also schön wäre es wenn man beim löschen der Zellen mit dem Button auch die Imageinhalte löschen könnte.
Ber Löschbutton hat folgenden Code...
Private Sub CommandButton22_Click()
With Range("A800:A819")
.ClearContents
'.ClearFormats
'.ClearComments
'.ClearNotes
'.ClearOutline
'.Borders.LineStyle = xlNone
End With
End Sub
vielleicht ist das auch noch wichtig... in A800 steht der Pfad von dem ausgewählen Bild.
Hoffe das ist einigermaßen verständlich. Vieleicht muß man irgendwo einen Löschbefehl für den Imageinhalt einfügen.
Hab da schon einiges aus der Recherche versucht. Hat aber nix geholfen.
Vorab schon mal Dank an Euch.
Gruß Uwe