Suchen und übergeben von Werten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Suchen und übergeben von Werten
von: Oliver
Geschrieben am: 04.07.2002 - 08:59:18

Ein Wert einer textbox (zahlen und buchstaben) sollen in einer excel tabelle gesucht werden. da ich diesen wert (artikelnummer) nicht benötige, sondern den wert in der zelle daneben (beschreibung), muss ich in die zelle des benötigten wert springen. diese zelle möchte ich kopoeren und in eine andere textbox einfügen.

nach oben   nach unten

Re: Suchen und übergeben von Werten
von: Timo
Geschrieben am: 04.07.2002 - 09:04:26


Sub Suchen()
Dim i as Integer

i=1
Do
   If Cells(i, 1).Value = TextBox1.Value Then
       TextBox2.Value = Cells(i, 2).Value
   End If
   i = i + 1 
Loop Until Cells(i, 1).Value = ""

End Sub

Durchsucht Spalte A nach der Nummer, wenn gefunden wird der Inhalt von der nebenanliegenden Zelle (Spalte B) in Textbox2 geschrieben.

Nur mal so als Tip: Es macht sich nicht schlecht, wenn man "Hallo" schreibt und nicht nur einen Arbeitsauftrag ins Forum klatscht...

Gruss
Timo

nach oben   nach unten

Re: Suchen und übergeben von Werten
von: Oliver
Geschrieben am: 04.07.2002 - 09:17:36

HALLO Timo,

Daaaaaaaanke!!;-)


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Suchen und übergeben von Werten"