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

Suche von Tabellen mit best. Tabellenblättern -VBA

Forumthread: Suche von Tabellen mit best. Tabellenblättern -VBA

Suche von Tabellen mit best. Tabellenblättern -VBA
07.04.2008 13:56:00
Tabellen
Liebe Excel-Profis,
sicherlich hat der eine oder andere schon eine Fertiglösung im Excel-Portfolio. Hier das Problem:
Wie kann ich - mit VBA - bestimmte Laufwerke / Ordner nach xls-Tebellen durchsuchen, die ein Tabellenblatt mit einem bestimmten Namen enthalten (z.B. "Jahressummen"), und mir die Namen der Dateien mit vollständigen Pfadangaben in eine Tabelle schreiben?
Vielen Dank für Eure Hilfe.
Gruß
Jürgen

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche von Tabellen mit best. Tabellenblättern
07.04.2008 14:12:08
Tabellen
Hallo,
dafür muss man jede .xls öffnen, prüfen und wieder schließen. Das kann Jahre dauern.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Suche von Tabellen mit best. Tabellenblättern
07.04.2008 14:16:20
Tabellen
Hallo Rudi,
deshalb wäre ja auch eine VBA-Lösung für mich interessant, denn das erspart mir das manuelle Öffnen-Prüfen-Schließen in den Dateiordnern über den Windows-Explorer.
Gibt es nicht irgendetwas als Vorlage (auch wenn es - bei vielen xls im Ordner - lange laufen sollte)?
Jürgen

Anzeige
AW: Suche von Tabellen mit best. Tabellenblättern
07.04.2008 14:31:00
Tabellen
Hallo,
teste:

Sub DateiListe()
Dim FSO As Object, oFolder As Object, oFiles As Object, oFile As Object
Dim strFolder As String, wks As Worksheet, wkb As Workbook
With Application.FileDialog(4)   '1=Open; 2=SaveAs; 3=FilePicker; 4=FolderPicker
.AllowMultiSelect = False
.InitialFileName = "c:\"
.InitialView = 2 '1=Liste; 2=Details; 3=properties; 4=Preview; 5=Thumbnail; 6=LargeIcons;  _
7=SmallIcons
.Title = "Bitte einen Ordner wählen"
If .Show = -1 Then
strFolder = .SelectedItems(1)
End If
End With
If strFolder = "" Then Exit Sub
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.getfolder(strFolder)
Set oFiles = oFolder.Files
For Each oFile In oFiles
If oFile.Name Like "*.xls" Then
Set wkb = Workbooks.Open(oFile)
For Each wks In Worksheets
If wks.Name = "Summen" Then   'anpassen
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = oFile
End If
Next wks
wkb.Close False
End If
Next oFile
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Suche von Tabellen mit best. Tabellenblättern
07.04.2008 15:32:00
Tabellen
Danke fürs erste, Rudi, ein vielversprechender Ansatz
Aber: wie kann ich verhindern, dass Workbook-Open-Makros ausgeführt werden, und wie kann ich die xls-Dateien im Nur-Lesen-Modus öffnen (um die Meldung mit der Schreibschutz-Empfehlung zu unterdrücken)?
Gruß
Jürgen

AW: Suche von Tabellen mit best. Tabellenblättern
07.04.2008 15:41:00
Tabellen
Hallo,
einfach so:

Sub DateiListe()
Dim FSO As Object, oFolder As Object, oFiles As Object, oFile As Object
Dim strFolder As String, wks As Worksheet, wkb As Workbook
With Application.FileDialog(4)   '1=Open; 2=SaveAs; 3=FilePicker; 4=FolderPicker
.AllowMultiSelect = False
.InitialFileName = "c:\"
.InitialView = 2 '1=Liste; 2=Details; 3=properties; 4=Preview; 5=Thumbnail; 6=LargeIcons;  _
_
7=SmallIcons
.Title = "Bitte einen Ordner wählen"
If .Show = -1 Then
strFolder = .SelectedItems(1)
End If
End With
If strFolder = "" Then GoTo exit_sub
On Error GoTo exit_sub
Application.EnableEvents = False
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.getfolder(strFolder)
Set oFiles = oFolder.Files
For Each oFile In oFiles
If oFile.Name Like "*.xls" Then
Set wkb = Workbooks.Open(oFile, ignorereadonlyrecommended:=True)
For Each wks In Worksheets
If wks.Name = "Summen" Then   'anpassen
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = oFile
End If
Next wks
wkb.Close False
End If
Next oFile
exit_sub:
Application.EnableEvents = True
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Suche von Tabellen mit best. Tabellenblättern
08.04.2008 10:26:00
Tabellen
Hallo Rudi,
beim Debugging bezieht sich der For Each

Set wkb = Workbooks.Open(oFile, ignorereadonlyrecommended:=True)
For Each wks In Worksheets
If wks.Name = "Summen" Then   'anpassen
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = oFile
End If
Next wks


immer auf die Tabellennamen der Arbeitsmappe, in der das Makro läuft, und nicht auf die Tabellannamen des mit Workbooks.Open geöffneten Files.
Kannst Du helfen?
Danke.
Gruß
Jürgen

Anzeige
AW: Suche von Tabellen mit best. Tabellenblättern
08.04.2008 11:26:28
Tabellen
Hi Jürgen,
probiers mal so
For Each wks In wkb.Worksheets
Gruß
Reinhard

