Excel 2003 - Zelle auf bestimmten Inhalt überprüfen

Mitglied: Excel-Starter

Excel-Starter (Level 1) - Jetzt verbinden

09.08.2011 um 09:50 Uhr, 6250 Aufrufe, 3 Kommentare

Hallo an Alle,

folgendes Problem stellt sich mir:

ich habe ein paar Tausend Excel Dateien mit je einem Arbeitsblatt, bei denen der Eintrag in einer festen Zelle überprüft werden muss, und wenn er nicht übereinstimmt soll der Dateiname in Form einer Liste ausgegeben werden, wobei nur der Anfang des Zelleninhalts identisch sein muss.

Beispiel:

Die zu überprüfende Zelle in allen Dateien ist: C4

Der Inhalt der Zelle soll beginnen mit: A (gefolgt von Zahlen und Buchstaben, zusammengesetzt oder auch mit Leerzeichen))

Wenn die Zelle nicht mit " A " beginnt, soll der Dateiname in einer Liste (für Ausdruck) ausgegeben werden.


Ist dies möglich, bzw. wer weiß Rat?


Vielen Dank an Alle

Euer Excel-Starter
Mitglied: 83928
83928 (Level 1)
09.08.2011 um 10:16 Uhr
Hallo,

schnell in VBA geschrieben sieht es ungefähr so aus:

Der Code gehört in ein Excel-Modul. Er öffnet ein FileOpen-Dialog (mit Mehrfachauswahl).
Alle markierten Dateien werden nacheinander geprüft und der Dateiname wird in die Excel-Datei, in der auch der Code ist, geschriebnen

Gestestet ist es allerdings noch nicht. ;)

Gruß abababa
Bitte warten ..
Mitglied: 76109
76109 (Level 3)
09.08.2011 um 16:29 Uhr
Hallo abaaba!

Wobei der Like-Operator eventuell besser geeignet wäre, um die Anfangsbedinungen etwas besser einzugrenzen.

Also, z.B. den Buchstaben "A" mit mindestens 3 Ziffern (ein # steht für 1 Ziffer) und Resttext (*):
If Not strWert Like "A###*" Then ...

Gruß Dieter
Bitte warten ..
Mitglied: Excel-Starter
10.08.2011 um 09:24 Uhr
Vielen Dank,

funktioniert tadellos.


Euer Excel Starter
Bitte warten ..
Heiß diskutierte Inhalte
MikroTik RouterOS
Simples VLAN bringt mich zur Verzweiflung
gelöst Daniel26Vor 18 StundenFrageMikroTik RouterOS27 Kommentare

Moin, ich bin sehr neu im Mikrotik-Bereich, aber schon dabei, aufzuegeben. Wir verbauen in unserer Hardware Switche von Mikrotik. Bisher waren da Netgear-Teile drin, ...

LAN, WAN, Wireless
Switch läuft, ist aber nicht erreichbar
gelöst AndiPeeVor 1 TagFrageLAN, WAN, Wireless19 Kommentare

Hallo zusammen, mein Problemfall einleitend kurz umrissen: Privates Netzwerk Es funktioniert grundsätzlich, allerdings habe ich immer mal ein paar Ausfälle im WLAN-Netzwerk und bin ...

Windows Netzwerk
Sporadisch kein Netz auf mehreren Win10-Maschinen
SolarflareVor 1 TagFrageWindows Netzwerk6 Kommentare

Hallo, ich habe seit Monaten einen eigenartigen Effekt in unserem Windows-Netz. Windows-Domäne mit ca. 100 Maschinen, alle Clients aktuelles Windows 10. Die Maschinen hängen ...

Microsoft
STRG + ALT + ENTF
TezzlaVor 11 StundenAllgemeinMicrosoft11 Kommentare

Mahlzeit zusammen, wir haben gerade im Kollegenkreis über Sinn und Unsinn der Sperrbildschirmentriegelung STRG + ALT + ENTF unter Win10 diskutiert. Mich würde hierzu ...

VB for Applications
Auf SQL Datenbank schreiben welche Sich im Firmennetzwerk befindet
RSST-SORVor 1 TagFrageVB for Applications12 Kommentare

Hallo Ich habe ein funktionierendes VBA Makro im EXCEL welches mit: conn.Open "driver={SQL Server};" & _ "server=RSST-OFFICEIII\RSSTSQLSERVER;database=RSSTZeiterfassung;" Daten in die Tabelle schreibt Nun würde ...

Windows 10
SMB Performance VPN
Guhl22Vor 1 TagFrageWindows 104 Kommentare

Hallo zusammen, wir stellen bei uns in der Firma ein sehr merkwürdiges Phänomen fest. Zugriffe über VPN auf gemappte Netzlaufwerke (über vbs Logon Skript ...

E-Mail
Alternative zu horde webmail
fisch56Vor 1 TagFrageE-Mail6 Kommentare

Hallo, ich habe das horde webmail auf meinem Server, macht allerdings Probleme. Suche daher eine Alternative. Das Postfach hat viele Unterordner, die z.B. bei ...

Outlook & Mail
Outlook Ansicht
gelöst Kisters.SolutionsVor 1 TagFrageOutlook & Mail9 Kommentare

Hallo zusammen, seit kurzem sieht der Posteingang im Outlook 2019 eines Kollegen plötzlich anders aus. Standard ist das die ungelesenen Mails mit einem blauen ...