Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Makroergebnis in Zelle anzeigen

Forumthread: Makroergebnis in Zelle anzeigen

Makroergebnis in Zelle anzeigen
21.06.2021 13:22:31
Andreas
Hi zusammen,
brauche bitte eure Hilfe, um folgenden Code zu ergänzen:

Sub Dateianzahl()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetFolder("X:\Vertrieb").Files.Count
Set fso = Nothing
End Sub
Der Code zählt die Dateien, die in dem angegebenen Verzeichnis liegen.
Die Angabe darüber würde ich gerne im Tabellenblatt "DB" in der Zelle "R6" wiedergeben.
Bekomme das nur mit einer Schaltfläche hin und das schaut nicht so schön aus,
bin mir sicher irgendwie kann ich das auch direkt in der Zelle wiedergeben?
Danke vorab
Gruß Andreas
:
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makroergebnis in Zelle anzeigen
21.06.2021 13:53:43
Rudi
Hallo,
als Function!

Function Dateianzahl()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dateianzahl = fso.GetFolder("X:\Vertrieb").Files.Count
Set fso = Nothing
End Function
In die Zelle schreibst du =Dateianzahl()
Gruß
Rudi
Anzeige
AW: Makroergebnis in Zelle anzeigen
21.06.2021 13:56:09
GraFri
Hallo Andreas

Sub Dateianzahl()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Worksheets("DB").Range("R6").Value = fso.GetFolder("D:\Auto").Files.Count
Set fso = Nothing
End Sub

mfg GraFri
AW: Makroergebnis in Zelle anzeigen
21.06.2021 14:18:14
Andreas
Funktioniert, Danke euch beiden für die schnellen Lösungsvorschläge : )
Gruß Andreas
Anzeige
AW: Makroergebnis in Zelle anzeigen
21.06.2021 21:52:09
redmi
was angry, he climbed to the roof and jumped down the chimney. Ottawa escorts
AW: Makroergebnis in Zelle anzeigen
21.06.2021 21:55:02
redmi
was angry, he climbed to the roof and jumped down the chimney. Ottawa escorts
Anzeige

Forumthreads zu verwandten Themen

VBA - Aus Userform andere Mappe öffnen
Tim

Hallo zusammen,
lange Zeit bin ich nun schon leser eurer tollen Tipps. Jetzt ist aber die Zeit gekommen um mal um Rat zu fragen.
Ich habe eine Userform in der unsere Mitarbeiter Daten eingeben. Wenn die Dateneingabe erfolgreich war, werden diese Daten in ein Tabellenblatt eingefügt, als...
09.03.2016 03:23:07
Thread-ID: 1480787
2 Beiträge
Änderungsdatum einer Zeile in Zelle anzeigen
Daniel

Hallo Zusammen
Ich möchte gerne das Datum der letzten Änderung in den Zellen C4:CB1000 in der Zelle der Spalte CH der gleichen Zeile einfügen.
Beispiel: Ein Wert in einer der Zellen C4:CB4 hat sich geändert, dann soll das aktuelle Datum in Zelle CH4 eingetragen werden, aber keine der an...
11.12.2018 11:57:41
Thread-ID: 1662282
3 Beiträge
Änderungsdatum anzeigen lassen
Uwe
Hallo,
da eine Excel-Datei von mehreren Benutzern geändert wird - kann ich in einer Excel Tabellenzeile das Datum der letzten Änderung einfügen.
Beispiel: Zeile 4 wurde am 18.01.2004 geändert, also soll in Zelle P4 das Datum 18.01.2004 stehen.
Ist sowas machbar?
Uwe
29.01.2004 21:11:47
Thread-ID: 373368
5 Beiträge
MsgBox bei geöffneter Datei anzeigen lassen mit Bedingung
Paul
Guten Tag,
ich habe eine Excel Datei die von mehreren Benutzer dauerhaft geöffnet ist.
Auf dem Sheet "Vergleich" ist in O2 ein Datum mit dem Format TT.MM.JJJJ hh:mm das immer das Datum anzeigt, an dem die Werte zuletzt aktualisiert wurden.

In O3 ist folgende Formel:

=WENN(...
01.11.2023 09:11:39
Thread-ID: 1951759
9 Beiträge
Feld für letzte Änderung des Dokuments
brix

Hi,
gibt es in Excel wie in Word die Möglichkeit, in einer Zelle die letzte Änderung des Dokuments sowie den letzten Bearbeiter anzeigen zu lassen?
Danke,
Brix
14.02.2006 13:41:51
Thread-ID: 732313
3 Beiträge
Änderungsdatum
Benter

ich möchte in einer Zelle das Datum der letzten Änderung innerhalb der Datei automatisch anzeigen lassen
28.06.2006 11:14:41
Thread-ID: 777194
5 Beiträge
Datum der letzten Speicherung in einer Zelle
Markus

Hallo Forum,
in einer Zelle eines Datenblatts möchte ich das Datum der letzten Änderung/Speicherung ausgeben.
Ich habe unter "Datum der letzten Speicherung in einer Zelle" im Archiv (https://www.herber.de/index.html?https://www.herber.de/forum/archiv/524to528.htm) auch schon was gefunde...
07.02.2005 11:54:22
Thread-ID: 562829
7 Beiträge
Ebay erste Suchseite auslesen - @Hirtenanna
Zwenn

Hallo Hirtenanna,
ich hoffe Du schaust hier noch rein. Jetzt hat es ja doch etwas gedauert, bis ich meine Zusage umgesetzt habe.
Dafür bekommst Du aber eine Out-of-the-box-Lösung, weil ich die Gelegenheit, die Suchseite genau unter die Lupe zu nehmen einerseits für eigene Zwecke genutzt...
28.02.2019 16:53:58
Thread-ID: 1678466
8 Beiträge
Problem beim speichern und Datumsproblem
Karsten

Hallo liebe Leser,
1. Problem:
In einer Zelle steht folgende Formel: "=WENN(UND(TAG(J18)=1;J19=(LastDayOfMonth(MONAT(J19);2008)));" ";SVERWEIS(I6;Tabelle1!A3:O82;6;0)/30)" mit dem Code:
Sub BlattSpeichern() Dim strTBName As String, strWBName As String Dim strMeldung As String, str...
05.11.2008 20:32:52
Thread-ID: 1022069
2 Beiträge
Name der Datei aus Zelle übernehmen
Werner

Hallo allerseits,
habe es zwar im Forum schon mal gelesen, komme aber mit der Suche im Archiv nicht hin.
Möchte den in Zelle A1 stehenden Text als Dateiname beim "Speichern unter" übernehmen.
mfg Werner
05.04.2005 13:31:56
Thread-ID: 594343
3 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum