Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datennamen vergleichen beim Einlesen

Datennamen vergleichen beim Einlesen
19.02.2016 22:55:12
Jens
Hallo,
ich kann die Dateien in einem Ordner einlesen, aber wie vergleiche ich sie mit einer Liste?
Fals in der Liste der Dateiname auftaucht wird der betreffende Dateiname nicht eingelesen.
https://www.herber.de/bbs/user/103718.xlsm

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datennamen vergleichen beim Einlesen
20.02.2016 11:20:21
Herbert
Hallo Jens,
probier mal den nachfolgenden Code. Aber zuerst nimmst du mal deinen Code aus dem KlassenModul (Tabelle1) heraus, denn der hat da nix zu suchen! Füge ein StandardModul ein und kopiere meinen Code dann da hinein:
Sub Datei()
Dim sPfad As String, sFile As String, i As Long, x As Long, a As Long, LastRow As Long
sPfad = ThisWorkbook.Path
sFile = Dir(sPfad & "\*.xls*")
With Sheets("Tabelle2")
LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
Do While sFile  ""
For a = 1 To LastRow
If .Cells(a, 1).Value  "" Then
If sFile = .Cells(a, 1).Value Then
Exit For
Else
i = i + 1
Cells(i, 1) = sFile
Exit For
End If
End If
Next a
sFile = Dir
Loop
End With
End Sub
Servus

Anzeige
AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:22
Herbert
Nur ein Test!

AW: Datennamen vergleichen beim Einlesen
20.02.2016 19:34:25
Maria
@ Herbert Grom.
Anscheinend stimmt irgendwas noch nicht ganz.
Könnten Sie nochmals drüberschauen? Dabei bitte die roten Anmerkungen beachten
https://www.herber.de/bbs/user/103738.xlsm

AW: Datennamen vergleichen beim Einlesen
21.02.2016 15:40:49
Herbert
Hallo Maria,
wieso jetzt plötzlich "Maria" und erst "Jens"?
Probiers mal damit:
Sub Datei()
Dim sPfad$, sFile$, i As Long, x As Long, a As Long, z As Long, LastRow As Long, sWkbName$
sPfad = ThisWorkbook.Path
sFile = Dir(sPfad & "\*.xls*")
With Sheets("Tabelle2")
LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
Do While sFile  ""
For a = 6 To LastRow
For x = 6 To LastRow
If sFile = .Cells(x, 1).Value Then GoTo nextsFile
Next x
i = i + 1
Cells(i, 1) = sFile
Exit For
Next a
nextsFile: sFile = Dir
Loop
End With
End Sub
Servus

Anzeige
.Cells(i, 1) = sFile
21.02.2016 15:42:59
Helmut
Hallo,
siehe den Punkt in dieser Zeile vor .Cells(i, 1) = sFile
ist das die Lösung?
Gruß Helmut

AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:26
Herbert
Nur ein Test!

AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:27
Herbert
Nur ein Test!

AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:27
Herbert
Nur ein Test!

AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:27
Herbert
Nur ein Test!

AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:28
Herbert
Nur ein Test!

AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:28
Herbert
Nur ein Test!

AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:29
Herbert
Nur ein Test!

AW: Ein letzter Test! owt
20.02.2016 18:27:55
Herbert
,.,.

AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:44
Herbert
Nur ein Test!

Noch ein Test
20.02.2016 12:50:40
Herbert
,,

AW: Datennamen vergleichen beim Einlesen
20.02.2016 12:41:46
Herbert
Nur ein Test!

AW: Noch ein Test2
20.02.2016 12:53:18
Herbert
,,,

300 Forumthreads zu ähnlichen Themen

Zellen mit gleichem Inhalt farblich markieren
TomTom

Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
10.12.2008 09:02:54
Thread-ID: 1031574
5 Beiträge
Anzeige
Summe bestimmter Werte in einer Spalte
Michael

Hallo zusammen,
bin neu hier und hätte eine Frage bezüglich der Berechnung einer Summe. Folgendes Szenario: Ich möchte in B1 eine Summe berechnen aus Werten der B Spalte. Soweit klar! Die einzelnen Werte in Spalte B werden in jeder Zeile mit einem Wert aus der A Spalte "nebenan" berechnet....
17.06.2009 20:47:04
Thread-ID: 1082369
2 Beiträge
Summen nach Namen und Tag
robert

hi,
und guten abend
ich werke an diesem problem schon den ganzen tag, bin am verzweifeln....
so wie auf blatt Tag 1 , hoffentlich gut beschrieben, sollte es sein.
GOLF
wenn möglich, bitte um hilfestellung ;-)
danke und gruß
robert
03.02.2010 17:14:51
Thread-ID: 1135223
7 Beiträge
Anzeige
Zellen mit gleichem Inhalt
Tobson

Hey
hab folgendes Problem, in meiner ersten Zeile stehen jeweils die Überschriften der Spalten. Ich will nun die Anzahl der Spalten herausfinden, in den das Wort "Level" in der Überschrift vorkommt. Level steht nicht als einzelnes Wort da, sondern ist beispielsweise um "0-Test" erweitert. B...
21.10.2010 15:59:33
Thread-ID: 1183374
3 Beiträge
Zellen mit gleichem Inhalt zählen
addi23

Hallo Zusammen,
ich habe zwei kleine Frage, die für Euch sicherlich ein Kinderspiel sind:
1. In einer großen Exeldatei möchte ich in einem Bestimmten Bereich (z.B. eine komplette Spalte, oder ein markierter Bereich) die Anzahl unterschiedlicher Zellwerte ermitteln.
2. In der selben...
19.04.2011 15:18:58
Thread-ID: 1211066
6 Beiträge
Zellen mit gleichem Inhalt automatisch verbinden
Lunatic82

Hallo zusammen,
ich hab mal wieder ein Problem bei dem Ihr mir bestimmt helfen könnt.
Ich habe eine Tabelle mit ca. 7000 Einträgen. In der Spalte B der Tabelle sind Werte eingetragen die sich unterschiedlich oft hintereinander wiederholen. Jetzt möchte ich, dass alle Zellen mit gleiche...
07.09.2011 15:10:38
Thread-ID: 1228951
4 Beiträge
Summe von Produkt dreier Zahlen weiterkopieren
Produkt

Hallo,
ich habe eine kleine Frage. In einer riesen Tabelle, in der ich alle Monate von Jan - Dez einzel habe über mehrere Jahre, soll ich nun am Ende der Tabelle Quartalszahlen bilden. Also Jan-Mrz, Apr- Jun..., wenn ich nun die erste Summe gebildet habe, würde ich gerne einfach die Formel...
01.12.2011 10:16:18
Thread-ID: 1240204
11 Beiträge
Summe versch. Werte in Spalte X in Abh. von ...
...

Hallo Zusammen,
im Voraus danke für Eure Hilfe !
Ich habe in einer Spalte (zb. x7 bis x10000) versch. EURO-Beträge.
Jedem Betrag wurde zwei Spalten weiter [(x+2)7 bis (x+2)10000] manuell best. Kategorien/Personen. zugeordnet. Person/Kategorie tauchen in der Spalte (x+2) nun selbstre...
06.01.2012 16:42:43
Thread-ID: 1244949
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
1
6
3
2
5
3
10
4
3
5
11
2
10
15
2
4
4
6
1
3
4
2
5