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
KI fragen

Verwandte Fragen

Gibt es If Not (Bedingung) Then in VBA für Excel?

Ja, in VBA für Excel gibt es die Möglichkeit, eine Bedingung mit **If Not (Bedingung) Then** zu prüfen. Das Schlüsselwort **Not** kehrt die Bedingung um. Hier ein Beispiel: ```vba... [mehr]

Ist 'Range(Cells(a,10):Cells(b,10)).Copy' im VBA-Code korrekt?

Die Syntax `Range(Cells(a,10):Cells(b,10)).Copy` ist in VBA (Visual Basic for Applications) **nicht korrekt**. In VBA muss der Bereich innerhalb der `Range`-Funktion als String oder als zwei separate... [mehr]

Wie kann ich mit VBA den Bereich 'Test' in Blatt 1 kopieren und in Blatt 2 ab Zelle B18 einfügen?

Um in Excel mit VBA einen Bereich namens "test" aus Blatt 1 zu kopieren und in Blatt 2 ab Zelle B18 einzufügen, kannst du folgenden VBA-Code verwenden: ```vba Sub BereichKopieren()... [mehr]

Wie kann man Zahlen in Excel-VBA ohne wissenschaftliches Format in eine .txt-Datei schreiben?

Um Zahlen wie 6,9999999999 in Excel-VBA beim Schreiben in eine .txt-Datei **nicht** im wissenschaftlichen Format (z. B. 6,9999999999E+00), sondern exakt so wie sie sind (mit allen Nachkommastellen), z... [mehr]

Wie lautet die Syntax, um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren?

Um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren, verwendest du folgende Syntax: ```vba Worksheets("Tabellenblattname").Activate ``` Ersetze dabei `"Tabellenblattname"`... [mehr]

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 ich mit einem VBA-Makro die Zeilen 8 bis 10 ausblenden?

Um in Excel mit einem VBA-Makro die Zeilen 8 bis 10 auszublenden, kannst du folgenden Code verwenden: ```vba Rows("8:10").Hidden = True ``` So gehst du vor: 1. Drücke `ALT + F11`, um... [mehr]

Wie ruft makro1() in VBA makro2() mit dem Wert 5 auf?

So sieht das in VBA aus: ```vba Sub Makro1() Call Makro2(5) End Sub Sub Makro2(ByVal Wert As Integer) MsgBox "Der übergebene Wert ist: " & Wert End Sub ``` **Erkläru... [mehr]