Auslesen einer Info aus Textbox

Forumthread: Auslesen einer Info aus Textbox

Karen

Hallo Forum,
ich möchte aus einer Textbox1 eine Information, in diesem Fall einen Namen, auslesen. Diesen möchte ich in der Spalte A einer Tabellenblattes suchen und mir dann in dem Textfeld die Informationen der gesuchten Zeile +1 anzeigen lassen. Hat jemand einen Tip für mich. Ich habe bereits die Sub zum Auslesen der ersten Suchanfrage formuliert:

Private Sub CommandButton6_Click()
Dim liZeile As Integer
Dim test As Integer
liZeile = 3
test = 0
'Datensammlung nach Eintrag überprüfen
Do Until Sheets("Matrix").Range("A" & liZeile) = ""
If Sheets("Matrix").Cells(liZeile, 1) = TextBox1.text Then
'Flag für gefundenen Datensatz
test = liZeile
'Datensatz in das Fenster übernehmen
TextBox2.text = Sheets("Matrix").Cells(liZeile, 2)
TextBox3.text = Sheets("Matrix").Cells(liZeile, 3)
TextBox4.text = Sheets("Matrix").Cells(liZeile, 4)
TextBox5.text = Sheets("Matrix").Cells(liZeile, 5)
TextBox6.text = Sheets("Matrix").Cells(liZeile, 6)
TextBox7.text = Sheets("Matrix").Cells(liZeile, 7)
TextBox8.text = Sheets("Matrix").Cells(liZeile, 8)
TextBox9.text = Sheets("Matrix").Cells(liZeile, 9)
TextBox10.text = Sheets("Matrix").Cells(liZeile, 10)
TextBox11.text = Sheets("Matrix").Cells(liZeile, 11)
TextBox12.text = Sheets("Matrix").Cells(liZeile, 12)
TextBox13.text = Sheets("Matrix").Cells(liZeile, 13)
TextBox14.text = Sheets("Matrix").Cells(liZeile, 14)
TextBox15.text = Sheets("Matrix").Cells(liZeile, 15)
TextBox16.text = Sheets("Matrix").Cells(liZeile, 16)
TextBox17.text = Sheets("Matrix").Cells(liZeile, 17)
liZeile = liZeile + 1
Else
liZeile = liZeile + 1
End If
Loop
If test = 0 Then MsgBox "Keine Daten vorhanden"
End Sub

Vielen Dank für entsprechende Hilfe im Voraus.
Grüße
Karen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Auslesen einer Info aus Textbox

07.09.2010 13:41:07

Rudi

Hallo,
probier das mal so:

Private Sub CommandButton6_Click()
Dim liZeile
Dim iCounter As Integer
With Sheets("Matrix")
liZeile = Application.Match(TextBox1, .Columns(1), 0)
If Not IsError(liZeile) Then
'Datensatz in das Fenster übernehmen
For iCounter = 2 To 17
Controls("TextBox" & iCounter).Text = .Cells(liZeile, iCounter)
Next iCounter
Else
MsgBox "Keine Daten vorhanden"
End If
End With
End Sub

Gruß
Rudi

AW: Auslesen einer Info aus Textbox

07.09.2010 13:53:20

Karen

Hallo Rudi,
vielen Dank für Deine Antwort. Wenn ich die Sub einbinde, zeigt er mir immer nur einen Eintrag an. Erzählt nicht hoch. Ich habe also das Ergebnis wie vorher. Woran mag das liegen?
Grüße
Karen

AW: Auslesen einer Info aus Textbox

07.09.2010 15:16:15

Rudi

Hallo,
was willst du konkret?
Gruß
Rudi

AW: Auslesen einer Info aus Textbox

07.09.2010 15:20:51

Karen

Hallo Rudi,
ich habe eine Liste mit einer Anzahl X Spalten. In der Spalte A steht ein Name, in den anderen Text. Zu einem Namen gibt es mehrere Zeilen immer untereinander. In dem Popup Menue wird in den Textboxen aber in meinem bisherigen Makro nur die erste oder die letzte Zeile der gewählten Person dargestellt. (Die Suche ist nach dem Namen.) Ich hätte gerne durch einen weiteren Button die Möglichkeit, die Zeilen, die zu dieser Personen gehören, durchzublättern. Also eigentlich müßte das Makro die Zeilen doch nur hochzählen, oder? Ich hoffe, meine Ausführung war verständlich?.
Grüße
Karen

die Mappe wäre hilfreich owT

07.09.2010 19:32:05

Uduuh

AW: die Mappe wäre hilfreich owT

08.09.2010 08:13:24

Karen

Hallo, hier die Datei https://www.herber.de/bbs/user/71425.xls . Grüße Karen

AW: die Mappe wäre hilfreich owT

08.09.2010 11:32:18

Rudi

Hallo,
Matrix!A:A muss durchgehend den Namen aufweisen und nach Name sortiert sein.

Dim liZeile As Long
Private Sub CommandButton11_Click()
'nächste Zeile
Dim iCounter As Integer
With Sheets("Matrix")
If .Cells(liZeile + 1, 1) = TextBox1 Then
liZeile = liZeile + 1
'Datensatz in das Fenster übernehmen
For iCounter = 2 To 17
Controls("TextBox" & iCounter).Text = .Cells(liZeile, iCounter)
Next iCounter
Else
MsgBox "Letzte Zeile erreicht"
End If
End With
End Sub
Private Sub CommandButton6_Click()
Dim iCounter As Integer, vntTest
With Sheets("Matrix")
vntTest = Application.Match(TextBox1, .Columns(1), 0)
If Not IsError(vntTest) Then
liZeile = vntTest
'Datensatz in das Fenster übernehmen
For iCounter = 2 To 17
Controls("TextBox" & iCounter).Text = .Cells(liZeile, iCounter)
Next iCounter
Else
MsgBox "Keine Daten vorhanden"
End If
End With
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Forumthread: Auslesen einer Info aus Textbox

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Auslesen einer Info aus Textbox

Forumthread: Auslesen einer Info aus Textbox

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread