Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Microsoft Microsoft Office

Mitglied: Excel-Starter

Excel-Starter (Level 1) - Jetzt verbinden

09.08.2011 um 09:50 Uhr, 5986 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
Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(2)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (16)

Frage von Lynkon zum Thema TK-Netze & Geräte ...