dressa
Goto Top

Excel 2010 Makro Ausgabe in bestimmter Tabelle ausgeben

Hallo miteinander.

Ich habe im VBA von Excel 2010 ein eigenes Modul erstellt, in dem der Kode drinsteht, um eine Fileliste aus einem Ordner zu erstellen.
Damit dieses bei jedem Start automatisch ausgeführt wird, musste ich im VBA im Objekt DieseArbeitsmappe folgenden Code einführen.
(Siehe beigefügtem Bild)

Das funktioniert nun auch.

Mein Problem ist nun das die Fileliste immer im aktuellen Arbeitsblatt erstellt wird das gerade beim starten geöffnet ist.

Ich möchte aber das die Fileliste immer im 2. Arbeitsblatt erstellt wird.
Kann ich da etwas im Code abändern ?
Wäre froh um etwas Hilfe.
vbat

Content-ID: 338993

Url: https://administrator.de/forum/excel-2010-makro-ausgabe-in-bestimmter-tabelle-ausgeben-338993.html

Ausgedruckt am: 27.12.2024 um 11:12 Uhr

Kraemer
Kraemer 26.05.2017 um 13:23:45 Uhr
Goto Top
Moin,

um deine Frage konkret beantworten zu können, müsstest du den Code hier posten.

Gruß
colinardo
colinardo 26.05.2017 aktualisiert um 13:31:00 Uhr
Goto Top
Ich möchte aber das die Fileliste immer im 2. Arbeitsblatt erstellt wird.
In deinem FIleList-Makro statt ActiveSheet den Index des Sheets oder den Namen verwenden/referenzieren.
Sheets(2)
oder
Sheets("Tabelle2")
Grüße Uwe
dressa
dressa 26.05.2017 um 13:57:13 Uhr
Goto Top
Hallo
Danke für den Tip.

Leider komme ich nicht weiter.
Der Befehl ActiveSheet wird im Code icht verwendet.

Hier mal den Code:
Sub Filelist()

    Dim fs As Object
    Dim fVerz As Object
    Dim fDatei As Object
    Dim fdateien As Object
    Dim strDat As String
    Dim Zeile As Integer
    
    Set fs = CreateObject("scripting.FileSystemObject")  
    Set fVerz = fs.getFolder("D:\Test\")  
    Set fdateien = fVerz.Files
    
    For Each fDatei In fdateien
        If InStr(fDatei, "") > 0 Then  
            Zeile = Zeile + 1
            Cells(Zeile, 1) = fDatei.Name
        End If
    Next fDatei

End Sub

Wäre froh um einen Tip.
colinardo
Lösung colinardo 26.05.2017 aktualisiert um 13:59:55 Uhr
Goto Top
Zeile 17 ändern auf
Sheets(2).Cells(Zeile, 1) = fDatei.Name
Denn ohne Angabe des Sheets vor einem Range-Objekt wird immer das aktuelle angenommen.
Kraemer
Lösung Kraemer 26.05.2017 aktualisiert um 14:01:34 Uhr
Goto Top
Sheets(2).Cells(Zeile, 1) = fDatei.Name 

Edit: da war Uwe schneller face-smile
dressa
dressa 26.05.2017 um 14:14:56 Uhr
Goto Top
@colinardo
@Kraemer

danke euch beiden für die schnelle Antwort

Jetzt funktionierts genau so wie ich es wollte.

Habe wieder einiges gelernt.