Office: Benötige Hilfe zu vba

Hallo zusammen,
ich habe eine Herausforderung, die ich mit meinen vba-Kenntnissen nicht lösen kann. Die Problematik stelle ich per Screenshot da.
Ich bedanke mich schon im Vorfeld bei Euch für Eure Unterstützung und bin total gespannt auf die Lösungsansätze, Ihr helft mir extrem weiter.
Gruß
Chicken

 

Moin Chicken

MAXWENNS()

 

Hi,

da braucht man kein VBA:
C2: =WENN(MAXWENNS(B:B;A:A;A2)=B2;"x";"")
runter ziehen.

 

Hallo,
erst einmal Danke für die schnelle Antwort, aber ich bräuchte den Befehl als vba-Code

 

Hallo,

Code:

Option Explicit

'Statt
'C2: =WENN(MAXWENNS(B:B;A:A;A2)=B2;"x";"")
'Folgendes in
'C2: =MaxAnzeiger(A:A; B:B; A2; B2)
'Formel bis C8 hinunterkopieren

Function MaxAnzeiger(rgArtikel As Range, rgAnzahl As Range, Artikel As String, AnzArtikel As Variant) As String
  Dim Anz As Variant
 
  Anz = WorksheetFunction.MaxIfs(rgAnzahl, rgArtikel, Artikel)
  If Anz = AnzArtikel Then MaxAnzeiger = "x" Else MaxAnzeiger = ""
 
End Function

 

Man kann sich auch von hinten durch die Brust ins Auge schießen…

 

ich sag Euch vielen Dank für Eure Unterstützung

 

Wohl wahr!
Darauf, MAXWENNS() durch Worksheetfunction.MaxIfs() in einer UDF zu "ersetzen", wäre selbst ich nicht gekommen.

 

Sehr viel sinnvoller wäre hier imo ein Pivot-Table:
• Auftragsnr. in Zeilen
• iPos in Werte
• iPos zusammenfassen nach Maximum

 

Hallo,

es hätte ja jeder von euch den merkwürdigen Wunsch des Users erfüllen können, die Formel in einer VBA-Funktion zu kapseln. Oder ist dies zu viel verlangt, den Wünschen von Usern in einem Hilfeforum zu entsprechen und seien sie noch so eigenartig?

 

Hi Anton,
mein Spruch hat nicht dir gegolten. Was ich sagen wollte, hast du ja selbst mit

ausgedrückt.

 

Auch von mir noch eine Anmerkung!
Eine WSF in einer UDF zu kapseln (um sie dann in Zellen zu benutzen), ist in meinen Augen höchst unglücklich.
Schließlich röchelt VBA mit einem Kern, die genuine Tabellenfunktion hingegen mit allen.
Das mag sich bei 50 Zellen nur unmerklich auswirken, steigt aber gewaltig bei größeren Datenmengen.

Genauso berechtigt ist aber auch mein Hinweis, dass man Verbesserungsvorschläge für den "workflow" macht, siehe meine Pivot.
Ich würde, wenn ich unbedingt nur die Werte der Formel in der Spalte haben wollte,
• die Formel in C2 schreiben
• einen Doppelklick auf das Ausfüllkästchen machen
• Strg+c gefolgt von dem neuen Shortcut Strg+Umschalt+v machen

Heißt umgesetzt in VBA:

Code:

Sub Max_X()
Dim lz&
lz = Cells(Rows.Count, 1).End(xlUp).Row
With Range("C2:C" & lz)
  .Formula = "=IF(MAXIFS(B:B,A:A,A2)=B2,""x"","""")"
  .Value = .Value
End With
End Sub

Wohl wissend, dass .Value = .Value um den Faktor >7 langsamer ist als .Copy: .PasteSpecial xlPasteValues

Gruß (in der Hoffnung, dass meine Beiträge nicht negativ aufgefasst werden)
Ralf

 

Und noch eine Formel für Excel 2021/365/online.
Wird nur in C2 eingetragen und spillt automatisch nach unten:
=WENN(MAXWENNS(B:B;A:A;A2:A10)=B2:B10;"x";"")

Man kann einiges an Geschwindigkeit gewinnen, wenn man das Ganze dynamisch in einer LET() kapselt:
=LET(anz;ANZAHL2(B:B);
a;A2:INDEX(A:A;anz);
b;B2:INDEX(B:B;anz);
WENN(MAXWENNS(b;a;a)=b;"x";""))

 

Hallo Ralf,

danke für den konstruktiven VBA-Hinweis. Das hatte ich bei meiner Version auf die Schnelle nicht bedacht - ich wollte einfach nur den insistierenden Wunsch des Users erfüllen.