wieso funktioniert bei meiner sub die überprüfung If Worksheets("Dienstplan").Range("M5").Value <> sTxt Then nicht richtig.
egal ob es gleich ist ober nicht die sub wird immer gleich ausgeführt
Public Sub sicherheit()
Dim sTxt As String * 64
Dim w As Workbook
Call GetComputerName(sTxt, 64)
If Worksheets("Dienstplan").Range("M5").Value = "" Then
'MsgBox ("first use")
Worksheets("Dienstplan").Range("M5").Value = sTxt
Else
If Worksheets("Dienstplan").Range("M5").Value <> sTxt Then
Mldg = "Meldung' Meldung definieren.
Stil = vbOKOnly + vbCritical
Titel = "msg"
Antwort = MsgBox(Mldg, Stil, Titel)
Application.Quit
End If
End If
End Sub
danke jan