Suchfunktion in Schleife einbauen

Daniel · 2020-05-07T11:12:16+00:00

Hallo liebe community, ich möchte ganz gerne in einer Tabelle nach mehreren bestimmten Schlagwörtern suchen und falls es die gibt, dann soll in der nächsten Spalte nach Zahlen kontrolliert werden. Ein kleines Beispiel: Es soll geschaut werden ob in der Tabelle das Wort "Apfel" enthalten ist, wenn nicht dann soll nach dem Wort "Birne" geschaut werden. Wenn das Wort "Apfel" vorhanden ist (Beispielsweise in D145, dann soll in E145 geschaut werden ob die Zahl 1,2 oder 5 enthalten ist. Set rng = ActiveSheet.Range("A1:K1500").Find("Apfel") If rng Is Nothing Then Exit Sub End If Den o.g. Code habe ich schon gefunden, muss den aber jetzt noch erweitern. Kann mir jemand dabei helfen ? Mfg Daniel

Hi Daniel,
ich weiß nicht, ob ich dich richtig verstanden habe - hier mein Vorschlag wie ich es interpretiert habe:

Sub Suchen()
Dim rngSuche As Range
Dim arrWerte()
Dim intZaehler As Integer
Dim intGefunden As Integer
arrWerte = Array("Apfel", "Birne", "Melone") ' 0 Or _
InStr(rngSuche.Offset(0, 1), 2) > 0 Or _
InStr(rngSuche.Offset(0, 1), 3) > 0 Then
MsgBox "Apfel" & vbLf & "In der Nachbarzelle steht " & _
rngSuche.Offset(0, 1)
ElseIf rngSuche.Offset(0, 1) = "" Then
MsgBox "Nachbarzelle für Apfel ist leer"
End If
intGefunden = intGefunden + 1
Case "Birne"
If InStr(rngSuche.Offset(0, 1), 4) > 0 Or _
InStr(rngSuche.Offset(0, 1), 5) > 0 Or _
InStr(rngSuche.Offset(0, 1), 6) > 0 Then
MsgBox "Birne" & vbLf & "In der Nachbarzelle steht " & _
rngSuche.Offset(0, 1)
ElseIf rngSuche.Offset(0, 1) = "" Then
MsgBox "Nachbarzelle für Birne ist leer"
End If
intGefunden = intGefunden + 1
Case "Melone"
If InStr(rngSuche.Offset(0, 1), 7) > 0 _
Or InStr(rngSuche.Offset(0, 1), 8) > 0 _
Or InStr(rngSuche.Offset(0, 1), 9) > 0 Then
MsgBox "Melone" & vbLf & "In der Nachbarzelle steht " & _
rngSuche.Offset(0, 1)
ElseIf rngSuche.Offset(0, 1) = "" Then
MsgBox "Nachbarzelle für Melone ist leer"
End If
intGefunden = intGefunden + 1
End Select
End If
Next intZaehler
If intGefunden = 0 Then MsgBox "Nichts gefunden"
End Sub

Moin Karin,
Auch wenn sich das zu nächst unlogisch anhört brauche ich das leider so :D
Um es vllt anders zu formulieren:
Ich hab eine Liste in welcher der Arbeitsaufwand für das saubermachen meiner Wohnung festgehalten ist.
Nun stehen in Spalte A die Schlafzimmer der Wohnung.
Wenn das größte Schlafzimmer 1 dreckig ist brauche ich viel Zeit
Wenn das mittlere Schlafzimmer 2 dreckig ist brauche ich mittel Zeit
Wenn das Kinderzimmer dreckig ist brauche ich wenig Zeit.
Nun gibt es nur die 3 Möglichkeiten viel, mittel oder wenig.
Also auch wenn alle 3 Zimmer dreckig sind brauche ich viel Zeit
Wenn keins dreckig ist brauche ich wenig Zeit
Nun öffne ich (ich nenne es mal vorsichtig unseres) geschriebene Macro und suche nach den Zimmern. (Schlafzimmer 1, Schlafzimmer 2 und Kinderzimmer)
Jetzt ist aber kein Zimmer dreckig als steht auch kein Zimmer in der Liste. Das Ergebnis soll trotzdem wenig Zeit sein, da jede Woche der Flur und das Badezimmer geputzt werden soll.
Ich hoffe an diesen Beispiel wird es deutlicher
Kann das irgendwie in den Code eingebaut werden ?
Wenn keines der Obstsorten gefunden werden kann soll das Ergebnis Melone sein um es am vorherigen Beispiel noch mal zu verdeutlichen.
Ist es möglich ein 4 case einzubauen in dem ich bestimmen kann was passieren soll wenn keines der 3 Obstsorten gefunden werden kann ?
Hoffe diesmal hab ich es geschafft es etwas deutlicher zu erklären

Suchfunktion in Schleife einbauen

Forumthread: Suchfunktion in Schleife einbauen

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Suchfunktion in Schleife einbauen

Forumthread: Suchfunktion in Schleife einbauen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread