Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auslesen einer Info aus Textbox

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

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

Betreff
Benutzer
Anzeige
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
Anzeige
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
Anzeige
die Mappe wäre hilfreich owT
07.09.2010 19:32:05
Uduuh
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
Anzeige

317 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
*Text* in einer Variable
Thomas

Hallo,
wie kann ich herausfinden ob ein Text in einer Variable enthalten ist?
Beispiel: If variable = *text* Then xxxxx
oder If *text* IsIn variable Then xxxx
Grüße
16.10.2008 12:09:00
Thread-ID: 1016816
8 Beiträge
Variablen in Textfile schreiben, getrennt durch ta
Siggi

Hallo,
ich möchte Variablen mit Hilfe der "writeline" Befehls in eine Textdatei schreiben. Funktioniert soweit auch gut. Leider werden die einzelnen Werte die ich in eine Zeile schreibe direkt aneinander gereiht. Ist es möglich diese durch einen Tabstop zu trennen?
Der folgende Code ist...
31.10.2008 17:56:05
Thread-ID: 1020933
3 Beiträge
OpenText FieldInfo variabler array
Siggi

Hallo zusammen,
ich habe eine Textdatei die ich in Excel auslesen möchte. Zum Import nutze ich momentan die Opentext Methode. Anschließend lese ich die Werte des erzeugten Arbeitsblatts in ein Array ein um dann wiederum bestimmte Werte in eine Textdatei zu schreiben.
Workbooks.OpenText...
14.11.2008 18:56:29
Thread-ID: 1024682
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
4
5
1
3
4
1
7
2
1
22
6
5
3
5
3
1
1
5
3
3
4
4
2
16