Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Excel 2003 - Zelle auf bestimmten Inhalt überprüfen

Mitglied: Excel-Starter

Excel-Starter (Level 1) - Jetzt verbinden

09.08.2011 um 09:50 Uhr, 6091 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
09.08.2011 um 10:16 Uhr
Hallo,

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

01.
Sub vergleichen()
02.

03.
   Dim lngCount As Long
04.
    Dim wkb As Workbook
05.
    Dim strWert As String
06.
    
07.
    With Application.FileDialog(msoFileDialogOpen)
08.
        .AllowMultiSelect = True
09.
        .Show
10.
        For lngCount = 1 To .SelectedItems.Count
11.
           Set wkb = Workbooks.Open(.SelectedItems(lngCount))
12.
           strWert = wkb.Worksheets(1).Range("C4")
13.
           If Left(strWert, 1) <> "A" Then
14.
                iRow = iRow + 1
15.
                ThisWorkbook.Worksheets(1).Cells(iRow, 1) = .SelectedItems(lngCount)
16.
            End If
17.
            wkb.Close
18.
            Set wkb = Nothing
19.
        Next lngCount
20.
    End With
21.

22.
End Sub
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
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 ..
Ähnliche Inhalte
Batch & Shell

Powershell Excel bestimmten Inhalt löschen

gelöst Frage von TastuserBatch & Shell4 Kommentare

Hallo! Ich habe eine Excel-Tabelle (Tabelle1), die in Zellen B3 bis B15 und D3 bis D15 ein ü enthält. ...

Microsoft Office

Word bestimmt Sprache selbst

gelöst Frage von honeybeeMicrosoft Office1 Kommentar

Hallo, habe in Word 2016 ein nerviges Problem: Auf meinem Computer (Windows 10) sind zwei Sprachen installiert: Deutsch und ...

VB for Applications

Inhalt einer .txt (Zeilenweise) in Excel (Spaltenweise) importieren

gelöst Frage von ascendiaVB for Applications2 Kommentare

Guten Tag liebe administrator.de - Gemeinde, ich würde mich freuen, wenn Ihr mir bei folgendem Problem weiterhelfen könntet. Im ...

Mac OS X

Safari öffnet bestimmt Seite nicht

Frage von tomi93Mac OS X2 Kommentare

Hallo , ich habe an einem iMac bei uns im Unternehmen das Problem das Safari dort eine bestimmte Seite ...

Neue Wissensbeiträge
Firewall
PfSense 2.5.0 benötigt doch kein AES-NI
Tipp von ChriBo vor 21 StundenFirewall

Hallo, Wie sich einige hier erinnern werden hat Jim Thompson in diesem Aritkel beschrieben, daß ab Version 2.5.0 ein ...

Internet
Copyright-Reform: Upload-Filter
Information von Frank vor 2 TagenInternet1 Kommentar

Hallo, viele Menschen reden aktuell von Upload-Filtern. Sie reden darüber, als wären es eine Selbstverständlichkeit, das Upload-Filter den Seitenbetreibern ...

Google Android

Blokada: Tracking und Werbung unter Android unterbinden

Information von AnkhMorpork vor 2 TagenGoogle Android1 Kommentar

In Ergänzung zu meinem vorherigen Beitrag: Blokada efficiently blocks ads, tracking and malware. It saves your data plan, makes ...

Google Android
Facebooks unsichtbare Datensammlung
Information von AnkhMorpork vor 2 TagenGoogle Android2 Kommentare

Rund 30 Prozent aller Apps im Play-Store nehmen Kontakt zu Facebook auf, sobald man sie startet. So erfährt der ...

Heiß diskutierte Inhalte
Linux Userverwaltung
LogIn Versuche beschränken auf EINEN Versuch
gelöst Frage von GarroshLinux Userverwaltung23 Kommentare

Folgendes Problem Ich habe einen dezidierten Server beim Hoster gemietet, installiert ist Ubuntu 18.04.2 LTS‬ und als Webinterface Plesk. ...

Backup
Wo installiert man Veeam bei SoHo?
Frage von EDVMan27Backup14 Kommentare

Hallo, nachdem ich die neue Veeam CE bei mir getestet habe, wollte ich es einmal bei einem Kunden testen. ...

Ubuntu
Exchange Alternative auf Ubuntu
Frage von TELLOUbuntu11 Kommentare

Hi NG, wir müssen für unsere Kleine Firma (5 User) das Email / Kalendersystem neu einrichten. Ich könnte jetzt ...

Batch & Shell
Tasklist überprüfen
Frage von IleiesBatch & Shell10 Kommentare

Hallo zusammen, Wie kann ich in Batch überprüfen, ob gerade der Prozess "Skype.exe" ausgeführt wird? Also nicht so dass ...