Makro anpassen

Forumthread: Makro anpassen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Makro anpassen

Makro anpassen

17.09.2018 20:10:20

Blaser

Hallo Ich habe ein Makro aber ich kann es nicht so abändern dass es Funktioniert.
Ich möchte dass er meine Arbeitsmappe nach diesen meinWert = "wasser", "blume" ,"hund" , "katze" oder "Hans" Durchsucht. Es müssen nicht alle vorhanden sein reicht wenn einer dieser Werte vorhanden ist.

Sub testABc()
Dim X As Range
Dim meinWert As String
With Sheets("Daten")
meinWert = "wasser"
meinWert = "blume"
meinWert = "hund"
meinWert = "katze"
meinWert = "Hans"
Set X = .Range("E2:E2230").Find(meinWert, LookIn:=xlValues, LookAt:=xlWhole)
If Not X Is Nothing Then
Call ALFA1
Else
MsgBox "Falsches Makro ist nicht Revok!"
End If
End With
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro anpassen

17.09.2018 20:20:33

Der
AW: Makro anpassen

17.09.2018 20:55:10

Gerd

AW: Makro anpassen

17.09.2018 20:20:33

Der

Hallo,
verlinkst Du bitte Deine Beiträge in den verschiedenen Foren!

AW: Makro anpassen

17.09.2018 20:55:10

Gerd

Hallo,
bitte immer schön verlinken. :-)

Sub testABc()
Dim X As Range
Dim meinWert As Variant
Dim bln As Boolean
Dim Bereich As Range
Set Bereich = Sheets("Daten").Range("E2:E2230")
For Each meinWert In Array("wasser", "blume", "hund", "katze")
Set X = Bereich.Find(meinWert, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not X Is Nothing Then
bln = True
Set Bereich = Nothing
Call ALFA1
End If
Next
If Not bln Then MsgBox "Falsches Makro ist nicht Revok!"
End Sub

Gruß Gerd