Hoffentlich lösbare Aufgabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Schönen guten Morgen,

Hier findest du das Beispiel ( funktioniert aber nur mit Textboxen , so zumindest ), wenn du das für die Zellen brauchst, müsste man es evt. umgestalten.
Ob das allerdings so auf die Schnelle machbar ist ???

Vielleicht möchte sich das ja Jemand antun der mehr Zeit hat.
hier ist schon mal die Beispieldatei :

Die Datei https://www.herber.de/bbs/user/1959.xls wurde aus Datenschutzgründen gelöscht

Ps , und noch was , unter dem Betreff sucht später mal " Niemand " mehr in der Recherche. Du solltest den Betreff schon nutzen um dein Thema zu definieren , wäre dann bei dir zB. Suchereigniss... oder so ...

Gruß udo, und viel Spass & Erfolg damit

........................................................................................................................................................................................................................................................................................

Hier mal noch zusätzliche , brauchbare Beispiele von versch. Helfern aus dem Forum , sowie mir selbst , ... viel Erfolg allerseits , Gruß udo

Vokabeltrainer deutsch / englisch - Vokatrain 2.6 Oberstufe ... Update ca. am Jahresende ( von udo " FREEWARE " , EXCEL XP , 2000 , 97 ) *****
https://www.herber.de/bbs/user/1952.zip ( 3.320 Kb )

Arbeitszeiterfassung mit Jahreskalender & Feiertagsübersicht ... Update kommt demnächst ( von udo , EXCEL XP , 2000 ) ***
https://www.herber.de/bbs/user/1834.zip ( 347 Kb )

Datumwert abgleichen / suchen und entspr. Zeilen kopieren in andere Tabellen ( von udo ) **
https://www.herber.de/bbs/user/1920.xls ( 70 Kb )

intelligente Gültigkeit - erweitert sich autom. um neue Einträge in der Gültigkeitsvorgabe ( von Boris ) *****
https://www.herber.de/bbs/user/1953.xls ( 40 Kb )

verschiedenen Beispiele zusammen , mit allen mögl. Formeln ( von Max ) *****
https://www.herber.de/bbs/user/1946.xls ( 300 Kb )

Hajos Excelseite mit tollen Beispielen mit & ohne VBA's ( von Hajo_Zi ) *****
http://home.media-n.de/ziplies/

Bewertungen meinerseits ( ***** sehr z. empfh. Tipp , **** sehr gut , *** gut , ** unspektakulär aber brauchbar ... )

( Anregeungen oder Tipps speziell zu meinen ( udo ) Beispielen gerne an udo-de@web.de )
...

Option Explicit


Private Sub TextBox1_Change()
Dim index As Integer
If TextBox1 = "" Then
TextBox2 = ""
Else
For index = 1 To Range("A65536").End(xlUp).Row
If LCase(Left(Cells(index, 1), Len(TextBox1))) = LCase(TextBox1) Then TextBox2 = Cells(index, 2): Exit For
Next
End If
End Sub

komisch, bei mir ist der CODE nicht geschützt, klicke mal einfach das Tabellenblatt unten im Tabellenregister mit rechtsklick an, und geh auf Code anzeigen ???
Vielleicht kommst so weiter...

Gruß udo

........................................................................................................................................................................................................................................................................................

Hier mal noch zusätzliche , brauchbare Beispiele von versch. Helfern aus dem Forum , sowie mir selbst , ... viel Erfolg allerseits , Gruß udo

Vokabeltrainer deutsch / englisch - Vokatrain 2.6 Oberstufe ... Update ca. am Jahresende ( von udo " FREEWARE " , EXCEL XP , 2000 , 97 ) *****
https://www.herber.de/bbs/user/1952.zip ( 3.320 Kb )

Arbeitszeiterfassung mit Jahreskalender & Feiertagsübersicht ... Update kommt demnächst ( von udo , EXCEL XP , 2000 ) ***
https://www.herber.de/bbs/user/1834.zip ( 347 Kb )

Datumwert abgleichen / suchen und entspr. Zeilen kopieren in andere Tabellen ( von udo ) **
https://www.herber.de/bbs/user/1920.xls ( 70 Kb )

intelligente Gültigkeit - erweitert sich autom. um neue Einträge in der Gültigkeitsvorgabe ( von Boris ) *****
https://www.herber.de/bbs/user/1953.xls ( 40 Kb )

verschiedenen Beispiele zusammen , mit allen mögl. Formeln ( von Max ) *****
https://www.herber.de/bbs/user/1946.xls ( 300 Kb )

Suchen X Einträgen, je nach Eingabe v. Buchstaben ( von ? ) ****

Die Datei https://www.herber.de/bbs/user/1959.xls wurde aus Datenschutzgründen gelöscht

( 44 Kb )

Hajos Excelseite mit tollen Beispielen mit & ohne VBA's ( von Hajo_Zi ) *****
http://home.media-n.de/ziplies/

Bewertungen meinerseits ( ***** sehr z. empfh. Tipp , **** sehr gut , *** gut , ** unspektakulär aber brauchbar ... )

( Anregeungen oder Tipps speziell zu meinen ( udo ) Beispielen gerne an udo-de@web.de )
...

Private Sub TextBox1_Change() Dim index As Integer If TextBox1 = "" Then TextBox2 = "" Else For index = 1 To Range("A65536").End(xlUp).Row If LCase(Left(Cells(index, 1), Len(TextBox1))) = LCase(TextBox1) Then TextBox2 = Cells(index, 2): Exit For Next End If End Sub

Sub TextBox1_Change() TextBox1 = InputBox("Lieferant eingeben:", _ "Lieferanten:") Sheets("lieferanten").Select ' diese Option muss weg Dim index As Integer If TextBox1 = "" Then Textbox2 = "" Else For index = 1 To Sheets("lieferanten").Range("A65536").End(xlUp).Row If LCase(Left(Cells(index, 1), Len(TextBox1))) = LCase(TextBox1) Then Textbox2 = Cells(index, 2): textbox3 = textbox3 + Chr(10) + Textbox2 Next End If MsgBox textbox3 End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread