VBA Bereich markieren und MsgBox
17.05.2019 20:17:38
Kerstin
Ich habe folgenden VBA-Code gefunden (funktioniert ganz gut) und möchte aber, wenn der Suchbegriff nicht gefunden wurde, eine MsgBox einbauen (MsgBox "Suchbegriff wurde nicht gefunden, bitte manuell eingeben"), dann das Sub abbrechen und zurück zu Sheets1, Range ("E4"). Sämtliche Versuche meinerseits ergaben eine Endlosschleife der MsgBox... :(
Public Sub Bereich_markieren()
Sheets("Sheets2").Select
Dim rngBereich As Range
Dim Zelle As Range
Dim suchBegriff As String
suchBegriff = Sheets("Sheets1").Range("E4").Value
For Each Zelle In Range("F5:F999")
If Zelle.Value = suchBegriff Then
If rngBereich Is Nothing Then
Set rngBereich = Cells(Zelle.Row, 7)
Else
Set rngBereich = Union(rngBereich, Cells(Zelle.Row, 7))
End If
End If
Next
rngBereich.Select
End Sub
Kann jemand helfen?
Viele Grüße
Kerstin