Anzeige
Archiv - Navigation
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Daten selektieren/filter und drucken

VBA Daten selektieren/filter und drucken
07.10.2016 14:29:49
Addi
Hallo Zusammen,
ich habe eine Datenquelle in der in Spalte A die Selektionskriterien hinterlegt sind...z.B. eindeutige Kundennummern.
Nun möchte ich über 2 Dropdownfelder enweder eine, oder maximal 2 Kundennummern (daher 2 Dropdownfelder) aus Spalte A auswählen, auf die dann die gesamte Datenbasis gefilter warden soll und mittels Button "Print" in ein auf eine Seite (Landscape) breites Format gedruckt warden soll.
Leider kann ich kein Beispiel uploaden - ist hier geblockt...von daher unten die Skizze im Textfeld...
Vielen Dank und viele Grüße
Addi
Datenquelle
Spalte A Spalte B Spalte C Spalte D
1 a aa aaa
1 b bb bbb
1 c cc ccc
1 d dd ddd
2 e ee eee
2 f ff fff
2 g gg ggg
3 h hh hhh
3 i ii iii
3 j jj jjj
3 k kk kkk
3 l ll lll
Druckansicht mit Auswahl 1
Spalte A Spalte B Spalte C Spalte D
1 a aa aaa
1 b bb bbb
1 c cc ccc
1 d dd ddd
Druckansicht mit Auswahl 1 und 3
Spalte A Spalte B Spalte C Spalte D
1 a aa aaa
1 b bb bbb
1 c cc ccc
1 d dd ddd
3 h hh hhh
3 i ii iii
3 j jj jjj
3 k kk kkk
3 l ll lll

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Daten selektieren/filter und drucken
07.10.2016 15:39:41
UweD
Hallo
Userbild
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren

Private Sub ComboBox1_Change()
Filtern
End Sub
Private Sub ComboBox2_Change()
Filtern
End Sub
Sub Filtern()
On Error GoTo Fehler
If AutoFilterMode Then AutoFilterMode = False ' Autofilter ausschalten
If ComboBox1.Value  "" Then
If ComboBox2.Value  "" Then 'CB 1 und CB2 mit Inhalt
With Columns("A:A")
.AutoFilter
.AutoFilter Field:=1, Criteria1:=ComboBox1.Value, _
Operator:=xlOr, Criteria2:=ComboBox2.Value
End With
Else
With Columns("A:A") 'nur CB 1 mit Inhalt
.AutoFilter
.AutoFilter Field:=1, Criteria1:=ComboBox1.Value
End With
End If
Else
With Columns("A:A") 'Beide CB leer
.AutoFilter
.AutoFilter Field:=1
End With
End If
Err.Clear
On Error GoTo Fehler
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Den beiden CB wurde ListFillRange Daten!A:A zugeordnet.
LG UweD
https://www.herber.de/bbs/user/108650.xlsm
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige