ich habe hier im Forum eine Funktion verwendet um den aktuellen Computernamen auszulesen. Je nachdem auf welchem Computer eine bestimmte datei ausgeführt und gespeichert wir soll eine Sicherungskopie angelegt werden. Leider funktioniert die Bedingung nicht sondern es wird egal wie der Computername lautet eine Sicherungskopie angelegt. Auch wenn der Computername in Anführungszeichen geschrieben wird.
Code in diese Arbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Bisulfitafüllung").Delete
Call GetComputerName(sTxt, 64)
Const Originalpfad = "D:\Bisulfit Abfüllung\"
Const Sicherungspfad = "C:\temp\"
If sTxt = Laptop Then
Dim Dateiname
Dateiname = ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Originalpfad & Dateiname
ActiveWorkbook.SaveAs Filename:=Sicherungspfad & Dateiname
Application.DisplayAlerts = True
End If
End Sub
Code in Modul
Declare Function GetComputerName& Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lbbuffer As String, nsize As Long)
Sub CptName()
Dim sTxt As String * 64
Call GetComputerName(sTxt, 64)
MsgBox sTxt
End Sub
Kann mir jemand erklären wo der Fehler liegt
Mit freundlichem Gruß
Michael