Tabellenblatt Name geschlossener Datei

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fennek,
das Problem tritt bei mir in der Zeile auf 'XXXXXX
wo ich versuche den Namen des ersten Tabellenblattes jener Quelldatei auszulesen,
an der Stelle ist Sie ja noch geschlossen, Pfadangaben stehen dann aber schon in meiner
Basisdatei drinne.

Sub Daten_einlesen()
Dim BASIS As String ' Basisdatei in der gearbeitet wird
Dim ZIEL As String   ' dortiges Tabellenblatt in das die Werte einetragen werden sollen
Dim Quelle As String ' Quelldatei angabe der zu importierenden Daten
Dim ORT As String ' erstes Tabellenblatt der Quelldatei ( Tabellenblattname )
Dim ADR As String ' Adressangabe zum Öffnen der Quelldatei steht in H5
[H4:X5].ClearContents ' alte Adressverweise leeren
[H4] = ActiveWorkbook.path & "\" & ActiveWorkbook.Name
[H5] = Sheets(1).Range("J5").Value & [E4].Value & ".xls"
[M5] = [E4].Value & ".xls"
[M4] = ActiveWorkbook.Name
Quelle = [M5].Text
ADR = [H5].Text
ORT = Worksheets(1).Name ' XXXXXXXXX
'  Exit Sub
ZIEL = Range("F4").Value ' Tabellenblatt aktives
BASIS = Range("M4").Value ' Dateiname aktive Datei
' Daten einlesen
'  Application.ScreenUpdating = False
Workbooks.Open Filename:=ADR
Workbooks(BASIS).Worksheets(ZIEL).Range("E9:G1009") = Workbooks(Quelle).Worksheets(ORT). _
Range("A2:C1002").Value
Workbooks(ADR).Close
[A1].Select
End Sub

wenn ich unten anstatt über ORT variabel verweisen zu wollen den Namen direkt eintrage
zB.
Workbooks(BASIS).Worksheets(ZIEL).Range("E9:G1009") = Workbooks(Quelle).Worksheets("Daten").Range("A2:C1002").Value
erstes Blatt heisst dort " Daten" dann klappt alles,
versuche ich es über diese variable ORT dann nimmt er nicht den Namen der Quelldatei sondern den Namen des ersten Tabellenblattes in der Basisdatei, da bräuchte ich es gerade andersrum
Daher meine Frage, ob ich zuvor, bevor ich die Quelldatei öffnen lasse, derren erstes Tabblatt
u dessen Namen mir zuvor also in irgendeine Zelle ( zB. A1 ) eintragen lassen kann, dann diesen Wert der Variablen ORT zuweise und dann meine Abfrage unten es findet ...
hoffentlich hab ich es nicht zu kompliziert erklärt;
lieben Dank für eure Mühen
Udo

Hallo Rudi, danke Euch allen schon mal für eure Beiträge,
nur zu meinem bescheidenen VBA Verständnis, mit Worksheets(1) hatte ich versucht, dann mekerte
er an der Stelle ? hab ich dann aber den Namen des ersten Tabellenblattes jener Quelldatei
angegeben, flutschte es wieder, merkwürdig, glaube wenn ich es nur in Zahlen deklariere dann nimmt er als Namen den des 1. Workbooks , sprich die Basisdatei. Eben, aber aus der heraus soll eben in der Quelldatei abgefragt werden.
In jenem Ordner wo die Abfragedateien ( Quelldateien ) drinne liegen, werden sich einige Exceldateien dann befinden, alle mit Namen des jew. Datum das ich abfragen will.
Daher soll der VBA Code in der Basisdatei entspr. einigermaßen variabel bleiben ... die Makros die dort zuvor ablaufen spucken dann in eine Bezugszelle ein Datum aus, welches Folge dessen eben dann eingelesen werden soll.
Ich sag mal so, im Moment heissen alle 1. Tabellenblätter dieser Quelldateien alle gleich, von daher kann ich im Augenblick den Namen direkt angeben, aber schon bald ändert sich das, dann müsste ich sozusagen auf das erste Blatt beziehen, bzw. dessen Namen da eben mit Worksheets(1), sheets(1), es bislang nicht ging ...
An der Stelle , kann ich evtl. Worksheets(1) noch erweiternd definieren zB. Worksheets(Workbook... , Sheets(1)) oder so ähnlich ?
vielleicht ginge das, alledings wüsste ich nicht wie ich es genau schreiben müsste ?
Danke das ihr euch die Mühe macht
LG udo

Beliebteste Forumthreads (12 Monate)

Tabellenblatt Name geschlossener Datei

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread