Office: Datenblatt- Namen ermitteln

Hallo, wie kann ich mittels Makro, die Namen der Datenblätter ermitteln und einer Variablen zuweisen???

Und Wie müsste eine Schleife aussehen mit "For each Datenblätter" um mir die Namen aller Datenblätter dieses Excel- Dokumentes zu ermitteln
. Die jeweiligen Namen soll er dann auf dem 1 Blatt unter einander aufführen.

Danke

 

Hallo!

Das kannst du sogar ohne VBA hinbekommen:
Menü Einfügen > Namen > Definieren
Name: x
Bezieht sich auf: =ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())

Nun schreibe in eine beliebige Zelle diese Formel und fülle sie nach unten aus:

=WENN(ZEILE(A1)>ANZAHL2(x);"";TEIL(INDEX(x;ZEILE(A1));FINDEN("]";INDEX(x;ZEILE(A1)))+1;99))

 

Ok, aber ich benötige es als VBA. Möchte mir ein Import- Makro schreiben, welches die Namen der Datenblätter ermittelt und dann die entsprechenden Dateien selbständig in die jeweiligen Datenblätter importiert. Der Import hängt jetzt lediglich noch an:

1. Ermittlung der Namen und zu weisen einer Variablen
2. den Pfad so schreiben, das die Variable mit drin steht
(jetzt ist alles zwischen " E:\....."&Variable&".txt), geht aber noch nicht
3. Bei der Schleife: For each Datenblatt, springt er noch nicht in das nächste Datenblatt. Der Variablen Datenblatt ist die Zahl der Datenblätter bereits zu georndet....

Vielleicht hilft das weiter.....

 

Hallo!

Wie ist es hiermit?

Dim ws as Worksheet
For Each ws in ThisWorkbook.Worksheets
MsgBox ws.Name
Next ws

 

Das ist doch schon mal was....

Kann ich dann einfach anstatt von:
"MsgBox ws.Name" auch Variable ws.Name" schreiben, damit ich meine Importe auch für jedes Datenblatt machen kann?

Wie müsste der Pfad aussehen, damit ich darin auch die Variable nutzen kann?

Bis jetzt habe ich es so:

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\Hiwi\NLH-Dateien\"&Variable&".nlh" _
, Destination:=Range("$A$1"))

oder wie sollte es definiert werden? Es soll in einen bestimmten Pfad auf der Festplatte gehen und dort die Datei importieren, welche den selben Namen wie auch das Datenblatt hat....

 

Hallo!

Geht denn sowas nicht?

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\Hiwi\NLH-Dateien\"&ws.Name&".nlh" _
, Destination:=Range("$A$1"))

Du kannst den Blattnamen natürlich auch an eine Variable übergeben:

Dim Vari as String
...
Vari = ws.Name

 

Mein Code

Hier ist mal mein VBA- Code:

Code:

Sub Import()
'
' Import Makro


Dim Blatt As Worksheet
Dim Ende As Integer, i As Integer, Spalte As Integer
Dim Serie As String

For Each Blatt In ThisWorkbook.Worksheets


    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\Arbeit\" & Blatt.Name _
        , Destination:=Range("$A$1"))
        .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 = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileDecimalSeparator = "."
        .TextFileThousandsSeparator = ","
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileFixedColumnWidths = Array(15, 16)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        
    End With
    
    Next Blatt
    
End Sub

Meine Probleme sind nun:

1. Es werden alle Dateien deren Namen identisch mit einem Datenblattnamen sind importiert, das ist schon mal richtig, ABER alle Daten werden in das aktive Datenblatt importiert und nicht die jeweiligen Daten in das entsprechende Datenblatt????

2. Er frisst nicht die Dateiendung: z.B:

Code:

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\Arbeit\" & Blatt.Name _
        , Destination:=Range("$A$1"))

das geht, ABER dann muss das Datenblatt auch Name.txt heisen
, weil er das:

Code:

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\Arbeit\" & Blatt.Name&".txt" _
        , Destination:=Range("$A$1"))

nicht kann. Leider.....

Aber bestimmt hat da jemand eine Lösung

Danke, schon mal

 

Hallo!

Ich habe von solchen Datenimporten zwar keine Ahnung, aber
...Destination:=Blatt.Range("A1")...
sollte der Schlüssel sein.

Für das andere Problem hilft dann vielleicht doch eine Variable?

Vari = Blatt.Name & ".txt"