Office: (Office 365) Größte zahl in spalte in TextBox

Hallo zusammen



Ich möchte gerne das die größte zahl aus der Spalte B in der TextBox angezeigt wird. So weit bin ich schon gekommen.

Code:

Private Sub CommandButton1_Click()
Dim Spalte As Long
Dim ErsteZeile As Long

  Spalte = 2 ' Spalte A
  ErsteZeile = 3 ' Zeile 1

  Dim LetzteZeile As Long

  LetzteZeile = ThisWorkbook.Sheets("Liste").Cells(Rows.Count, Spalte).End(xlUp).Row

  Dim MaxWert As Variant

  MaxWert = WorksheetFunction.Max(ThisWorkbook.Sheets("Liste").Range(ThisWorkbook.Sheets("Liste").Cells(ErsteZeile, Spalte), ThisWorkbook.Sheets("Liste").Cells(LetzteZeile, Spalte)))

  With Me.TextBox1

    .Text = MaxWert

  End With
End Sub

Leider komme ab ich ab da nicht weiter. Der Haken an der Sache ist.



Ich habe 3 Zahlen Bereiche 17 22 23

17000 – 21999, 22000-22999 und 23000-23999

Diese Bereiche sollen mit 3 OptionButton unterschieden werden.



Ich hoffe es kann mir jemand weiterhelfen.



Gruß Michael und wünschen allen schönen Pfingsten

 

Hallo Michael,

in meiner Datei wird das max angezeigt in der Textbox1.
Zu Deiner Datei kann ich nichts schreiben, da ich nicht auf fremde Rechner schaue.

 

Hallo Hajo,

Danke für die info. Die Datei ist im Anhang.

Gruß Michael

 

Hallo Michael,

man sollte scho erwähnen, das eesd eine UserForm ist.
Auch in Dewiner Datei wird der Max Wert angezeigt.

Gruß Hajo

 

Hallo Hajo,
Entschuldigung habe ich vergessen zu schreiben.

Das ist teilweise richtig.

Mein Plan/Idee ist es.

Wenn ich nun den OptionButton1 aktiviere, soll mir der höchste Wert aus dem Bereich 17000 – 21999 angezeigt werden.
Wenn ich nun den OptionButton2 aktiviere, soll mir der höchste Wert aus dem Bereich 22000 – 22999 angezeigt werden.
Wenn ich nun den OptionButton3 aktiviere, soll mir der höchste Wert aus dem Bereich 23000 – 23999 angezeigt werden.

Im normal Fall gibt es keine Werte unter 17000 und auch keine über 23999.

Anhand der Beispieldatei:
Ist OptionButton1 aktiv dann sollte in der TextBox der Wert 17056 stehen
Ist OptionButton2 aktiv dann sollte in der TextBox der Wert 22003 stehen
Ist OptionButton3 aktiv dann sollte in der TextBox der Wert 23003 stehen

Gruß Michael

 

Das konnte ich nicht aus dem Code sehen
Es soll also nicht das Maximum in die Textbox1, sondern die Zahlen lt. Deinem letzten Beitrag?
Maximum wäre auch immer 0, da keine Werte vorhanden?

Code:

Option Explicit

Private Sub CommandButton1_Click()
    Dim Spalte As Long
    Dim ErsteZeile As Long
    Dim LoLetzte As Long
    Spalte = 2
    ' Die letzte Zeile in der Spalte ermitteln
    Dim LetzteZeile As Long
    LetzteZeile = ThisWorkbook.Sheets("Liste").Cells(Rows.Count, Spalte).End(xlUp).Row
    If OptionButton1 Then
'        ErsteZeile = 17000 ' Zeile 1
'        LoLetzte = 21999
'        ' Die maximale Zahl finden
'        Dim MaxWert As Variant
'        With ThisWorkbook.Sheets("Liste")
'            MaxWert = WorksheetFunction.Max(.Cells(Spalte, ErsteZeile), Cells(splate, LoLetzte))
'        End With
'        Die maximale Zahl in die TextBox schreiben
'        Me.TextBox1 .Text = MaxWert
        TextBox1.Text = 17056
    ElseIf OptionButton2 Then
'        ErsteZeile = 22000 ' Zeile 1
'        LoLetzte = 22999
'        ' Die maximale Zahl finden
'        Dim MaxWert As Variant
'        With ThisWorkbook.Sheets("Liste")
'            MaxWert = WorksheetFunction.Max(.Cells(Spalte, ErsteZeile), Cells(splate, LoLetzte))
'        End With
'        ' Die maximale Zahl in die TextBox schreiben
'        Me.TextBox1 .Text = MaxWert
        TextBox1.Text = 22003
    ElseIf OptionButton3 Then
'        ErsteZeile = 23000 ' Zeile 1
'        LoLetzte = 23999
'        ' Die maximale Zahl finden
'        Dim MaxWert As Variant
'        With ThisWorkbook.Sheets("Liste")
'            MaxWert = WorksheetFunction.Max(.Cells(Spalte, ErsteZeile), Cells(splate, LoLetzte))
'        End With
'        ' Die maximale Zahl in die TextBox schreiben
 '        Me.TextBox1 .Text = MaxWert
        TextBox1.Text = 23003
    End If
End Sub

Gruß Hajo

 

Hi,

einmal mit Formeln und mit VBA:

 

Hallo Hajo,

vielen dank so habe ich es mir vorgestellt. War schon dabei das ganze mir einer Hilfszelle zu machen.

vielen lieben dank

Wünsche Dir noch schöne Pfingsten.

Gruß Michael

 

Hallo Michael,

also lösche alle Zeilen mit '

Gruß Hajo

 

Hallo Edgar,
Dir auch vielen lieben Dank

Mit Formel hatte ich es auch nur meine ist eine andere.

Code:

=MAXWENNS(B3:B25000;B3:B25000;">17000";B3:B25000;"<21999")

Dir auch frohe Pfingsten.

Gruß Michael

 

Hallo,

Ebenfalls einfach.

Code:

Private Sub CommandButton1_Click()
Dim rng As Range, werte, j As Long
 Set rng = Range("b3", Cells(Rows.Count, 2).End(xlUp))
 werte = Array(21999, 22999, 23999)
  For j = 1 To 3
    If Me("OptionButton" & j) Then TextBox1 = Application.MaxIfs(rng, rng, "<" & werte(j - 1))
  Next j
End Sub

 

Hi

Das ganze müsste ohne eine einzige Zeile Code funktionieren

1. Ersetze die Optionbuttons durch eine Listbox mit den drei Auswahloptionen

• 17000-21999
• 22000-22999
• 23000-23999

Und definiere für diese Listbox eine Ausgabezelle, in welche dann automatisch der Wert geschrieben wird (Zelladresse in die Eigenschaft ControlSource eintragen, bspw Tabelle1!A1)


Schreibe dann in eine Weitere Zelle die Berechnungsformel, verwende hierbei die Zelle, die mit der Listbox verknüpft ist ,(A1)

=MaxWenns(B:B;B:B;">="&Textvor(A1;"-");B:B;"<="&Textnach(A1;"-"))

Die Ausgabe in der Userform machst du dann ebenfalls mit einer Listbox, Verknüpfe dazu die Listbox mit der Zelle mit der Formel, schreibe die Zelladresse in die Eigenschaft RowSource.

Gruß Daniel

 

Hallo Michael,

auch wenn es schon funktionierende Vorschläge gibt, hänge ich mal meins mit hinten dran.
Da braucht es keinen Button mehr. Es funktioniert via Klasse.
Den .Tag des jeweiligen Optionbutton weißt du den Ziffernbereich mit Komma als Trenner zu: 17000,21999 für Optionbutton1 usw.
ins Modul des Userforms:

Code:

Option Explicit
    Private msoOb() As cls_Optionbutton

Private Sub UserForm_Initialize()
    Dim i&
    ReDim msoOb(1 To 3)
    For i = 1 To 3
        Set msoOb(i) = New cls_Optionbutton
        Set msoOb(i).Optionbutton = Controls("OptionButton" & i)
    Next i
End Sub

Erzeuge ein Klassenmodul mit dem Namen: cls_Optionbutton
ins Klassenmodul:

Code:

Option Explicit
    Public WithEvents Optionbutton As MSForms.Optionbutton

Private Sub Optionbutton_Click()
    Dim sp: sp = Split(Optionbutton.Tag, ",")
    Dim rng As Range: Set rng = Tabelle5.Range("B3", Tabelle5.Cells(Rows.Count, 2).End(xlUp))
    Optionbutton.Parent.TextBox1 = WorksheetFunction.MaxIfs(rng, rng, ">=" & sp(0), rng, "<=" & sp(1))
End Sub

Gruß Uwe

 

Hallo alle zusammen,

Ich bin wieder zuhause und habe nochmal alles testen können. Ich habe auch neue Daten eingetragen

@Hajo
Bei deinem Code kommt immer derselbe Wert raus egal was ich eintrage und nach dem ich mir den Code angeschaut habe, habe ich gesehen warum. Du hast mich da wohl falsch verstanden. Das Ergebnis, was ich geschrieben habe, wäre das aus der Beispiel Datei. Wenn weitere Daten dazu kommen, ändert sich natürlich auch die Ergebnisse. Leider verstehe ich das ganze auskomentierte nicht wirklich.

@Edgar
Wenn ich den OptionButton1 auswähle und den Button drücke, kommt erst das richte Ergebnis raus und wenn ich erneut drauf drücke, kommt was ganz anderes raus.

@Harry
Funktioniert perfekt.

@Daniel
Sollte schon über die OptionButton gehen da später noch ein anderer Code damit zusammen häng.

@Uwe
Funktioniert auch perfekt

Vielen lieben Dank alle zusammen und wünsche euch noch schöne Pfingsten.

Gruß Michael

 

"Sollte schon über die OptionButton gehen da später noch ein anderer Code damit zusammen häng."

Gerade das wird wesentlich einfacher,wenn du nur ein Steuerelement hast und nicht viele