Vorgegebene Kriterien-Anzahl aus Sichtbaren Bereich ausgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo André,

achte bitte drauf, wie Du deinen Hilferuf formulierst: "Ich hoffe mir kann hier jemand eine VBA Lösung anbieten."
Da hier nichts kostenpflichtig angeboten werden darf, können wir mit diesem Satz nur davon ausgehen, dass Du eine vollständige, kostenlose Lösung erwartest. Wir verstehen uns als Helfer, nicht als Erlediger. Es gibt natürlich einige (und ich gehöre auch dazu), die die Fragestellung so spannend finden, dass sie mitmachen (immer Sudoku ist ja langweilig :-) Aber eine solche Formulierung ist schwierig.

Aber dann müsstest Du deine Fragestellung komplett neuaufstellen: stell Dir vor, Du hast absolut null Ahnung von dem Thema und liest deine Beitrag durch. Dann bekommst einen Gefühl, wie wir da mit unsere Fragezeichen im Kopf stehen.

Letztens: Du stufst dich selbst als VBA-Unerfahrenen, verlang aber eine VBA-Lösung. Kannst Du dann damit selbständig umgehen? Oder kommt gleich die nächste Nachfrage ("Es tut nicht")? Vielleicht kannst Du deine Frage in so kleine Einzelteile zerlegen, dass was VBA abdecken muss, so easy, dass wir sicher sind, dass Du damit zuercht kommst.

VG
Yal

Sub Auflisten() Dim Dic 'Dictionary Dim Z As Range 'Z wie Zelle Dim Elt 'Element of dictionary Dim Msg As String Set Dic = CreateObject("Scripting.Dictionary") 'Vergleichsliste aufbauen For Each Z In Range("M2:M5") Dic(Z.Value) = 0 Next 'Zellen prüfen und aufzählen For Each Z In Range(Cells(10, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column).End(xlUp)) If Not Z.EntireRow.Hidden Then For Each Elt In Dic.keys If Z.Value = Elt Then Dic(Elt) = Dic(Elt) + 1 Next End If Next 'Ergebnis anzeigen For Each Elt In Dic.keys Msg = Msg & vbLf & Elt & ": " & vbTab & Dic(Elt) Next MsgBox "Im sichtbaren Bereich: " & Msg Set Dic = Nothing End Sub

Hallöchen,

hier mal ein Ansatz für Spalte F. Das ist jetzt alles entsprechend Deinem Beispiel ziemlich festgeschnallt, kann man aber auch noch flexülisieren :-))
Die Angabe x=> usw. kann man über benutzerdefinierte Formatierung einstellen oder das im Anschluss das Makro erledigen lassen und die Ausgabe natürlich direkt in die vorgesehenen Spalten leiten.
Für die anderen beiden Spalten kannst Du eine Schleife aussen herum programmieren und dabei die Bereichsangaben für die 3 Spalten flexibel gestalten. Falls Du nicht weißt, wie, nochmal fragen ...

Sub zzzzst()

'Variablendeklarationen

Dim rngZellen, arrTreff(3)

'Schleife ueber alle sichtbaren Zellen der Spalte F

For Each rngZellen In Sheets("Gefiltert").Range("F10:F30").SpecialCells(xlCellTypeVisible)

  Fallunterscheidung

  Select Case rngZellen.Value

    'Je nach Zellinhalt erfolgt in Abhaengigkeit des Eintrags in Spalte M die Zuzaehlung im Treffer-Array

    Case Range("M2").Value: arrTreff(0) = arrTreff(0) + 1

    Case Range("M3").Value: arrTreff(1) = arrTreff(1) + 1

    Case Range("M4").Value: arrTreff(2) = arrTreff(2) + 1

    Case Range("M5").Value: arrTreff(3) = arrTreff(3) + 1

  End Select

Next

'Uebernahme der Ergebnisse in Spalte J

Range("J2:J5").Value = WorksheetFunction.Transpose(arrTreff)

End Sub

Sub Auflisten() Dim Dic 'Dictionary Dim Z 'Z wie Zelle, wird auch als allg. Durchlaufvarible verwendet Dim Msg As String Set Dic = CreateObject("Scripting.Dictionary") 'Besser wäre die Anbindung von "Microsoft Scripting Runtime" (siehe "Extras", "Verweise...") 'Vergleichsliste aufbauen For Each Z In Range("M2:M5") Dic(Z.Value) = 0 Next 'Zellen prüfen und aufzählen For Each Z In Range(Cells(10, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column).End(xlUp)) If Not Z.EntireRow.Hidden Then If Dic.Exists(Z.Value) Then Dic(Z.Value) = Dic(Z.Value) + 1 Next 'Ergebnis anzeigen For Each Z In Dic.Keys Msg = Msg & vbLf & Z & ": " & vbTab & Dic(Z) Next MsgBox "Im sichtbaren Bereich: " & Msg Set Dic = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Vorgegebene Kriterien-Anzahl aus Sichtbaren Bereich ausgeben

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vorgegebene Kriterien-Anzahl aus Sichtbaren Bereich ausgeben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread