Hoffentlich lösbare Aufgabe

Forumthread: Hoffentlich lösbare Aufgabe

14.11.2003 09:04:29

Atikar

Hallo Leute,

ich habe folgende Aufgabenstellung, in einer Exceldatei sind in einer Spalte Lieferanten untereinander geschrieben.
In einer Anderen Exceldatei soll ein gesuchter Lieferant der Liste eingetragen werden.

z.B. mann tippt in die Zelle wo der Lieferant sein soll den Anfangsbuchstaben, danach bekommt man eine Auswahl der Lieferanten die mit diesem beginnen, tippt man den zweiten Buchstaben ein reduziert sich die Zahl bis man aus der Auswahl einen ausgewählt hat.

ist so was möglich?

ciao

Atikar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hab dir was beigehängt ....

14.11.2003 09:25:09

udo

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 )
...

AW: hab dir was beigehängt ....

14.11.2003 09:38:38

Atikar

Hallo Udo mit der Datei 1958 könnte ich mein Problem in den Griff bekommen, leider ist der Macro Code geschützt, und somit kann ich nicht damit arbeiten.

ciao

Atikar

hier der CODE

14.11.2003 09:52:50

udo

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 )
...

AW: hier der CODE

14.11.2003 10:42:18

Atikar

Hallo Udo,

Danke für deine Hilfe, mittlerweile bin ich schon einen Schritt weiter, aber wie kann ich ihm sagen das er die daten in einem anderen Tabellenblatt sucht?


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

ciao

Atikar

hab mal schnell was gebastelt...

14.11.2003 10:44:48

Lutz

schau mal hier:

https://www.herber.de/bbs/user/1966.xls

Gruß Lutz

AW: hab mal schnell was gebastelt...

14.11.2003 11:50:08

Atikar

Hallo Udo,

mein Excel hängt sich sofort auf wenn ich auch nur 1 Buchstaben in das Feld einfüge.

Ciao

Atikar

Box mit Listendaten

14.11.2003 12:21:32

atikar

Hallo Udo,

https://www.herber.de/bbs/user/1971.xls

schaust du dir mal meine Datei an, ich wollte den sheets select rausmachen, aber dann bringt er kein ergebnis

ciao

atikar

AW: Box mit Listendaten

15.11.2003 12:47:22

udo

du solltest noch kurz den vb code posten , den du der datei hinterlegt hast, sonst kann man sich die VBA#s ja nicht ansehn, und das ganz zu " Cracken " , dazu hab ich keine Zeit.

Vielleicht fällt mir noch was auf , ...
Gruß udo

AW: Box mit Listendaten

17.11.2003 09:25:34

Atikar

Hallo Udo,

tut mir leid, ich wusste nicht das das macro mit einem schutz versehen ist.

mit dem befehl sheets springe ich auf das andere blatt wenn ich das nicht mache kommt kein ergebnis raus, ich möchte den befehl aber nicht dort stehen haben.

vielleicht kannst du ja helfen.

ciao

Atikar

hier ist das macro


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

AW: hab mal schnell was gebastelt...

14.11.2003 12:24:21

Lutz

stimmt, im Excel9.0 funzt es...ich schau mal, ob ich den Fehler finde...

Gruß Lutz

Beliebteste Forumthreads (12 Monate)

Forumthread: Hoffentlich lösbare Aufgabe

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

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread