Bei dieser Variante bekomme..
20.01.2003 12:49:57
JuergenS
ich folgenden Fehlercode:"Fehler beim Kombilieren.
Nach End Sub, End Funktion oder End Property koennen nur
Kommentare srehen"
So sieht der Code bei mir aus, was ist falsch?
Private Sub CommandButton4_Click()
Dim BName As String
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Sub Benutzerfilter()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
BName = Left(Buffer, BuffLen - 1)
If BName <> "Jürgen" Then Exit Sub
ThisWorkbook.SendMail _
Recipients:="Jurgen.Soodmann@t-online.de", _
Subject:="Excel-Tabelle"
End Sub
Danke fuer die Muehe.
Gruss Juergen