Hallo Graber,

hier eine Idee:

<!--- erstellt am 14.07.2020 von volti ---><pre style='width: 700px;'><div style='font-family: Courier New, Arial; font-size: 10pt; color: #800000; line-height: 16px; background-color: #ffffee; border-width: 2px; border-style: groove; border-color: #ff9966; padding-left: 5px; margin-left: 2px;'><span style='position: relative; top: -10px; left: 5px;'><a style='cursor: pointer; font-size:9pt;' title='Click, um den u.a. Code in die Zwischenablage zu kopieren' onclick = "document.getElementById('txtar').value = document.getElementById('VBA31').innerText; {document.getElementById('txtar').style='display'; document.getElementById('txtar').select(); document.execCommand('copy'); document.getElementById('txtar').style = 'display:none'}"><img src='https://www.herber.de/bbs/user/135729.png' id='Kopieren' height=16 width=16 Alt='Code in die Zwischenablage' border='0'></a><textarea style='width: 0px; height: 0px; display: none' id='txtar'></textarea></span><div id='VBA31' Style='font-family: Courier New, Arial; font-size: 10pt; color: #800000; line-height: 16px; background-color: #ffffee; width:99.5%; position: relative; top: -1px;'><b><font color=#0000F0>Sub</font> Waehle_Datei()</b>&#10; <font color=#0000F0>Dim</font> sPfad <font color=#0000F0>As</font> <font color=#0000F0>String</font>, sDatei <font color=#0000F0>As</font> <font color=#0000F0>String</font>, sTitel <font color=#0000F0>As</font> <font color=#0000F0>String</font>&#10; sPfad = &quot;<font color=red>C:&bsol;Users&bsol;voltm&bsol;Desktop</font>&quot;&#10; sTitel = &quot;<font color=red>Datei &ouml;ffnen</font>&quot;&#10; <font color=#0000F0>ChDir</font> (sPfad)&#10; sDatei = Application.GetOpenFileName(FileFilter:=&quot;<font color=red>alle Dateien (*.*), *.*</font>&quot;, _&#10;                      FilterIndex:=1, title:=sTitel, MultiSelect:=False)&#10; <font color=#0000F0>If</font> sDatei &lt;&gt; &quot;<font color=red>Falsch</font>&quot; <font color=#0000F0>Then</font>&#10;    Sheets(&quot;<font color=red>Tabelle1</font>&quot;).Range(&quot;<font color=red>$A1</font>&quot;).value = sDatei&#10; <font color=#0000F0>End If</font>&#10;<b><font color=#0000F0>End Sub</font></b><div style='line-height: 5px;'> </div></div></div></pre><div><font size=2 face=Arial>viele Gr&uuml;&szlig;e aus Freigericht<br><b><span style='font-family: Lucida Calligraphy; color: #802000'>Karl-Heinz</span></b></font></div>