VBA in allen Excel-Mappe eines Verzeichnisses in einer bestimmten Tabelle eingeblendete Zeilen nach FALSCH durchsuchen.

Antwort

Um in allen Excel-Dateien eines Verzeichnisses in einer bestimmten Tabelle nach dem Wert "FALSCH" in den eingeblendeten Zeilen zu suchen, kannst du folgendes VBA-Skript verwenden. Dieses Skript durchläuft alle Excel-Dateien in einem angegebenen Verzeichnis, öffnet jede Datei, sucht in der angegebenen Tabelle nach dem Wert "FALSCH" und gibt die Ergebnisse in einer Meldung aus. Hier ist ein Beispiel für ein solches Skript: ```vba Sub SucheFalschInAlleMappen() Dim wb As Workbook Dim ws As Worksheet Dim cell As Range Dim folderPath As String Dim fileName As String Dim foundCells As String ' Verzeichnis angeben folderPath = "C:\Dein\Verzeichnis\Pfad\" ' Ändere den Pfad entsprechend ' Durchlaufe alle Excel-Dateien im Verzeichnis fileName = Dir(folderPath & "*.xls*") Do While fileName <> "" Set wb = Workbooks.Open(folderPath & fileName) ' Hier die spezifische Tabelle angeben (z.B. "Tabelle1") Set ws = wb.Sheets("Tabelle1") ' Ändere den Tabellennamen entsprechend ' Durchlaufe alle Zellen in der Tabelle For Each cell In ws.UsedRange If cell.EntireRow.Hidden = False Then ' Nur eingeblendete Zeilen If cell.Value = False Then ' Suche nach FALSCH foundCells = foundCells & wb.Name & " - " & ws.Name & " - Zelle: " & cell.Address & vbCrLf End If End If Next cell wb.Close SaveChanges:=False fileName = Dir Loop ' Ergebnisse anzeigen If foundCells <> "" Then MsgBox "Folgende Zellen enthalten den Wert FALSCH:" & vbCrLf & foundCells Else MsgBox "Kein Wert FALSCH gefunden." End If End Sub ``` ### Hinweise: 1. Ändere den `folderPath` zu dem Verzeichnis, in dem sich deine Excel-Dateien befinden. 2. Passe den Tabellennamen in `Set ws = wb.Sheets("Tabelle1")` an, um die richtige Tabelle auszuwählen. 3. Das Skript sucht nur in eingeblendeten Zeilen und gibt die Ergebnisse in einer Meldung aus. Um das Skript auszuführen, öffne Excel, drücke `ALT + F11`, um den VBA-Editor zu öffnen, füge ein neues Modul hinzu und kopiere den Code dort hinein. Schließe den Editor und führe das Makro aus.

Kategorie: Programmierung Tags: VBA Excel FALSCH
Frage stellen und sofort Antwort erhalten

Verwandte Fragen

Wie kann man eine per Access-VBA automatisch geöffnete Excel-Datei direkt wieder schließen?

Um eine Excel-Datei, die per Access-VBA geöffnet wurde, automatisch wieder zu schließen, solltest du das Excel-Objektmodell in deinem Access-VBA-Code verwenden. Hier ein Beispiel, wie das g... [mehr]

Was bedeutet der Befehl "QuellBlatt1.Rows(2).Copy" in VBA?

Der Befehl `QuellBlatt1.Rows(2).Copy` in VBA (Visual Basic for Applications) bedeutet, dass die **zweite Zeile** (Row 2) des Arbeitsblatts mit dem Namen oder Objektverweis `QuellBlatt1` **kopiert** wi... [mehr]

Wie lässt sich in Excel VBA der Typ eines Tabellenblatts (Chart oder Worksheet) ermitteln?

In Excel VBA kannst du den Typ eines Tabellenblatts (ob es sich um ein Arbeitsblatt oder ein Diagrammblatt handelt) mit der Type-Eigenschaft des jeweiligen Objekts ermitteln. Hier ein Beispiel: ```vb... [mehr]

Wie kann die VBA-Formel angepasst werden, sodass alle Mitarbeiter in die Zieltabelle übertragen werden?

Hier ist die überarbeitete Version des Makros, die **jeden Mitarbeiter** aus dem Bereich C9:C66 der Quell-Tabelle ("Personen einzelnd drucken") in die Ziel-Tabelle ("Arbeitsplan&qu... [mehr]

Wie kopiere ich mit PowerShell zwei Excel-Zellen kombiniert in eine neue Zelle eines neuen Arbeitsblattes?

Um zwei Excel-Zellen per PowerShell zu kombinieren und das Ergebnis in eine neue Zelle eines neuen Arbeitsblatts zu schreiben, kannst du das COM-Objekt von Excel verwenden. Hier ein Beispiel, wie das... [mehr]

Wie kann man in Access VBA eine Pause von 10 Sekunden einlegen?

In Access VBA kannst du eine Pause von 10 Sekunden mit der Sleep-Funktion aus der Windows-API einlegen. Hier ein Beispiel, wie das funktioniert: ```vba Declare PtrSafe Sub Sleep Lib "kernel32&qu... [mehr]

Wie funktioniert oPPT.Presentations.Open(sFile) in VBA?

Die Methode `oPPT.Presentations.Open(sFile)` stammt aus der Automatisierung von Microsoft PowerPoint mit VBA (Visual Basic for Applications) oder anderen Programmiersprachen, die COM-Automatisierung u... [mehr]

Wie kann ich mit VBA den Wert einer benannten Zelle in eine Zelle eines anderen Arbeitsblatts kopieren?

Um mit VBA den Wert einer Zelle, der ein definierter Name zugewiesen wurde, in eine Zelle eines anderen Arbeitsblatts zu kopieren, kannst du folgenden Code verwenden: ```vba Sub WertKopieren() &#... [mehr]

Mit welcher Funktion kann ich in VBA einen im Arbeitsblatt ermittelten Wert anzeigen?

In VBA kannst du einen Wert, den dein Makro zuvor ermittelt hat, mit der Funktion `MsgBox` anzeigen. Beispiel: ```vba Dim ermittelterWert As Double ermittelterWert = Worksheets("Tabelle1").... [mehr]

Wie kann man in Access VBA die Bildschirmaktualisierung verhindern bzw. den Bildschirm einfrieren?

In Microsoft Access (VBA) gibt es keine direkte Methode wie `Application.ScreenUpdating = False` (wie in Excel), um den Bildschirm während der Ausführung von Code "einzufrieren". D... [mehr]