Such-makro mit drei Variablen

Hi Excel-Comunity!
Habe folgende Problemchen:
Excel Sheet mit 3 Spalten (A, B und C) und vielen nummern in den Spalten.
Ueber eine Userform mit 4 Textboxen will ich folgendes machen.
Wert aus TB1 wird in Spalte A gesucht,
- wenn Treffer, Vergleich Wert aus TB2 mit Wert aus Spalte B (in der Zeile wo TB1 gefunden wurde, klar).....wenn kein Treffer naechste TB1-Wert in spalte A suchen
- wenn TB2 gleich mit Wert aus Spalte B, dann Vergleich Wert aus TB3 mit Wert aus Spalte C (in der Zeile wo TB1 gefunden wurde)....wenn kein Treffer naechste TB1 und TB2 suchen.
wenn alles zutrifft dann soll Wert aus TB4 in Spalte D (in der Zeile wo TB 1 gefunden wurde) eingetragen werden.
MSGBOXen.
wenn TB1 nicht gefunden, dann MSGBOX "TB1 nicht vorhanden"
wenn nur Wert aus TB1 gefunden wurde, aber nict TB 2 und TB 3
dann MSGBOX "nur TB1 Gefunden, aber nicht TB2 und TB3.
wenn nur Wert aus TB1 und danebenstehend TB2 gefunden wurde, aber nict TB3
dann MSGBOX "nur TB1 und TB2 gefunden, aber nicht TB3.
ich hoffe ich habe halbwegs das Problemchen deutlich gemacht.
PLEASE HELP ME!
Gruss
daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Daniel,
versuchs mal damit:

1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Courier New;}}
{\colortbl ;\red0\green0\blue255;\red0\green0\blue0;\red255\green0\blue255;\red0\green0\blue160;\red192\green192\blue192;}
\viewkind4\uc1d\lang1031\f0\fs19
Private Sub UserForm_Click()
Dim Wahr As Integer
Dim I As Long
Wahr = 0
For I = 1 To Cells(65536, 1).End(xlUp).Row
   If Cells(I, 1) = UserForm1.TB1.Text Then
      If Wahr < 2 Then Wahr = 1
          If Cells(I, 2) = UserForm1.TB2.Text Then
             If Wahr < 3 Then Wahr = 2
               If Cells(I, 3) = UserForm1.TB3.Text Then
                     Wahr = 3
                     Cells(I, 4) = UserForm1.TB4.Text
                      Exit For
               End If
         End If
   End If
Next I
   Select Case Wahr
      Case 0
      MsgBox "TB1 nicht vorhanden"
      Case 1
      MsgBox "nur TB1 Gefunden, aber nicht TB2 und TB3"
      Case 2
      MsgBox " nur TB1 und TB2 gefunden, aber nicht TB3"
      Case 3
      MsgBox "Gefunden"
   End Select
End Sub
'Gruß
'Uwe
'(:o)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Such-makro mit drei Variablen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread