Wert in Tabellenblatt finden
13.01.2021 15:46:01
Dirk
ich hoffe Ihr könnt mir weiter helfen. Mit VBA möchte ich aus einer Tabelle mit ca. 10.000 Einträgen einen bestimmten Wert suchen. Alle Werte bestehen aus 17 Zeichen (Fahrgestellnummern). Kein Problem bei kompletter Eingabe. Als Suchfunktion sollen aber nur die letzten 8 Zeichen dienen, kriege das aber leider nicht ohne Hilfe hin. HIer mein funktionierender Code bei Eingabe der kompletten 17 Zeichen :
Private Sub CommandButton1_Click()
Dim raZelle As Range
Dim strSuchbegriff As Variant
Dim wsTabele As Worksheet
Dim loTabelle As Long
Dim lngVorhanden As Long
Dim LW As String
Dim Pfad As String
Dim Datei As String
LW = ThisWorkbook.Sheets("Settings").Range("A2").Value
Pfad = ThisWorkbook.Sheets("Settings").Range("B2").Value
Datei = ThisWorkbook.Sheets("Settings").Range("C2").Value
Workbooks.Open LW & (":\") & Pfad & ("\") & Datei
strSuchbegriff = Me.TextBox1.Value
For loTabelle = 1 To Worksheets.Count
With Worksheets(loTabelle).Columns(1)
Set raZelle = .Find(strSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)
If Not raZelle Is Nothing Then
Application.GoTo _
reference:=Worksheets(Worksheets(loTabelle).Name).Range(raZelle.Address)
Exit For
Else
lngVorhanden = lngVorhanden + 1
End If
End With
Next loTabelle
If lngVorhanden = Worksheets.Count Then GoTo fehler
With UFEnVKV
.Label1000.Caption = ActiveCell.Offset(0, 0).Value
.Label111.Caption = ActiveCell.Offset(0, 1).Value
.Label112.Caption = ActiveCell.Offset(0, 2).Value
.Label113.Caption = ActiveCell.Offset(0, 3).Value
.Label114.Caption = ActiveCell.Offset(0, 4).Value
.Label116.Caption = ActiveCell.Offset(0, 5).Value
.Label120.Caption = ActiveCell.Offset(0, 6).Value
.Label121.Caption = ActiveCell.Offset(0, 7).Value
.Label123.Caption = ActiveCell.Offset(0, 8).Value
.Label124.Caption = ActiveCell.Offset(0, 9).Value
.Label125.Caption = ActiveCell.Offset(0, 10).Value
.Label115.Caption = ActiveCell.Offset(0, 11).Value
.Label122.Caption = ActiveCell.Offset(0, 12).Value
.Label118.Caption = ActiveCell.Offset(0, 13).Value
.Label119.Caption = ActiveCell.Offset(0, 14).Value
End With
Workbooks(Datei).Close
Unload UFFIN
Load UFEnVKV
UFEnVKV.Show
Me.TextBox1.Value = ""
Exit Sub
fehler:
MsgBox "Die Fahrgestell-Nummer " & _
TextBox1.Value & " konnte nicht gefunden werden !"
TextBox1.Value = ""
Workbooks(Datei).Close
End Sub