Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wert in Tabellenblatt finden

Wert in Tabellenblatt finden
13.01.2021 15:46:01
Dirk
Hallo liebe Experten,
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert in Tabellenblatt finden
13.01.2021 16:21:31
ralf_b
versuch doch mal mit Platzhaltern
Suchbegriff = "?" & Textbox
AW: Wert in Tabellenblatt finden
13.01.2021 16:49:33
Dirk
Vielen Dank, klappt super !!!!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige