Inhalt Aktiver Zelle auslesen und in Pfad einfügen???

[faith]

Hi Leute,

ich soll eine Excel Tabelle erstellen in der verschiedene Datei namen anderer Excel Tabellen stehen in denen Messerte stehen. Nun soll mein Makro diese Datei aufrufen können wenn ich sie in der Tabelle ausgewählt hab und sie in einem neuen Tabellenblatt öffnen und dann halt auch richtig anzeigen da die momentan noch in einer Zeile stehen und nur durch Komma getrennt sind.

Wie mache ich das das ich den inhalt der Aktiven Zelle auslese und dann ab der in dem Ordner wo das drin is aufrufe?

Das hier is mein Code zum aufrufen einer bestimmten Datei in ein neues Tabellenblatt.

ActiveWorkbook.Worksheets.Add

    With ActiveSheet.QueryTables.Add(Connection:= _

        "TEXT;P:\Shift\Doku\Shift 2 Layout\Messungen\ESL12112-Temperversuche\Shift-II-Res_ESL12112-Bl226_10mT_oDie" _

        , Destination:=Range("A1"))

        .Name = "Shift-II-Res_ESL12112-Bl226_10mT_oDie_2"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .TextFilePromptOnRefresh = False

        .TextFilePlatform = 850

        .TextFileStartRow = 1

        .TextFileParseType = xlDelimited

        .TextFileTextQualifier = xlTextQualifierDoubleQuote

        .TextFileConsecutiveDelimiter = False

        .TextFileTabDelimiter = True

        .TextFileSemicolonDelimiter = False

        .TextFileCommaDelimiter = True

        .TextFileSpaceDelimiter = False

        .TextFileColumnDataTypes = Array(1)

        .TextFileTrailingMinusNumbers = True

        .Refresh BackgroundQuery:=False

    End With

Bis P:\Shift\Doku\Shift 2 Layout\Messungen\ESL12112-Temperversuche\ soll der Pfad bleiben und von da an soll man nun die Datei aus der Tabelle auswählen...

Ich hoffe jemand kann mir helfen. Vielleicht verkomplizier ich die Sache auch nur unnötig...

[-roTekuGeL-]

für die aktive zelle gibt es selection...

bsp.:

Dim das As String

das = Selection.Text

[/PHP]

in das steht jetzt also was der user makriert hat...

wenn mehrere zellen aktiviert sind wirft er nen fehler den du ja abfangen kannst...

den rest solltest du ja hinbekommen...

[faith]

Danke, klappt jetzt alles super!

Ich hab das heute schon mit ActiveCell.Value gemacht und es hat zwar geklappt aber voll Kompliziert über schleife und so und jetzt wo ich das mit Selection.Text hinbekommen hab hab ich das noch mal so mit ActiveCell.Value ausprobiert und so klappts dann auch. Da Stand ich heute früh wohl noch voll am schlauch aber ich glaube das kann man einem blutigen VBA anfäger scho mal verzeihen, oder.