Public Sub cmdOeffnen_Click()
    fOeffne(fZeileSuchen(lbListe.Value, wsDatAuftrag), 0, 0)
End Sub

Public Function fZeilenCount(wsWorksheet As Worksheet) As Integer
    fZeilenCount = wsWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
End Function
 
Public Function fZeileSuchen(stSuchbegriff As String, wsWorksheet As Worksheet) _
  As Integer
    ' Zeile mit dem Inhalt stSuchbegriff in der ersten Zeile suchen
    Dim i As Integer
    Dim iZeile As Integer
 
    For i = 2 To fZeilenCount(wsWorksheet)
        If wsWorksheet.Cells(1, i) = stSuchbegriff Then
            iZeile = i
        Else
            iZeile = 0
        End If
    Next
 
    fZeileSuchen = iZeile
 
End Function
 
Public Sub fOeffne(iZeile As Integer, iArt As Integer, iRechte As Integer)
    'iZeile zu öffnende Zeile
    'iArt 0 = Auftrag / 1 = MuB / 2 = Adresse
    'iRechte 0 = Lesen 1 = Schreiben
    MsgBox ("LOL. iZeile: " + iZeile.ToString + ", iArt: " + iArt.ToString + "," & _
      "iRechte: " + iRechte.ToString)
End Sub