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