Piktogramme Not Found

Hallo Thomas, die Sicherung funktioniert nicht. "Page Not found- Error 404". Gruß Heidi

Wüsste nicht, wie man das Ergebnis des Dialogs in ein Array übernehmen kann. Du müsstest also die Suche wie üblich mit Find und FindNext programmieren und dabei die Treffer in ein Array einsortieren. Etwa wie im Code unten.

Peter

Sub Test()

Dim treffer As Variant

treffer = AlleSuchen([E:E], "abc")

MsgBox Join(treffer, ",")

End Sub



Function AlleSuchen(Bereich As Range, Suchtext As String)

Dim arr As Variant

Dim found As Range

Dim first As String

arr = Array()

Set found = Bereich.Find(Suchtext, Bereich.Cells(Bereich.Rows.Count))

If Not found Is Nothing Then

first = found.Address

Do

ReDim Preserve arr(UBound(arr) + 1)

arr(UBound(arr)) = found.Value

Set found = Bereich.FindNext(found)

Loop While Not found Is Nothing And found.Address <> first

End If

AlleSuchen = arr

End Function

Hallo Carla,

vielen Dank für deine Nachricht.

Wann wird die Fehlermeldung genau angezeigt?

Wurden die Zahlungsinformationen bereits hinterlegt?

Der Befehl wird nicht erkannt.

Command Not Found Exeption für "GGet-MSOLUser:String"

Die Powershell habe ich wie bisher auch mit
Exchange verbunden.

Beste Grüße,

Sebastian

Mendeley gehört zu den üblichen Verdächtigen bei seltsamen Vorkommnissen und die Meldungen beziehen sich offenbar auf ein Zitierprogramm.

Deinstalliere es komplett und frage beim Hersteller nach einer betriebssicheren Version.

Gruß

G.O.