Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar. Persönliche Empfehlungen
FindNext(rngFound) Loop Until dress(0, 0) = strFirstAddress End With End Sub Private Sub ListBox1_DblClick(ByVal Cancel As turnBoolean) If stIndex >= 0 Then () Cancel = True Verfasst am: 12. Dez 2007, 13:49 Rufname: Ja das sieht schon gut aus, nur jetzt wird ja in der ListBox1 die Zeilenadresse ("A1") angeszeigt. Kann man das jetzt noch so machen das dann die gesamte Zeile drin steht? Also nicht die gesamte Zeile, nur alle eingetragenen Werte der Zeile!? Verfasst am: 12. Dez 2007, 13:52 Rufname: und wofr ist die Checkbox? Kann man die nicht weglassen? Ich habe in jeder Zeilen "LINK" stehen auf dem ein Hyperlink zu einer anderen Excellisten gesetzt ist. Geht das, dass wenn man auf eine der Zeilen der ListBox1 klickt, dass man dann diesem Hyperlink folgt? Verfasst am: 12. Dez 2007, 13:55 Rufname: Bernd sowas? (stCount - 1, 1) = Private Sub UserForm_Initialize() lumnCount = 2 undColumn = 1 lumnWidths = "0, 150" Verfasst am: 12. Excel vba suchen und in listbox anzeigen auf. Dez 2007, 14:04 Rufname: Ja! Jetzt fehlt mir nur noch das Folgen des Hyperlinks.
Feb 2012, 13:47 Rufname: Zitat: vArr = ("A6:J99") Von A-J sind ja auch nur 10 Spalten.
Selected(i) Then txt = (i) '** Eintragen der gewählten Einträge auf Tabellenblatt (lngCnt, 8) = txt '** Zeilenzähler erhöhen lngCnt = lngCnt + 1 End If Next End With End Sub Die gewählten Einträge werden in diesem Beispiel ab Zelle H4 in den Ausgabebereich geschrieben, siehe Abbildung. In diesem Beispiel wurden in der Listbox die Einträge B, D und F ausgewählt. Dementsprechend werden nach einem Klick auf die Schaltfläche Auswahl auslesen im Ausgabebereich ab Zelle H4 diese gewählten Einträge eingetragen. Excel vba suchen und in listbox anzeigen word. Die Inhalte, welche in der Listbox angezeigt werden sollen, befinden sich im Eingabebereich B4:B16 und werden über die Eigenschaft ListFillRange übergeben. Unter dem folgenden Link können Sie sich die Beispieldatei herunterladen und die Funktion entsprechend selbst nachvollzliehen. Drucken E-Mail
B. ein Schlüssel- "wort" dazu. Realisieren könntest du es z. mit Contains(). Und es gibt ein tolles TextBox Event, nennt sich, TextChanged, dadrinnen kannste das ganze ablaufen lassen Ich guck mal ob ich selber so etwas realisieren kann. Excel vba suchen und in listbox anzeigen 2016. Ist also nur eine Vermutung, das es so funktionieren könnte. Hänge die Daten an ein BindingSource und verwende die Filter-Eigenschaft des BindingSources im TextChanged-Event, um die Daten zu filtern. naja ich habs im textchanged probiert mit For i As Integer = - 1 To 0 Step -1 If Not (i)ntains() Then (i) End If Next aber das resultat ist, dass er den jeweils getippten buchstaben durforstet der verbleibenden items mach es besser so wie xtts02 beschrieben hat hab noch nie mit bindingsource gearbeitet, aber werde mich wies aussieht in die richtung mal schlau machen =) danke erstmal Es gibt noch eine elegante Methode für Textboxen zur Autovervollständigung. Du kannst nämlich eine Liste übergeben (tocompletesource). Der Rest geht weitgehend automatischisch.
Bsp. : ich suche nach dem Wort "Haus" In der Suchspalte stehen folgende Begriffe: Haus Haustür Hauswand Hausaufgaben Jetzt werden alle 4 Begriffe in der Listbox angezeigt. Wie muss ich meinen VBA-Code abändern, damit nur der gesuchte Wert angezeigt wird und nicht alle Werte, in denen Teile des gesuchten Wertes vorhanden sind? Gross- und Kleinschreibung sollten allerdings keine Rolle spielen. Begriff in ListBox suchen. Ich hoffe, ihr könnt mir helfen. Vielen Dank und eine schönes Restwochenende... Gruß Timo Betrifft: AW: Wert suchen und in Listbox ausgeben von: Hajo_Zi Geschrieben am: 01. 2011 10:34:26 Hallo Timo If LCase(Cells(lng, 1))= LCase(TextBox1) Then von: Josef Ehrensberger Geschrieben am: 01. 2011 10:46:02 Hallo Timo, probiers so. Sub suchen() Dim rng As Range Dim strFirst As String With Sheets( "Tabelle1") Set rng = ( "A2:A" &)(What:=TextBox1, LookIn:=xlValues, _ LookAt:=xlWhole, MatchCase:=False, (, 1)) If Not rng Is Nothing Then strFirst = dress Do dItem (stCount - 1, 1) = (0, 1) (stCount - 1, 2) = (0, 2) (stCount - 1, 3) = Set rng = ( "A2:A" &).
Ich habe dieses Makro auch fast nahtlos bernommen. Allerdings gibt es ein Problem, wo ich nicht weiterkomme. Wenn ich nun die gefundenen Eintrge in der Listbox anklicke, mchte ich gerne einen Teil des Ergebnis in 4 Textboxen anzeigen lassen. Wenn ich nur ein Tabellenblatt auswhle, klappt das auch, aber wie funktioniert es, wenn die Suche ber alle Tabellenbltter geht? Hier die Zeilen, die mit einem festgelegten Tabellenblatt funktioniren: Code: With ListBox1 If. ListCount = 0 Then Exit Sub If (. ListIndex, 0) = "Kein Eintrag! " Then Exit Sub lngR = CLng((. ListIndex, 9)) For IntC = 1 To 4 ' Anzahl der Textfelder die ausgefllt werden Controls("TextBox" & IntC) = Sheets("Tabelle1")(lngR, IntC + 2) Danke schn im Vorraus! Wie kann ich einen Excel-VBA-Code in SSRS mit Variablen analog nutzen?. Klaus End With