Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 5927 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 ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

VB for Applications
gelöst Zelle in Excel per Makro auswählen (7)

Frage von Enriqe zum Thema VB for Applications ...

Microsoft Office
gelöst Excel VBA Letzte Zelle Suchen dann rechnen und Wert in Zelle Übertragen (3)

Frage von Addi089 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...