Mit Button Datei aufrufen mit abhänikeit der Zeile
27.10.2017 10:49:27
Eusebio
Ich bin ein Anfänger in diesem Bereich. Folgende Fragen:
Ich habe eine liste mit Projekten. Pro Zeile ist ein Projekt, bei jedem Projekt habe ich in einem Ordner eine Text Datei hinterlegt. Ich will diese Text Datei über einen Button öffnen. Wenn ich die Zeile Kopiere und ein neues Projekt einfüge, soll die Text Datei geöffnet werden mit dem selben Projekt Namen.
Wie ich die Text Datei öffne habe ich bereits hingekriegt, hier heisst diese Test. Wie kriege ich nun hin das der Name Test von der Spalte A1 eingelesen wird?
Private Sub test()
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """C:\Users\z003b78h\Desktop\Verkauf\VorlagenBackup\Test Planung\Kommentar\ _
Test.txt"
Set WshShell = Nothing
ThisWorkbook.Sheets("Projekte").Range("E122").Value = Date
End Sub
Danke für eure Hilfe