AW: Suche von Tabellen mit best. Tabellenblättern
08.04.2008 13:00:00
Tabellen
Danke, Rudi und Reinhard, hat geklappt!
Gruß
Jürgen
;

Forumthreads zu verwandten Themen

Tabellenblätter miteinander verknüpfen
Ephraim

Guten Morgen,
leider schaff ich es nicht, zwei Tabellenblätter in einer Datei miteinander zu verknüpfen. Was in Tabellenblatt 1 steht soll auch automatisch in TB2 übertragen werden. Optimalerweise soll in TB 2 lediglich eine Spalte ausgefüllt werden. Der restliche Inhalt soll geschützt sein...
18.08.2008 07:19:00
Thread-ID: 1002497
4 Beiträge
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 Beiträge
aut.Füllen von Felden mittels Referenztabellen
Felden

Hallo,
ich habe folgende Situation:
Ich habe zu einer Artikelnummer eine Kundenartikelnummer und einen Preis. Diese Daten habe ich in einer "Referenztabelle", d.h. in einem eigenen Excelfile.
Ich möchte nun bei der Erstellung von Rechnungen lediglich die Artikelnummer eingeben. Exce...
24.09.2008 08:04:00
Thread-ID: 1011910
2 Beiträge
Verknüpfung mit vorigem Tabellenblatt
reiner

Hallo Leute
einer Datei wird jeden Monat ein neues dem dann aktuellen Monat entsprechendes Tabellenblatt hinzugefügt. Zelle Q3 des aktuellen Tabellenblattes soll den in Zelle A3 enthaltenen Wert des Vormonats (voriges Tabellenblatt) als Verknüpfung übernehmen.
Die hierfür erforderliche...
30.09.2008 09:20:35
Thread-ID: 1013261
5 Beiträge
Anzeige
Tabelle mittels eingebundenem Java jar-file füllen
Arthur

Ein fröhliches Hallo zusammen.
Ich habe ein Java jar-file, eingebunden in eine Excel-Datei. Die darin enthaltene Funktion soll per Knopfdruck aufgerufen werden, Daten aus einer anderen Anwendung abholen und das Ergebnis in einem Worksheet eintragen.
Der Knopfdruck samt Aufruf der Funkti...
27.11.2008 15:46:00
Thread-ID: 1028425
2 Beiträge
Wie Säulendiagramm mit Tabelle mit gestapelten Säu
sohsoh

Hallo,
ich habe folgendes Problem und schon wie ein Irrer probiert, aber bis jetzt noch keine Lösung gefunden.
Ich habe zu Verschiedenen Stoffen jeweils 2 Messwerte in 3 Verschiedenen Zuständen. Jetzt möchte ich ein Säulendigramm erstellen in denen ich 3 Säulen (zu den drei Zuständen je...
14.01.2009 10:48:22
Thread-ID: 1039519
2 Beiträge
Anzeige
Die ersten 5 Zeilen als fester Block
Markus

Hallo
Noch eine letzte Frage:
Wenn ich in einem Sheet die ersten 5 Zeilen mit Beschriftung und Datum habe sprich eine Bilanz.
Wie kann ich das bewerkstelligen, wenn die Bilanz oder die GuV Rechnung sich auf zwei Seiten verlängert, daß ich die ersten 5 Zeilen auch auf der zweiten Sei...
31.01.2009 01:17:00
Thread-ID: 1045564
2 Beiträge
Inhalte in Tabelle mit Makro löschen
Tom

Hallo Excel-Spezialisten,
ich benötige eure Hilfe.
Es geht um eine Tabelle, die die Zellen A5:E100 abdeckt. Es werden zeilenweise immer wieder neue Inhalte innerhalb dieser Tabelle neu eingefügt. Andere Inhalte sind aber "abgelaufen". Das "Ablaufdatum" ist älter als "Heute", daher solle...
19.03.2009 22:16:42
Thread-ID: 1061995
5 Beiträge
Zählenwenn mit Verknüpfung auf anderes Tabellenbl.
Udo

Hallo zusammen,
ich werde mal versuchen mein Problem so verständlich wie möglich zu beschreiben:
Im ersten Tabellenblatt einer Arbeitsmappe werden in den Zellen A1 bis A6 per Dropdownfeld Namen eingetragen, welche im 2. Tabellenblatt aufgeführt sind.
Hierbei sind die Namen im 2. Tab...
25.03.2009 20:54:55
Thread-ID: 1063976
6 Beiträge
Anzeige
Tabellenblätter mit Inhalt füllen
StefanS

Hallo zusammen,
ich komme einfach nicht weiter und mein Abgabetermin rückt immer näher - HILFE!
Ich möchte die Daten aus dem Tabellenblatt "Content" in Register übertragen.
Das Anlegen der Register_1 bis _n im Bezug auf die Werte in Spalte F funktioniert soweit schon.
Nun habe...
15.05.2009 08:14:00
Thread-ID: 1075298
9 Beiträge
Tabellenblätter mit gleichen Namen löschen
Thomas

Hallo liebe Gemeinde
Einen schönen Tag zusammen
Es geht einfach nicht weiter habe einen Knoten im Kopf.
Wäre nett wenn Ihr euch das Problem .mal anschaut.
Durch eine Routine wird das Tabellenblatt 1 Importiert.
Wenn der User es möchte kann er selbstverständlich immer wieder...
26.05.2009 12:36:29
Thread-ID: 1077360
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige