suche nicht nur nach Zahlen auch Text möglich
21.12.2009 13:40:10
Tino
Hallo,
wenn Du nach Kommazahlen suchen möchtest, muss das Komma durch einen Punkt ersetzt werden.
Möchtest Du nach Text Suchen, muss dieses durch weitere Anführungsstriche erweitert werden.
Private Sub CommandButton1_Click()
Dim strPfad$, strTabelle$, sSuchbereich$, sAusgabe$
Dim strSuchWert$
If TextBox1 <> "" Then
strSuchWert = TextBox1
If IsNumeric(strSuchWert) Then
strSuchWert = Replace(strSuchWert, ",", ".")
Else
strSuchWert = Chr(34) & strSuchWert & Chr(34)
End If
'Datei Pfad
strPfad = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
'Dateipfad und Dateiname ' davor und Dateiname in [...]
strPfad = "'" & strPfad & "[Test.xls]"
'Tabellename am ende mit '!
strTabelle = "Tabelle1" & "'!"
'Ausgabebereich
sAusgabe = Range("A1:B65536").Address(ReferenceStyle:=xlR1C1)
'Suchbereich
sSuchbereich = Range("F1:F65536").Address(ReferenceStyle:=xlR1C1)
On Error Resume Next
'Wert für Textbox2
TextBox2 = ExecuteExcel4Macro( _
"INDEX(" & strPfad & strTabelle & sAusgabe & ",MATCH(" & strSuchWert & "," & strPfad & strTabelle & sSuchbereich & ",0),1)" _
)
If Err.Number <> 0 Then TextBox2 = ""
Err.Clear
'Wert für Textbox3
TextBox3 = ExecuteExcel4Macro( _
"INDEX(" & strPfad & strTabelle & sAusgabe & ",MATCH(" & strSuchWert & "," & strPfad & strTabelle & sSuchbereich & ",0),2)" _
)
If Err.Number <> 0 Then TextBox3 = ""
On Error GoTo 0
Else
TextBox2 = "": TextBox3 = ""
End If
End Sub
Gruß Tino