Hallo allerseits,
kleines Problem bei der Weitergabe eines Wertes.
Beim Öffnen einer Mappe läuft das erste Makro durch und
findet definitiv einen Wert = Arr_Temp(i, 4)
For i = 1 To UBound(Arr_Temp, 1)
If UCase(Environ("USERNAME")) = Arr_Temp(i, 1) Then
' Sachbearbeiter = Arr_Temp(i, 4)
ThisWorkbook.Sheets("Dat").Cells(2, 4).Value = Arr_Temp(i, 4)
DoEvents
Exit Sub
End If
Next i
Diesen Wert lasse ich mit weiteren Angaben in eine txt schreiben (2.Makro)
Open SERVER & PFAD_PROG_FEHLER & _
"Intern " & Format(Now, "ddmmyyyy hhmmss ") & ".txt" For Output As #1
Print #1, "Datum: " & Format(Now, "dd.mm.yyyy, hh:mm")
Print #1, "User: " & Environ("USERNAME")
Print #1, "Karte: " & Application.UserName
Print #1, "Name: " & ThisWorkbook.Sheets("Dat").Cells(2, 4)
' Print #1, "Name: " & Sachbearbeiter
Print #1, "IP: " & GetIPs()
Print #1, ""
Close #1
Nur, mal taucht Print #1, "Name: " & ... mit einem Wert auf und mal nicht.
Ich habe es auch schon mit einer globalen Variablen versucht,
mit doevents an allen möglichen Stellen, Ergebnis ist immer gleich wie
beschrieben.
Hat jemand eine Idee, warum der Wert so launisch ist ?
Gruß, Ingo