Hoppla, da hat sich eine Fehler eingeschlichen:
Dim vt
Select Case plog
Case 0 vo = ""
Case 1 vo = "-o "
End Select
Dim vt
Select Case plog
Case 0 vt = ""
Case 1 vt = "-o "
End Select
"vo" muss natürlich "vt" sein
Hoppla, da hat sich eine Fehler eingeschlichen:
Dim vt
Select Case plog
Case 0 vo = ""
Case 1 vo = "-o "
End Select
Dim vt
Select Case plog
Case 0 vt = ""
Case 1 vt = "-o "
End Select
"vo" muss natürlich "vt" sein