Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro anpassen

Forumthread: Makro anpassen

Makro anpassen
17.09.2018 18: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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro anpassen
17.09.2018 18:20:33
Der
Hallo,
verlinkst Du bitte Deine Beiträge in den verschiedenen Foren!
AW: Makro anpassen
17.09.2018 18: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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige