Worte per VBA suchen /zurückgeben

Hallo zusammen,
ich habe folgendes "Problem"/ folgende Frage:
in einer Tabelle möchte ich in Spalte "B" eine Bewertung für einen Vorgang abgeben.
Z.B.: Zelle A2= Vorgang1; Bewertung in Zelle B2= gut
A3= Vorgang2; B3= sehr gut
A4= Vorgang3; B4= unbrauchbar
in Zelle B1 soll jetzt die "schlechteste" Bewertung "unbrauchbar" von der VBA-Funktion zurückgegeben werden.
Die Bereiche z.B. B2:B4 sind jedoch variabel, kann auch mal B365:B420 und B425:B431.... heißen und die Zielzelle B1 verhält sich entsprechend - also B364 und B424..... Es soll 3 Bewertungsmöglichkeiten geben. In der fertigen Tabelle wird es später mid. 15 solcher Bereiche auftauchen.
Kann man sowas über über eine VBA-Funktion realisieren, die man über die Zelle B1 aufruft?
Als wenn-dann-abfrage wird das ganze etwas unhandlich.
Vorab vielen Dank,
Gruß Micha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Schlechteste(rVorgang, rBewertung) Dim r As Range Dim s1 As String Dim s2 As String Dim s3 As String Dim sSuch As String Dim lRow As Long s1 = "sehr gut" s2 = "gut" s3 = "unbrauchbar" sSuch = s3 If WorksheetFunction.CountIf(rBewertung, s3) = 0 Then sSuch = s2 If WorksheetFunction.CountIf(rBewertung, s2) = 0 Then sSuch = s1 End If End If lRow = WorksheetFunction.Match(sSuch, rBewertung, False) Schlechteste = WorksheetFunction.Index(rVorgang, lRow) End Function

Hallo Micha,
antwort auf alle deine Fragen: "ja".
Aber ich kenne ja deinen Tabellenaufbau nicht.
Beispiel, du machst eine Tabelle und nennst sie "Listen". Da schreibst du in A1: "sehr gut" usw. Dann so:

with sheets("Listen")
s1 = .range("A1").value
s2 = .range("A2").value
s3 = .range("A3").value
end with

Du könntest auch die Punkte der Liste direkt in der UDF angeben, dann so:
=Schlechteste(A2:A4;B2:B4,"sehr gut";"gut";"unbrauchbar")

Function Schlechteste(rVorgang as range, rBewertung as range, s1 as string, s2 as string, s3 as  _
string)
Dim r As Range
Dim sSuch As String
Dim lRow As Long
sSuch = s3
If WorksheetFunction.CountIf(rBewertung, s3) = 0 Then
sSuch = s2
If WorksheetFunction.CountIf(rBewertung, s2) = 0 Then
sSuch = s1
End If
End If
lRow = WorksheetFunction.Match(sSuch, rBewertung, False)
Schlechteste = WorksheetFunction.Index(rVorgang, lRow)
End Function

Oder oder oder ...
Wenn es spezieller werden soll, hilft vielleicht eine Musterdatei?
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Worte per VBA suchen /zurückgeben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread