Office: Wenn oder/und .. oder .. oder/und

Vielleicht hab ich mich etwas ungenau ausgedrückt. hatte aber versucht folgendes zu erklären:
Mit *.ing findest Du alle auf ing endenden Worte. Aber nicht alle davon sind Verben... jetzt klarer?

 

Muss gestehen, hab es mir nicht angesehen. Ich hätte das sicher auch nicht mit VBA gelöst, sondern mit PQ. Wollte aber nicht noch mehr Verwirrung stiften, deshalb hab ich mich da (zumindest programmiertechnisch betrachtet) herausgehalten.
Meine Beiträge entsprangen also meiner Vorstellung einer allgemeinen Möglichkeit der Herangehensweise.
Aber ok... wenn alles wunschgemäß funktioniert, dann hat sich das auch für mich erledigt.

 

@knobbi38
Danke für den Tipp. Habe ich so ausgeführt. Läuft aber genauso wie vorher.
Gruss Fedi

@Sigi.21
Wenn Sigi mal Zeit hat wäre ich froh um seine Antwort (Nicht falsch verstehen, ist kein Drängeln, aber hier wird es langsam unübersichtlich mit Beiträgen).

 

Hallo Fedi,

ich weiß ja nicht wozu du die VBA-Fkt. 'WortFinden' einsetzen willst. Was hast du damit vor??
Erkläre dies erst mal.
Was soll sie in PresentPerfect und PastPerfect leisten?

Gruß Sigi

 

Hallo Sigi

Im Blatt “Tenses» verwende ich Deine, für mich erstellte Option Explicit

Option Explicit

Function WortFinden(TEXT As String, Enthalten1 As String, Enthalten2 As String) As Variant

Dim TLE As Variant, Txt As String, ii As Long, Asg As Variant

Application.Volatile

TLE = Split(TEXT, " ")

For ii = 0 To UBound(TLE)

Txt = LCase(Trim(TLE(ii)))

Txt = Replace(Txt, ",", ""): Txt = Replace(Txt, ".", ""): Txt = Replace(Txt, "?", "")

Txt = Replace(Txt, "!", ""): Txt = Replace(Txt, ";", ""): Txt = Replace(Txt, "*", "")

Txt = Replace(Txt, "=", ""): Txt = Replace(Txt, """", "")

If InStr(1, Txt, Enthalten1) > 0 Or InStr(1, Txt, Enthalten2) > 0 Then Asg = Asg & Txt & " / "

Next ii

If Asg = 0 Then

Asg = ""

ElseIf Asg <> "" Then

Asg = Left(Asg, Len(Asg) - 3)

End If

WortFinden = Asg

End Function


Ich benötige dies, um im Blatt «Tenses» in Zeile A10 die Wörter mit «ed» und «ing» anzuzeigen, damit geübte
Englischkenner eventuelle Fehler erkennen könnten. Die Suchworte befinden sich im Blatt «ed ing».

Ich benötige nun die gleiche Funktion bei den Blättern Simple Past, Present Perfect und Past Perfect.
Diese werden durch die Makros urV …. aktiviert (unregelmässige Verben).

Weil ich die Option Explicit nicht den Blättern zuordnen kann finde ich den Weg nicht …

Danke für Dein Engagement
Fedi

 

Hallo Fedi,

da wird die selbe Funktion verwendet! Du musst nur deine Formeln anpassen. Ich hab' mal angefangen, aber dann aufgegeben, da alle deine Blätter geschützt sind.

Gruß Sigi

 

Das hatte ich probiert, aber hat nicht geklappt. :-((
Hier die ungeschützte Datei, falls Du die nötige Zeit aufbringen kannst.
Gruss Fedi