Workbooks - Dateiname aus anderer Tabelle auslesen
05.03.2006 20:34:07
nightswimming26
Ich habe folgendes Problem:
Ich möchte zwischen zwei Arbeitsmappen den Inhalt einer Textbox in eine Textbox der anderen Datei kopieren, wobei ich beim Dateinamen flexibel bleiben muss. Dieser Dateiname steht in einem Arbeitsblatt des ersten Workbooks (Source). So klappt es schon ganz gut:
Sub TextBoxInhaltKopieren()
ActiveSheet.Unprotect Password:=Worksheets("Source").Range("$B$3")
Workbooks.Open Filename:=Worksheets("Source").Range("$B$12")
Workbooks("NeueKurve V1.08 Vorlage1").Worksheets("Front").TextBox3.Value = _
Workbooks("Stammblatt VE1.01").Worksheets("Stammblatt").TextBox4.Value
ActiveSheet.Protect Password:=Worksheets("Source").Range("$B$3")
End Sub
Also: Die dateinamen "NeueKurve V1.08" und "Stammblatt VE1.0" sind die jeweiligen .xlt - dateien. In der obigen Darstellung sieht man schon, dass ich entsprechend des zu erwartenden neuen dateinamens eine "1" an die dateinamen angehängt habe.
Was ich möchte: Die dateinamen sollen aus der tabelle Source ausgelesen werden, um die 1 erweitert werden und nur noch als Range-Bezug im VBA auftauchen (So ähnlich wie der Blattschutz...
Oder auch ganz anders, wenn jemand eine elegantere Lösung hat! ;-)
Ich freue mich über jeden Ansatz!
Viele Grüße
Christian
Anzeige