|
Hallo Zusammen, ich habe ein Problem. Ich möchte mit VBA eine Abfrage machen und möchte die abzufragenden Werte gerne aus einer Spalte einer Excel Tabelle nehmen. Mit der aktuellen Lösung muss ich die Werte händisch in VBA eingeben. Es geht um die Zeile "strBezeichnung1 = Split("Manometer Sieb, Fuehrungslager, Wandfluhkarte, Flachschieber FUH-500-H", ",")"
Liebe Grüße und danke für Eure Hilfe
Anni
Option Explicit
Function FktMehrfachsuche1(strText1 As String, strSuchbegriffe1 As Variant) As Boolean
Dim VarSuchBegriff1 As Variant
For Each VarSuchBegriff1 In strSuchbegriffe1
If InStr(Trim(strText1), Trim(VarSuchBegriff1)) > 0 Then
FktMehrfachsuche1 = True
Exit Function
End If
Next VarSuchBegriff1
FktMehrfachsuche1 = False
End Function
Sub Aufruf1()
Dim strBezeichnung1() As String
Dim rngBereich1 As Range, rngZelle1 As Range
Dim lngZelleMax1 As Long
'#############
strBezeichnung1 = Split("Manometer Sieb, Fuehrungslager, Wandfluhkarte, Flachschieber FUH-500-H", ",")
'##########
With Tabelle3
lngZelleMax1 = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rngBereich1 = .Range("A2:A" & lngZelleMax1)
rngBereich1.Offset(0, 4).Value = ""
For Each rngZelle1 In rngBereich1
If FktMehrfachsuche1(rngZelle1.Value, strBezeichnung1) Then
rngZelle1.Offset(0, 4).Value = "Bestellt"
Else
rngZelle1.Offset(0, 4).Value = "not"
End If
Next rngZelle1
End With
End Sub
|