Sub Makro1()
 
    Dim sPCNr As String
    Dim sMac As String
    Dim bEnde As Boolean
    Dim iZeile As Integer
    Dim iSpalte As Integer
 
    sPCNr = Cells(1, 1)
    iSpalte = 2
    iZeile = 1
    bEnde = False
 
 
    Do
 
        'PcNummer suchen
        If Trim(sPCNr) = Trim(Cells(iZeile, iSpalte)) Then
            sMac = Trim(Cells(iZeile, isplate + 1))
            bEnde = True
        End If 
 
        iZeile = iZeile + 1
 
        'Auf Ende prüfen
        If Trim(Cells(iZeile, iSpalte)) = "" Then
            bEnde = True
        End If
 
    While bEnde = False
 
    If sMac <> "" Then
        Call Shell("Lanstartcmd.exe " & sMac)
    End If
 
End Sub