Excel VBA soll von A1 bis L139 filtern. In Spalte L stehen Suchkriterien 1 und 2, gefilterte Daten sollen von Spalte A bis K gedruckt werden.

Antwort

Um in Excel VBA eine Datenbank zu filtern und die gefilterten Daten von Spalte A bis K zu drucken, kannst du den folgenden Code verwenden. Dieser Code filtert die Daten in den Zellen A1 bis L139 basierend auf den Kriterien in Spalte L und druckt dann die gefilterten Daten. ```vba Sub FilterAndPrint() Dim ws As Worksheet Dim rng As Range Dim criteria1 As String Dim criteria2 As String ' Arbeitsblatt festlegen Set ws = ThisWorkbook.Sheets("DeinBlattName") ' Ersetze "DeinBlattName" mit dem tatsächlichen Namen des Arbeitsblatts ' Bereich festlegen Set rng = ws.Range("A1:L139") ' Suchkriterien festlegen criteria1 = "Suchkriterium1" ' Ersetze mit deinem ersten Suchkriterium criteria2 = "Suchkriterium2" ' Ersetze mit deinem zweiten Suchkriterium ' Autofilter anwenden rng.AutoFilter Field:=12, Criteria1:=criteria1, Operator:=xlOr, Criteria2:=criteria2 ' Spalte L ist die 12. Spalte ' Drucken der gefilterten Daten ws.PrintOut From:=1, To:=1, Copies:=1, Collate:=True ' Autofilter zurücksetzen rng.AutoFilter End Sub ``` ### Hinweise: 1. Ersetze `"DeinBlattName"` mit dem tatsächlichen Namen deines Arbeitsblatts. 2. Setze `Suchkriterium1` und `Suchkriterium2` durch die tatsächlichen Suchkriterien, die du verwenden möchtest. 3. Der Code filtert die Daten in Spalte L und druckt die gefilterten Daten von Spalte A bis K. Um den Code auszuführen, öffne den VBA-Editor (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.

Kategorie: Programmierung Tags: Excel VBA Daten
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 können mehrere Spalten verschiedener Excel-Dateien mit xlwings zusammengefügt werden?

Um mehrere Spalten aus verschiedenen Excel-Dateien mit xlwings zusammenzuführen, kannst du die folgenden Schritte befolgen: 1. **Installation von xlwings**: Stelle sicher, dass xlwings installie... [mehr]

Wie lautet der VBA-Code, um aus Excel eine E-Mail zu erstellen mit einem Empfänger im BCC?

Um in Excel mit VBA eine E-Mail zu erstellen, bei der der Empfänger im BCC steht, kannst du folgenden Code verwenden: ```vba Sub SendEmailWithBCC() Dim OutlookApp As Object Dim OutlookMa... [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]