AW: Suchfeldfunktionen in Excel Feld?
17.02.2005 10:43:23
Florian
Hallo,
also prinzipiell läuft es so, dass Du in den Zellen A1:IV2 Eingaben tätigen kannst. Das können sowohl Zahlen, als auch Texte sein. Die Suchfunktion (das Formular) öffnet sich durch Klick auf den Button "Suche". In die Textbox musst Du einen Suchbegriff eingeben. Nach dem Klick auf den Button "Suchen" durchsucht das Makro den Bereich A1:IV2 auf den in der Textbox eingegebenen Wert. Wenn ein Wert/Werte gefunden werden, wird dies durch eine MessageBox angezeigt. Wenn nicht, kommt ebenfalls eine MessageBox, die Dir mitteilt, dass nichts gefunden wurde. Weiterhin ist es so, dass Du bei gefundenen Werten die Möglichkeit hast die Zellen anzeigen zu lassen. Die hierbei verwendeten Codes sind:
Private Sub CommandButton1_Click()
Dim varValue As Variant
Dim varBasic As Variant
Dim intValue As Integer
If TextBox1.Value = "" Then
intValue = MsgBox("Sie müssen einen Suchbegriff eingeben...!", vbInformation + vbOKOnly, "Suchfunktion")
GoTo ErrorHandler
Else
ComboBox1.Clear
Sheets("Tabelle1").Activate
For m = 1 To Columns.Count
varValue = ActiveSheet.Columns(m).Rows("1").Text
varBasic = TextBox1.Value
If varValue = varBasic Then
ActiveSheet.Columns(m).Rows("1").Activate
ComboBox1.AddItem ActiveCell.Address
End If
Next m
For n = 1 To Columns.Count
varValue = ActiveSheet.Columns(n).Rows("2").Text
varBasic = TextBox1.Value
If varValue = varBasic Then
ActiveSheet.Columns(n).Rows("2").Activate
ComboBox1.AddItem ActiveCell.Address
End If
Next n
End If
Sheets("Tabelle1").Range("A1").Activate
If ComboBox1.ListCount = 0 Then
intValue = MsgBox("Es wurde keine Übereinstimmung für " & "'" & TextBox1.Value & "'" & " gefunden.", vbInformation + vbOKOnly, "Suchfunktion")
TextBox1.Value = ""
Else
CommandButton3.Visible = True
intValue = MsgBox("Es wurden " & ComboBox1.ListCount & " Elemente mit dem Begriff " & "'" & TextBox1.Value & "'" & " gefunden.", vbInformation + vbOKOnly, "Suchfunktion")
End If
ErrorHandler:
Sheets("Tabelle1").Range("A1").Activate
End Sub
----------------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
TextBox1.Value = ""
ComboBox1.Clear
CommandButton3.Visible = False
UserForm2.Hide
Sheets("Tabelle1").Range("A1").Activate
End Sub
----------------------------------------------------------------------------------------
Private Sub CommandButton3_Click()
Dim intValue As Integer
If ComboBox1.Value = "" Then
intValue = MsgBox("Sie müssen eine Zelle aus der Liste wählen.", vbInformation + vbOKOnly, "Suchfunktion")
Else
Sheets("Tabelle1").Range(ComboBox1.Value).Activate
End If
End Sub
Bei weiteren Fragen einfach melden...