Verschiedene Werte suchen (immer nur einen)

Computer: Software & Programmierung Office Software
1

Hallo.

Ich habe in Tabelle1 eine Liste, wo ich einen bestimmten Wert suchen lassen möchte (In der Tabelle 1 ändern sich die Werte des öffteren).

Ich möchte zb. das mir VBA nach „Gewicht“ sucht, und wenn er das Wort gefunden hat, mir die Spalte ausgibt.
Sollte der Wert Gewicht nicht vorhanden sein, soll er mir nach „Gesammtgewicht“ suchen, und mir dann die Spalte ausgeben.
Sollte auch dieser Wert nicht vorhanden sein, soll er mir nach „KG“ oder danach nach „BrutoGewicht“ suchen.
Sollte keines der Werte vorhanden sein, soll nur der Hinweiß kommen, Nicht verfügbar.

Wie stelle ich das an?

Ich danke euch

2

Ich möchte zb. das mir VBA nach „Gewicht“ sucht, und wenn er
das Wort gefunden hat, mir die Spalte ausgibt.
Sollte der Wert Gewicht nicht vorhanden sein, soll er mir nach
„Gesammtgewicht“ suchen, und mir dann die Spalte ausgeben.
Sollte auch dieser Wert nicht vorhanden sein, soll er mir nach
„KG“ oder danach nach „BrutoGewicht“ suchen.
Sollte keines der Werte vorhanden sein, soll nur der Hinweiß
kommen, Nicht verfügbar.

Hallo Anton,

Sub Suche()
Dim Worte, W As Byte, Mldg As String, Zelle As Range
Worte = Array("Gewicht", "Gesamtgewicht", "KG", "Bruttogewicht")
Mldg = "Nicht gefunden"
For W = 0 To UBound(Worte)
 If Application.CountIf(ActiveSheet.UsedRange, Worte(W)) \> 0 Then
 Set Zelle = ActiveSheet.UsedRange.Find(Worte(W))
 Mldg = Worte(W) & " gefunden in Spalte " & Zelle.Column
 Exit For
 End If
Next W
MsgBox Mldg
End Sub

Gruß
Reinhard