Office: Groß-Kleinschreibung ignorieren

n1ce · 25. Februar 2017

Hallo zusammen,

ich habe mir aus unterschiedlichen Quellen folgenden Code zusammengebastelt, welcher in einem Ordner samt Unterordner nach Dateien sucht und daraus eine Spalte daneben einen Hyperlink erstellt.
Das Problem ist hierbei, dass die Dateien nicht gefunden werden sobald ein Buchstabe der Datei groß oder klein geschrieben ist.
Bitte um Hilfe!
Danke im Voraus!

Code:

Sub AnhangVerlinken()
Dim fd As FileDialog
Dim strDatei As String, strAusgangsPfad As String
Dim rngZelle As Range
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then
strAusgangsPfad = fd.SelectedItems(1) & ""
ReDim arrV(0) As String
arrV(0) = strAusgangsPfad
Call OrdnerArray(strAusgangsPfad)
Range("CD4:CD" & Cells(Rows.Count, 1).End(xlUp).Row).Offset(0, 1).ClearContents
For Each rngZelle In ActiveSheet.Range("CD1:CD" & Cells(Rows.Count, 1).End(xlUp).Row)
If Not IsEmpty(rngZelle) Then
For i = 0 To UBound(arrV)
strDatei = Dir(arrV(i) & "*.pdf")
Do Until strDatei = ""
If InStr(1, strDatei, rngZelle.Text) > 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=rngZelle.Offset(0, 1), Address:= _
arrV(i) & strDatei, TextToDisplay:=rngZelle.Text
Exit For
End If
strDatei = Dir
Loop
Next
End If
Next
ReDim arrV(0) As String
i = 0
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

EarlFred · 26. Februar 2017

Hallo Name?,

Code:

If InStr(1, strDatei, rngZelle.Text, vbTextCompare) > 0 Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ob der Code dann tut, was er soll und ob er das sinnvoll tut, bleibt allerdings verborgen.

Grüße
EarlFred

n1ce · 12. Januar 2021

Hallo Earlfred,

man nennt mich einfach Alex :-)
Super Vielen Dank, es funktioniert auf Anhieb!
Was genau vergleicht er bei dieser Abfrage?

von EarlFred

Hallo Name?,

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If InStr(1, strDatei, rngZelle.Text, vbTextCompare) > 0 Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ob der Code dann tut, was er soll und ob er das sinnvoll tut, bleibt allerdings verborgen.

Grüße
EarlFred

Office: Groß-Kleinschreibung ignorieren

Groß-Kleinschreibung ignorieren

Groß-Kleinschreibung ignorieren

Groß-Kleinschreibung ignorieren - Similar Threads - Groß Kleinschreibung ignorieren

Groß-Kleinschreibung ignorieren ?!

Überprüfen, ob eine Zelle Text enthält (Groß-/Kleinschreibung wird beachtet)

Ändern der Groß-/Kleinschreibung in einer E-Mail-Nachricht

Ändern der Groß-/Kleinschreibung von Text

Groß-Kleinschreibung ignorieren

Groß- und Kleinschreibung ignorieren

Ändern der Groß-/Kleinschreibung von Text