Gibt es eine Möglichkeit diese beiden Codes zu einem zu kombinieren?
'Hier hole ich mir einen Wert aus einer geschlossenen Mappe'
Private Sub CommandButton2_Click()
Cells(1, 1).Value = ExecuteExcel4Macro( _
"'D:\Eigene Dateien\[Testmappe.xls]Tabelle1'!" & _
Cells(1, 1).Address(ReferenceStyle:=xlR1C1))
End Sub
Ich möchte aber gern das vorher gefragt wird aus welcher Mappe!
Dim Datum
Datum = InputBox("Bitte Datum der Datei eingeben")
If Datum "" Then
Workbooks.Open Filename:="D:\Eigene Dateien\" & Datum & ".xls", _
UpdateLinks:=0
End If
End Sub
Wer kann diese beiden Codes zu einem machen?
Danke für die HIlfe
Lisa