Noch ein Filterproblem

Forumthread: Noch ein Filterproblem

Gregor

Hallo
Ich möchte Daten mit Zellen mit mehreren Einträgen filtern bzw. drucken. Als Beispiel habe ich folgende Datei hochgeladen:
https://www.herber.de/bbs/user/72365.xls
Bei dieser Filterung werden nur Zellen mit Zahlen im definierten Zahlenbereich gefiltert/gedruckt, wenn sie einzeln in den Zellen stehen. Wie muss der Code, dass auch eine Zahl bei mehreren Einträgen für den Druck berücksichtigt wird?
Veilen Dank und Gruss
Gregor

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Noch ein Filterproblem

19.11.2010 00:01:45

fcs

Hallo Gregor,
damit der Filter entsprechend eingesetzt werden kann muss du die Spalten 2 bis 5 als Text formatieren.
Danach die Zellen mit Daten in den Spalten 2 bis 5 selektieren und mit nachfolgendem Makro Inhalte neu eintragen.

Sub InhaltinText()
Dim Zelle As Range
For Each Zelle In Selection
If Not IsEmpty(Zelle) Then Zelle.Value = Zelle.Text
Next
End Sub

Anschließend kannst du entsprechende Text.Filter setzen.
Gruß
Franz

AW: Noch ein Filterproblem

19.11.2010 10:49:41

Gregor

Hallo Franz und weitere Excel-Cracks
Das habe ich nun versucht, ich komme aber leider nicht zum Ziel. Die Filterung/Druck erfolgt über den Code cmbDrucken_Click. Beim Drucken sollen alle Zeilen gedruckt werden, sobald eine Zahl in einer Zelle im definierten Filterbereich vorkommt (zB Code 970 bis 1200). Vermutlich etwas anspruchsvoll, wäre aber toll, wenn das irgendwie möglich wäre.
Danke und Gruss
Gregor

AW: Noch ein Filterproblem

19.11.2010 21:42:14

fcs

Hallo Gregor,
hier eine angepasste Drucken-Prozedur, in der die Kriterien für das ausblenden/nicht ausblenden von Zeilen angepasst sind.
Gruß
Franz

Sub cmbDrucken_Click()
Dim vDebiCodes As Variant, iIndex As Integer, bHidden As Boolean
Dim Spalte As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
'--- Auswahl treffen
For iRow = 0 To lstDebicode1.ListCount - 1
If lstDebicode1.Selected(iRow) Then
iCounter = iCounter + 1
AnfangInput = lstDebicode1.List(iRow, 3)
GoTo Marke1
End If
Next iRow
Marke1:
For iRow = iRow To lstDebicode2.ListCount - 1
If lstDebicode2.Selected(iRow) Then
iCounter = iCounter + 1
EndeInput = lstDebicode2.List(iRow, 3)
GoTo Marke2
End If
Next iRow
Marke2:
Unload usrDrucken
intLastRow = Worksheets("BES Kosten").Cells(Rows.Count, 1).End(xlUp).Row
'---durchsucht Spalten O bis R und T bis X
For iRow = 2 To intLastRow
bHidden = True
For Spalte = 2 To .Cells(1, Columns.Count).End(xlToLeft).Column
Select Case Spalte
Case 2 To 5
If Cells(iRow, Spalte)  "" Then
vDebiCodes = Split(Cells(iRow, Spalte), Chr(10))
For iIndex = LBound(vDebiCodes) To UBound(vDebiCodes)
If CLng(vDebiCodes(iIndex)) >= AnfangInput _
And CLng(vDebiCodes(iIndex))

AW: Noch ein Filterproblem

20.11.2010 00:30:59

Gregor

Hallo Franz
Toll, habe den Code soeben eingebaut, getestet und er funktioniert bestens.
Vielen herzlichen Dank und schönes Wochenende
Gregor

Beliebteste Forumthreads (12 Monate)

Forumthread: Noch ein Filterproblem

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread