debugfehler
06.11.2006 23:47:25
Uwe
hab da was wo ich auch nicht weiter komme.....
den Code hab ich für mein Tabellenblatt erstellt bekommen...
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.Value <> "" Then
Call WordDokumentEinbetten(Target.Value)
End If
Application.EnableEvents = True
End Sub
....wenn ich nun in die Zellen was rein schreibe wird auch alles groß geschrieben. Lösche ich es wieder aus der Zelle bekomme ich eine Debugfehler in der Zeile.....
If Target.Address = ("$E$17") And Target.Value "" Then
... angezeigt.
Was muß da geändert werden.
Hoffe ich habs einigenmaßen erklären können.
Gruß Uwe