Hallo,
uuund schon stehe ich vor dem nächsten Problem.
Ich hatte hier schonmal angefragt wie ich Datensätze aus einer anderen Excel Datei kopieren kann. Mir wurde auch geholfen, allerdings ist die Lösung nicht ganz optimal für mein Programm.
Vielleicht kann mir hier jemand helfen das ein wenig zu ändern.
Unzwar arbeitet dieses Makro mit Konstanten, also ist der Pfad direkt vorgegeben, allerdings ändern diese Dateien (Ziel- und Quelldatei) etwas häufiger mal den Speicherort.
optimal für mein Programm wäre es wenn der User einmal die Datei Suchen muss und danach immer wieder auf die Datei zugegriffen wird ohne sie erneut auswählen zu müssen, da mehrere Buttons diese Quelldatei benötigen.
Oder besser noch, die Datei muss garnicht ausgewählt werden, sondern nur im gleichen Ordner gespeichert werden mit einem bestimmten, festen Namen.
Hier mein bisheriger Code:
Private Sub cmdtext1_Click()
Const strPfad = "J:\Beispielordner1\Beispielordner2\" 'Hier mein Problem
Const strDatei = "Quelldatei2.xlsx"
Const strBlatt = "Tabelle1"
If checkspan.Value = True And span1.Value = True Then
strZelle = "B3" 'Zelladresse
strVerweis = "'" & strPfad & "[" & strDatei & "]" & strBlatt & "'!" & strZelle
With Workbooks("UserForm.xlsm").Worksheets("Auswertungen").Cells(zeile, 2)
.Clear
.Formula = "=IF(" & strVerweis & "="""",""""," & strVerweis & ")"
.Value = .Value
End With
UserForm3.Show
End If