Max. Zeichenlänge String
28.12.2013 11:42:43
Golem
mit nachfolgendem Code vergleiche ich in einem geschlossenen Arbeitsblatt, ob eine Bankleitzahl oder
eine BIC vorhanden ist.
Eine BLZ, in Zelle "AJ12", wird im geschlossenen Tabellenblatt, in Spalte "A", gesucht und bei Übereinstimmung aus der Spalte "D" die neue BIC herausgegeben.
Eine BIC, in Zelle "AC2", wird im geschlossenen Tabellenblatt, in Spalte "D", gesucht und bei Übereinstimmung aus der Spalte "A" die alte BLZ herausgegeben.
Funktioniert auch einwandfrei.
Sub Wert_in_Spalte_vergleichen()
Dim strPfad$, strTabelle$, sSuchbereich1$, sSuchbereich2$, sAusgabe1$, sAusgabe2$
Dim strSuchWert1$, strSuchWert2$
strSuchWert1 = Range("AJ12")
strSuchWert2 = Range("AC2")
' strPfad = ("'C:\Dokumente und Einstellungen\Werner\Desktop\Test\Weitere Dateien\[Kontodaten. _
xlsx]BLZ_BIC'!")
' strPfad = ("'C:\Dokumente und Einstellungen\Werner\Desktop\TestTest\Weitere Dateien\[ _
Kontodaten.xlsx]BLZ_BIC'!")
' strPfad = ("'C:\Dokumente und Einstellungen\Werner\Desktop\TestTestT\Weitere Dateien\[ _
Kontodaten.xlsx]BLZ_BIC'!")
' Dateipfad und Dateiname
strPfad = "'" & ActiveWorkbook.Path & "\" & "Weitere Dateien" & "\" & "[Kontodaten.xlsx]"
' Tabellename am ende mit '!
strTabelle = "BLZ_BIC" & "'!"
' Suchbereich1
sSuchbereich1 = Range("A2:A5300").Address(ReferenceStyle:=xlR1C1)
' Ausgabebereich1
sAusgabe1 = Range("D2:D5300").Address(ReferenceStyle:=xlR1C1)
' Suchbereich2
sSuchbereich2 = Range("D2:D5300").Address(ReferenceStyle:=xlR1C1)
' Ausgabebereich2
sAusgabe2 = Range("A2:A5300").Address(ReferenceStyle:=xlR1C1)
On Error Resume Next
Range("AJ16") = ExecuteExcel4Macro( _
"Index(" & strPfad & strTabelle & sAusgabe1 & ",Match(" & strSuchWert1 & "," _
& strPfad & strTabelle & sSuchbereich1 & ",0),1)")
Range("AJ18") = ExecuteExcel4Macro( _
"Index(" & strPfad & strTabelle & sAusgabe2 & ",Match(" & Chr(34) & strSuchWert2 & Chr(34) & _
"," _
& strPfad & strTabelle & sSuchbereich2 & ",0),1)")
End Sub
Obiger Pfad mit "Test", 93 Zeichen, funktioniert. Zweiter Pfad mit "TestTest", 97 Zeichen, funktioniert auch.
letzter Pfad mit "TestTestT", 98 Zeichen, funktioniert nicht mehr.
Solch eine Situation ist mir neu.
Gibt es eine Möglichkeit, ohne die Pfadlänge zu verkürzen, längere Pfadnamen zu verwenden?
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Werner