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, 6053 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
VB for Applications

Excel - Wenn Zelle eine bestimmte Farbe hat, dann soll sie einen bestimmten Inhalt annehmen

gelöst Frage von C.Mue83VB for Applications4 Kommentare

Hallo zusammen, ich versuche mir gerade ein kleines Excel-Sheet zu basteln. Bin leider ein völliger Anfänger was VBA angeht. ...

Microsoft Office

Wenn Inhalt Zelle X dann bestimmte Zellen

gelöst Frage von KnuefiMicrosoft Office2 Kommentare

Hallo zusammen, ich hoffe mir kann jemand weiterhelfen. Ich habe eine Excel Datei mit zwei Tabellen Blätter Tabelle1 Tabelle2 ...

Microsoft Office

Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten

gelöst Frage von packmann2016Microsoft Office5 Kommentare

ich möchte mit Hilfe einem Makro Zellen die einen bestimmten Inhalt ("G" und "A") haben ausblenden. Versuchte mit dem ...

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. ...

Neue Wissensbeiträge
Linux Netzwerk

Installation eines Logservers mit Loganalyzer als Debian-VM auf Hyper-V

Anleitung von lcer00 vor 11 StundenLinux Netzwerk

Zuerst sei auf den schönen Beitrag von aqui hier im Forum verwiesen, in dem die loganalyzer-installation bereits beschrieben ist: ...

Humor (lol)
Antennagate 2018
Information von magicteddy vor 11 StundenHumor (lol)2 Kommentare

Da haut der angekaute Elektronikhersteller die teuersten Geräte auf den Markt und bekommt anscheinend die Basics mal wieder nicht ...

Datenschutz

Die Datenkrake Google verlängert ihr Arme mal wieder ein wenig, automatische Anmeldung

Tipp von magicteddy vor 1 TagDatenschutz3 Kommentare

Benutzer mit einem Google Account und gespeicherten Zugangsdaten werden von chrome 69 automatisch bei Google angemeldet, natürlich alles zum ...

Verschlüsselung & Zertifikate
Meine Wissenssammlung zu Bitlocker
Erfahrungsbericht von DerWoWusste vor 2 TagenVerschlüsselung & Zertifikate3 Kommentare

Die Motivation für diesen Beitrag waren die vielen Posts rund um dieses Thema, die deutlich machen, wie viele Einzelaspekte ...

Heiß diskutierte Inhalte
E-Mail
Welche ist die beste E-Mail Groupware für die Zukunft?
Frage von ITCrowdSupporterE-Mail24 Kommentare

Guten Tag allerseits :) Ich möchte mich mit einer Frage heute mal an die Schwarmintelligenz wenden. Aktuell befasse ich ...

Firewall
Wesyb Offline
Frage von DkuehlbornFirewall14 Kommentare

Hallo Kollegen, ein Kunde hat von Wesyb die Sicherheitslösung im Einsatz. Seit August scheint deren Internetseite nicht mehr verfügbar ...

Video & Streaming
DVD auf Festplatte sichern
Frage von Thor01Video & Streaming13 Kommentare

Hallo, mittlerweile hat meine DVD Sammlung ein alter erreicht wo die eine oder andere DVD schon das Zeitliche gesegnet ...

Server-Hardware
Empfehlung für Hardware eines Software Routers
Frage von janosch12Server-Hardware12 Kommentare

Hallo Gemeinde, ich brauche von euch ein paar Tipps in Sachen Router-Hardware. Aktuell haben wir auf einem 2 HE ...