Suchfunktion in Schleife einbauen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Suchen() Dim rngSuche As Range Dim arrWerte() Dim intZaehler 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) 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) 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) End Select End If Next intZaehler End Sub

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

Beliebteste Forumthreads (12 Monate)

Suchfunktion in Schleife einbauen

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread