Wert suchen in Spalte und wert da neben ausgeben VBA

[michel34497]

Hallo Leute!

Suche mit diesen Code einen Wert aus einer ListBox in einer Tabelle (Funktioniert)
Ich möchte diesen gerne so umbauen, wenn der Code die Zeile gefunden hat soll er den wert daneben auslesen ( Den wert den er auslesen soll steht in der Spalte "E" also 3 spalten rechts davon)
Der ausgelesene Wert soll dann für eine weitere Suchfunktion benutzt werden.

Code:

Private Sub CommandButton1_Click()

Dim i As Integer
Dim vZeile  As Variant
Dim iActSheet As Integer

iActSheet = ActiveSheet.Index
 
 
  If MitArbeiter > "" Then
 
  If ListBox2.List(ListBox2.ListIndex, 1) <> "" Then
     With ThisWorkbook.ActiveSheet
        vZeile = Application.Match(ListBox2.List(ListBox2.ListIndex, 1), .Columns(2), 0)       'Wert aus ListBox in Zeile gefunden
        letztespalte = ActiveSheet.Cells(vZeile, 256).End(xlToLeft).Column

           Cells(vZeile, 7).Select
           ActiveCell.Value = Format(tbDatum.Value, "DD.MM.YYYY") 'tbDatum
           ActiveCell.NumberFormat = "DD.MM.YYYY"
           ActiveCell.Offset(0, 1).Value = MitArbeiter
' Werte aus den beiden Zellen kopieren und ab der Spalte K gleich Zeile einfügen zur Dokumentation
           If Cells(vZeile, 11) = "" Then
                   Cells(vZeile, letztespalte).Offset(0, 2) = ActiveCell
                   Cells(vZeile, letztespalte).Offset(0, 3) = ActiveCell.Offset(0, 1)
               Else
                   Cells(vZeile, letztespalte).Offset(0, 1) = ActiveCell
                   Cells(vZeile, letztespalte).Offset(0, 2) = ActiveCell.Offset(0, 1)
           End If

       End With
  End If
 Else
 
 MsgBox "Kein Name ausgewählt"
 Exit Sub
 
 End If
  Call DatumAk
  Call Zellenfarbe
  Call Seitennamen
 
   AktuellesDatum = Date
WartAus.Frame1.Clear
Call colorC1

ThisWorkbook.Sheets(iActSheet).Activate
  Call suchenSpA

End Sub

Wer kann mir da weiter helfen?
Habe schon im www gesucht aber nichts gefunden.

[Kuwer]

Hallo,

MsgBox Cells(vZeile, 5).Value

Gruß Uwe

[michel34497]

Hallo Uwe!

Danke für die Hilfe!