Hallo,
ich habe folgendes programmiert:
Sub Auto_open()
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveSheet.OnDoubleClick = "Remote"
End Sub
Sub Remote()
Dim Aufruf
Dim Client$, Sel$, Befehl$
ActiveCell.Select
Client$ = ActiveCell
Sel$ = Left(ActiveWindow.RangeSelection.Address, 2)
If Sel$ = "$A" And Client$ <> "" Then
Befehl$ = "C:\Programme\UltraVNC\vncviewer " & Client$ & " -password bla"
Aufruf = Shell(Befehl$, 1)
End If
Auto_open
End Sub
Die oben gezeigte Lösung bekam ich nicht zum Laufen.
Gruß
willinero
