Office: Benötige Hilfe zu vba

Helfe beim Thema Benötige Hilfe zu vba in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich habe eine Herausforderung, die ich mit meinen vba-Kenntnissen nicht lösen kann. Die Problematik stelle ich per Screenshot da. Ich... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von chicken, 22. November 2022.

  1. chicken Neuer User

    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
     
  2. DL_
    DL_ hat Ahnung
    Moin Chicken

    MAXWENNS()
     
  3. HKindler
    HKindler User
    Hi,

    da braucht man kein VBA:
    C2: =WENN(MAXWENNS(B:B;A:A;A2)=B2;"x";"")
    runter ziehen.
     
    HKindler, 22. November 2022
    #3
  4. chicken Neuer User

    Benötige Hilfe zu vba

    Hallo,
    erst einmal Danke für die schnelle Antwort, aber ich bräuchte den Befehl als vba-Code
     
  5. Exl121150 Erfahrener User
    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
    
     
    Exl121150, 22. November 2022
    #5
  6. HKindler
    HKindler User
    Man kann sich auch von hinten durch die Brust ins Auge schießen…
     
    HKindler, 22. November 2022
    #6
  7. chicken Neuer User
    ich sag Euch vielen Dank für Eure Unterstützung
     
  8. Benötige Hilfe zu vba

    Wohl wahr!
    Darauf, MAXWENNS() durch Worksheetfunction.MaxIfs() in einer UDF zu "ersetzen", wäre selbst ich nicht gekommen.
    Benötige Hilfe zu vba :cool:
     
    RPP63_neu, 23. November 2022
    #8
  9. Sehr viel sinnvoller wäre hier imo ein Pivot-Table:
    • Auftragsnr. in Zeilen
    • iPos in Werte
    • iPos zusammenfassen nach Maximum
     
    RPP63_neu, 23. November 2022
    #9
  10. Exl121150 Erfahrener User
    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?
     
    Exl121150, 23. November 2022
    #10
  11. HKindler
    HKindler User
    Hi Anton,
    mein Spruch hat nicht dir gegolten. Was ich sagen wollte, hast du ja selbst mit
    ausgedrückt.
     
  12. 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
     
    RPP63_neu, 23. November 2022
    #12
  13. Benötige Hilfe zu vba

    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";""))
     
    RPP63_neu, 23. November 2022
    #13
  14. Exl121150 Erfahrener User
    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.
     
    Exl121150, 23. November 2022
    #14
Thema:

Benötige Hilfe zu vba

Die Seite wird geladen...
  1. Benötige Hilfe zu vba - Similar Threads - Benötige Hilfe vba

  2. Benötige Hilfe bei Formeln über 2 Tabellen

    in Microsoft Excel Hilfe
    Benötige Hilfe bei Formeln über 2 Tabellen: Guten Tag zusammen, ich darf etwas im Excel zaubern, bei dem ich leider keinen Schimmer davon habe. Beigefügt mein Excelbeispiel mit Kommentaren was alles in der jeweiligen Zelle zusammengezählt...
  3. Benötige Hilfe zu Formel

    in Microsoft Excel Hilfe
    Benötige Hilfe zu Formel: Wie in der Beispiel Tabelle hier benötige ich folgendes: [ATTACH] Wenn kein x in der Spalte gefunden werden sollte, über der das heutige datum steht, soll nichts passieren. Vielen Dank im Voraus...
  4. Benötige hilfe bei formel

    in Microsoft Excel Hilfe
    Benötige hilfe bei formel: *:)*Seit gegrüßt ich bräuchte unbedingt hilfe bei einer kleinen sache, und zwar geht es darum die zelle F1 zu sperren wenn in zelle A1-E1 sich nichts befindet. Erst wenn in zelle A1-E1 sich ein...
  5. benötige Hilfe zu einem Projet

    in Microsoft Access Hilfe
    benötige Hilfe zu einem Projet: Hallo zusammen, ich hoffe das ich hier richtig bin und der ein oder andere mir vielleicht helfen kann oder die ein oder andere Idee für mich hat.Mache sonst alles mit Excel, jedoch denke ich ist...
  6. Benötige sehr variables Makro

    in Microsoft Excel Hilfe
    Benötige sehr variables Makro: Hallo zusammen, Ich benötige Hilfe für ein Makro wo ich nicht weiter komme.... Das Makro muss folgendes „Können“: 1. Seite „Tourenplan“ auswählen 2. Spalte B soll kopiert werden aber nur wenn...
  7. Ich benötige Hilfe

    in Microsoft Teams Hilfe
    Ich benötige Hilfe: Guten Abend, ich benötige eine kostenlose App um SMSs von meinen Smartphone in mein Laptop zu übertragen. Ich komme nicht weiter.Können Sie mir helfen? Ich bedanke mich im Voraus. Laura...
  8. Benötige Hilfe bei VBA unter Excel 2010

    in Microsoft Excel Hilfe
    Benötige Hilfe bei VBA unter Excel 2010: Hallo Forum, ich habe ein selbst erstelltes Excel-Sheet und benötige Hilfe bei der Umsetzung mit VBA. Ich bin VBA-Neuling und relativ unerfahren. Folgendes enthält die Tabelle: Spalte A:...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden