Summewenn - Filterung der Daten

28/10/2008 - 08:23 von Andreas H. | Report spam
(leider wird meine Antwort bei meinem letzten Thread nicht angenommen :
( daher muß ich n neuen Erstellen, ich bitte um Nachsicht!)
Danke an die Antworten im letzten Thread !

leider bin ich (noch) nicht der Crack in VBA-Programmierung,
verstehe zwar die Ablàufe kann mir aber keinen selber zusammen
basteln :( Kann mir jmd mit einer VBA-Prozedur aushelfen?

Guten Morgen Crackz !

Mit Summewenn und zàhlenwenn filter ich in Excel 2003 auf einem
Datenblatt(Sheet2) aus einer Tabelle(Sheet1) mit mehr als 5000
Eintràgenklappt tadelos!

Wie kann ich es dynamisch machen, dass im selben Tabellenblatt(Sheet2)
z.B. ab der 10 Zeile die gefilterten Zeilen aus dem anderen Datenblatt
dargestellt werden?

Z.zt. gibt mir die Formel ja nur Anzahl und Summe aus, würde aber
gerne zusàtzlich auch die Datensàtze angezeigt bekommen.

1000 DANK
 

Lesen sie die antworten

#1 Andreas H.
30/10/2008 - 09:35 | Warnen spam
Hi hab das ganze jetz mit ein paar Makros gelöst ! Kann man das evtl.
noch eleganter machen?

Sub filter_betrag()

Application.ScreenUpdating = False

Sheets("Filter Betràge").Select

If Range("F15") = "Event" Then

Range("F15").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Columns("F:F").Select
Selection.FormatConditions.Delete
Range("E7").Select

kein_Rahmen

tabelle_erstellen

Else

tabelle_erstellen

End If

End Sub


Sub tabelle_erstellen()

Sheets("Daten").Select
Columns("A:M").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=Range _
("Z5:Z6"), Unique:=False

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Filter Betràge").Select
Range("F15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Columns("F:Y").EntireColumn.AutoFit

Sheets("Daten").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Sheets("Filter Betràge").Select

Range("K:K").Select
Selection.NumberFormat = "#,##0 $"
Range("G:G").Select
Selection.NumberFormat = "m/d/yyyy"

Rahmen

Application.ScreenUpdating = True
End Sub


Sub Rahmen()

Sheets("Filter Betràge").Select
Range("F15").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("F15").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("D5").Select
End Sub


Sub kein_Rahmen()

Sheets("Filter Betràge").Select
Range("F15").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheets("Auswertung").Select
End Sub

Ähnliche fragen