02.12.2016, 22:10
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.
Wer kann mir da weiter helfen?
Habe schon im www gesucht aber nichts gefunden.
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 SubWer kann mir da weiter helfen?
Habe schon im www gesucht aber nichts gefunden.