Ping eine einzelne Zelle

Question

Hallo Leute, ich habe Probleme mit dem Erstellen einer aktiven Zelle ping und ein Ergebnis ausgeben Ich habe Code, der eine ganze Spalte tut, aber ich möchte eine Schaltfläche erstellen, die nur eine ausgewählte Zelle macht und es funktioniert genauso kann mir bitte jemand helfen? Hier ist mein Code, die ich auf dem Netz im fand nicht sicher, wie es für eine Zelle zu ändern i mehrmals ohne Erfolg versucht haben ...

Function GetPingResult(checkip) 

    Dim objPing As Object 
    Dim STATUS As Object 
    Dim Result1 As String 

    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _ 
     ExecQuery("Select * from Win32_PingStatus Where Address = '" & checkip & "'") 

    For Each objStatus In objPing 
     Select Case objStatus.statuscode 
     Case 0: Result1 = "ONLINE" 
     Case Else: Result1 = "OFFLINE" 
     End Select 
     GetPingResult = Result1 
    Next 

    Set objPing = Nothing 

End Function 

Sub GetIPStatus() 

    Dim Cell As Range 
    Dim IPRANGE As Range 
    Dim Result As String 
    Dim wks As Worksheet 


Set wks = Worksheets("Sheet1") 

Set IPRANGE = wks.Range("B3") 
Set RngEnd = wks.Cells(Rows.Count, IPRANGE.Column).End(xlUp) 
Set IPRANGE = IIf(RngEnd.Row < IPRANGE.Row, IPRANGE, wks.Range(IPRANGE, RngEnd)) 

    For Each Cell In IPRANGE 
    Result = GetPingResult(Cell) 
    Cell.Offset(0, 1) = Result 
    Next Cell 

End Sub 
------------------------------------ 
I tried this: 

Sub PingSelectedCell() 

Dim Cell As String 

ActiveCell.Select 
Cell = GetPingResult(ActiveCell.Value) 

Result = GetPingResult(Cell) 
ActiveCell.Offset(0, 1) = Result 

End Sub 

Aber es gibt gerade offline ständig, was bin ich dabei?

Answer 1

Cell = GetPingResult(ActiveCell.Value) 
Result = GetPingResult(Cell) 

Sie benötigen nur eine Anweisung statt:

Result = GetPingResult(ActiveCell.Value) 

dann danach:

ActiveCell.Offset(0, 1).Value = Result 

Answer 2

Danke so sehr, die perfekt funktionieren!

Sub PingSelectedCell() 

Dim Cell As String 

Result = GetPingResult(ActiveCell.Value) 
ActiveCell.Offset(0, 1).Value = Result 

End Sub