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

Datensuche in ganzer Zeile und Spalte in Listbox

Datensuche in ganzer Zeile und Spalte in Listbox
04.12.2018 18:44:31
Alex
Hätte ein kleines Problem
Habe im Bereich AM1 bis AV1 kostenstellen stehen
in einer UF TB1 Suche ich nach der richtigen Kostenstelle
nun soll wenn Kostenstelle AM1 gefunden wurde AM2 bis AM999 in Listbox stehen
Beispiel
90/1032.00|90/1033.00|90/1034.00
Test1
Test2
Test3
usw
Habe mir hier schon die Suche gebaut
Dim rngFind As Range
If TextBox1.Text = "" Then
MsgBox "Geben Sie bitte einen Suchbegriff ein !", _
vbExclamation, "Hinweis"
Else
Set rngFind = Sheets("Eingabe").Range("AM1:BG1").Find(What:=TextBox1.Text, _
LookAt:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
MsgBox "Dieser Datensatz existiert nicht !", _
vbExclamation, "Hinweis"
rngFind.Value = TextBox1.Text
Danke euch

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensuche in ganzer Zeile und Spalte in Listbox
07.12.2018 10:39:21
Werner
Hallo Alex,
so:
Private Sub CommandButton1_Click()
Dim rngFind As Range, loLetzte As Long
With Worksheets("Eingabe")
If Me.TextBox1.Text = "" Then
MsgBox "Geben Sie bitte einen Suchbegriff ein !", _
vbExclamation, "Hinweis"
Else
Set rngFind = .Range("AM1:BG1").Find(What:=TextBox1.Text, _
LookAt:=xlWhole, LookIn:=xlValues)
If Not rngFind Is Nothing Then
loLetzte = .Cells(.Rows.Count, rngFind.Column).End(xlUp).Row
Me.ListBox1.RowSource = "Eingabe!" & .Range(.Cells(2, rngFind.Column), _
.Cells(loLetzte, rngFind.Column)).Address
Else
MsgBox "Dieser Datensatz existiert nicht !", _
vbExclamation, "Hinweis"
End If
End If
End With
Set rngFind = Nothing
End Sub

Gruß Werner
Anzeige
AW: Datensuche in ganzer Zeile und Spalte in Listbox
09.12.2018 11:08:07
Alex
Hallo Werner
Danke Dir
Habe es gerade eingebaut und es läuft super
Danke nochmals
Gerne u. Danke für die Rückmeldung. o.w.T.
09.12.2018 11:48:36
Werner

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige