@Tino - Code Typen unverträglich?
09.02.2009 12:45:00
Alex
wenn du dich erinnerst, du schriebst mir diesen Code (der bei mir zu Hause einwandfrei lief):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sUser As String, sFormel As String, sName
Dim rZelle As Range
'ich würde diesen verwenden, angemeldeter Username
sUser = Environ$("USERNAME")
'Zelle
Set rZelle = Sheets("Bearbeiternachweis").Range(Target.Address)
'Sverweisformel
sFormel = "VLOOKUP(""" & sUser & """,'Z:\EHu_1\Etraining\Basisdaten\[Basis.xls]Tabelle1'!R5C11: _
R200C14,4,FALSE)"
'Name lesen
sName = ExecuteExcel4Macro(sFormel)
'Name in Zelle schreiben
rZelle = IIf(IsError(sName), sUser & " - " & Date, sName & " - " & Date)
End Sub
Auf Arbeit meldet mir XL "Typen unverträglich, Laufzeitfehler 13" und markiert diesen Teil:
rZelle = IIf(IsError(sName), sUser & " - " & Date, sName & " - " & Date)
was kann das sein?
Danke
Alex
Anzeige