VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: BK	Datum: 08.11.2009 15:55:45	Views: 757	Rating:	Antwort:
Thema: Aw:Suchfunktion
Nehmen wir an, deine 3 Sheets sind WS_1, WS_2 und WS_3: Dim i As Integer Do while (WS_1.Range("A" & Cstr(i)).Value <> "" 'solange in der Zeile überhaupt ein Wert steht if WS_1.Range("A" & Cstr(i)).Value = [dein gesuchter Wert] Then 'hier schreibst du dann rein, wo es hingespeichert werden soll 'denk dran, dass beim reinschreiben auch jeweils die variable 'i stehen muss, sonst überschreibst du immer wieder die _selbe zeile end if loop Das ganze funktioniert dann wie ein kleines Suchprogramm, das einfahc die ganze Liste runterarbeitet und und sich das entsprechende "rauspickt". hoffe ich habe geholfen, auch wenn die frage schon seit ein paar tagen steht.

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen