Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

min und max wert in listbox per vba

min und max wert in listbox per vba
20.11.2008 12:47:01
kirsche
hallo leute,
dank beverly und tino bin ich ein ganzes stück schlauer und weiter gekommen, ich finde dieses forum einfach klasse und möchte ein großes lob euch allen aussprechen.
nun hab ich aber doch noch eine frage: in zwei weiteren textboxen möchte ich die kleinste und die größte spanne ausgeben, kann mir da jemand auf die sprünge helfen?
https://www.herber.de/bbs/user/56981.xls
gruß kirsche

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: min und max wert in listbox per vba
20.11.2008 13:15:33
JogyB
Hallo. 

Dim i As Long
Dim listArr() As Double
ReDim listArr(0 To Me.ListBox1.ListCount - 1)
For i = 0 To Me.ListBox1.ListCount - 1
listArr(i) = Me.ListBox1.List(i)
Next
Me.txt_max = Application.Max(listArr)
Me.txt_min = Application.Min(listArr)


Die Bezeichnung stimmen jetzt natürlich nicht, aber ich kann hier keine Dateien runterladen.
Gruss, Jogy

AW: min und max wert in listbox per vba
20.11.2008 13:32:35
kirsche
hallo jogy,
soweit funktioniert es, danke. wie kann ich die spalte ändern, denn momentan sucht das makro in der 1.spalte und somit die kleinste und größte artikelnummer. ich möchte aber die 2.spalte durchsuchen.
das makro habe ich etwas angepasst:

Public Sub min_max()
Dim i As Long
Dim listArr() As Double
ReDim listArr(0 To ListBox1.ListCount - 1)
For i = 0 To ListBox1.ListCount - 1
listArr(i) = ListBox1.List(i)
Next
TextBox2 = Application.max(listArr)
TextBox3 = Application.Min(listArr)
End Sub


gruß kirsche

Anzeige
AW: min und max wert in listbox per vba
20.11.2008 13:49:00
JogyB
Hi.
listArr(i) = ListBox1.List(i, 1)
Gruss, Jogy
AW: min und max wert in listbox per vba
20.11.2008 14:07:00
kirsche
hallo jogy,
das hat super geklappt, ich hab es schon mit +1 in diversen versionen versucht, auf komma 1 bin ich nicht gekommen.
nun hab ich aber noch ein problem, manchmal ist kein wert vorhanden in spalte 1, dann springt der debugger an, wie kann ich das umgehen?
gruß kirsche
AW: min und max wert in listbox per vba
20.11.2008 14:15:00
kirsche
sorry, hab nicht richtig nachgedacht. für den max-wert habe ich noch eine if-anweisung eingefügt.
If ListBox1.List(i, 1) "" Then
listArr(i) = ListBox1.List(i, 1)
End If
aber nun wirft er mir beim min-wert 0 aus. ist ja auch korrekt, nur möchte ich den nächstgrößeren wert als 0 als min-wert angezeigt bekommen.
gruß kirsche
Anzeige
AW: min und max wert in listbox per vba
20.11.2008 15:03:58
JogyB 

Public Sub min_max()
Dim i As Long
Dim listArr() As Double
Dim offSet As Long
ReDim listArr(0 To Me.ListBox1.ListCount - 1)
offSet = 0
For i = 0 To Me.ListBox1.ListCount - 1
If Not IsNull(Me.ListBox1.List(i, 1)) Then
listArr(i - offSet) = Me.ListBox1.List(i, 1)
Else
offSet = offSet + 1
End If
Next
ReDim Preserve listArr(0 To UBound(listArr) - offSet)
Me.TextBox2 = Application.Max(listArr)
Me.TextBox3 = Application.Min(listArr)
End Sub


Sollte gehen.
Noch allgemein: Lass das Me. vor den ganzen Controls besser stehen. Wenn Du jemals den Code in ein anderes Modul auslagern willst, dann musst Du anstelle von Me zwingend den Namen des UserForm eintragen. Mit dem Me. kannst Du das für alle Controls mit Suchen/Ersetzen erledigen, ansonsten musst Du es für jedes Control einzeln machen. Sieht jetzt hier nicht schlimm aus, bei längerem Code kann das ziemlich nervig sein.
Gruss, Jogy

Anzeige
AW: min und max wert in listbox per vba
20.11.2008 15:20:15
kirsche
super, ich danke dir.
ich lade die tabelle mit hoch, vielleicht sucht ja jemand so etwas nochmal und dann steht die lösung im archiv.
https://www.herber.de/bbs/user/56985.xls
gruß kirsche

309 Forumthreads zu ähnlichen Themen

maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
Anzeige
| HERBERS Excel Forum
kai

hallo zusammen,
ich würde gerne per makro die letzten beiden beschriebenen zellen der spalte h löschen?
würde mich freuenn, wenn mir das jemand kurz aufschreiben könnte.
danke und viel grüße kai
26.04.2009 19:51:39
Thread-ID: 1071220
6 Beiträge
Function in VBA
Josef

Hallo!
Wie kann ich bitte eine selbstgeschnitzte Function in VBA einsetzen? txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40) 'If wks.Cells(ComboBox1.ListIndex + 1, 40) = "030" Then If txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40) Then TextBox26.Text = BHZ End If Function B...
22.10.2009 13:35:47
Thread-ID: 1111362
5 Beiträge
Anzeige
Suche unterschiedliche Max-Wert in einer Spalte
Volker

Hallo zusammen,
in Spalte T stehen Hunderte von siebenstelligen Artikelnummern. Die haben je nach Sparte eigene Nummerkreise:
Sparte A (1.xxx.xxx), Sparte B (2.xxx.xxx) und Sparte C (3.xxx.xxx).
Es kommen innerhalb der Sparten regelmaessig weitere Artikel hinzu.
Suche jeweils di...
14.03.2011 11:00:24
Thread-ID: 1205567
6 Beiträge
mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Max in VBA
Dieter

Hallo zusammen,
die u.g. Berechnung des Max-Wertes funktioniert so nicht.
Sum3 = Evaluate("max((Daten!Kalwo=Aktuell)*(Daten!Ressource=Maschine)*(Daten!Schicht=1)*(Daten!Stillid=Still1))") , habe ich in meinem Mokro eingebaut.....
Wie muss sie korrekt aussehen ?
In der Tabellenfo...
23.05.2011 17:01:54
Thread-ID: 1215644
6 Beiträge
Achsenbeschriftung, VBA durch min max aus Zelle
Peter

Hallo liebe Leute,
ich habe wieder ein Problem.
Ich habe ein simples Leistung/Drehzal Diagramm in Abhängigkeit der Drehzahl.
Die Leistung ist links, als vertikale Primärachse, das Drehmoment rechts als vertikale Sekundärachse und die Drehzahl als vertikale Primärachse angeordnet.
25.06.2011 08:28:33
Thread-ID: 1219617
13 Beiträge
Max in VBA
Frank

Hallo an Alle,
kurze Frage ich habe in VBA bspw. a, b, c .... n Werte die direkt in VBA berechnet werden. Wie bekomme ich hier den Maximalwert heraus?
Max(a,b,c) funtioniert leider nicht.
Viele Grüße,
Frank
09.09.2011 10:43:40
Thread-ID: 1229209
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
18
5
4
6
5
3
5
12
2
2
3
3
2
7
5
7
8
6
2
2
8
3
5
4