Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1712to1716
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
1712to1716
1712to1716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

höchsten Wert markieren

höchsten Wert markieren
02.10.2019 13:09:02
Thomas
Hallo Excelfreunde,
ich möchte gern in einer Listbox die Zeile mit dem höchsten Wert ( Zahl ) in der ersten Spalte markieren.
Ich kriege dies einfach nicht hin.
bisher habe ich immer den höchsten Wert in der Tabelle gesucht und dann mit der Listbox verglichen.
For Spaltemark = 0 To UF1.ListBox2.ListCount - 1
If UF1.ListBox2.List(Spaltemark, 0) = wertausbox1 Then
UF1.ListBox2.Selected(Spaltemark) = True
End If
Next Spaltemark
Nun möchte ich aber gern den höchsten Wert nur in der Listbox suchen. ( Ohne Tabellen Zugriff )
Das muss doch auch irgendwie gehen.
Kann mir dabei jemand helfen?
MFG Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: höchsten Wert markieren
02.10.2019 13:28:27
Daniel
HI
im Prinzip so: 
for i = 0 to Listbox1.ListCount - 1
if CDbl(Listbox1.List(i, 1)) > MerkerWert then
MerkerWert = CDBl(Listbox1.List(i, 1))
MerkerZeile = i
end if
Next
Listbox1.Selected(i) = True
Gruß Daniel
AW: höchsten Wert markieren
02.10.2019 22:45:59
Thomas
Hallo Daniel,
sorry das ich erst jetzt antworte.
Die Idee finde ich super. Nur muss ich jetzt noch raus bekommen wie ich den Merkerwert finden kann.
Hast Du da eine Idee?
mfg thomas
AW: höchsten Wert markieren
02.10.2019 23:17:54
Thomas
Hallo Excelfreunde,
ich hab etwas das funktioniert.
Doch ich glaube das geht viel besser.
So muss ich die Listbox zweimal durchgehen.
Kann daraus jemand etwas machen?
Besten dank schon mal für euer interesse.
mfg thomas
Private Sub CommandButton2_Click()
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
MsgBox Application.Max(listArr)
MerkerWert = Application.Max(listArr)
For Spaltemark = 0 To listbox1.ListCount - 1
If listbox1.List(Spaltemark, 0) = MerkerWert Then
listbox1.Selected(Spaltemark) = True
End If
Next Spaltemark
End Sub

Anzeige
AW: höchsten Wert markieren
04.10.2019 13:02:06
Dieter
Hallo Thomas,
das könnte z.B. so aussehen (ich habe die Bestimmung vom MerkerWert in die Initialize-Prozedur der UserForm gelegt, das geht natürlich ganz analog z.B. in einer CommandButton_Click_Prozedur):
Private Sub UserForm_Initialize()
Dim i As Long
Dim iMax As Long
Dim letzteZeile As Long
Dim MerkerWert As Double
Dim rng As Range
Dim varListe As Variant
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Worksheets(1)
letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If letzteZeile > 1 Then
Set rng = ws.Range("A2").Resize(letzteZeile - 1)
Else
Exit Sub
End If
lstTest.RowSource = "'[" & wb.Name & "]" & ws.Name & "'!" & rng.Address
varListe = lstTest.List
For i = LBound(varListe) To UBound(varListe)
If varListe(i, 0) > MerkerWert Then
MerkerWert = varListe(i, 0)
iMax = i
End If
Next i
lstTest.Selected(iMax) = True
If iMax > 0 Then
lstTest.TopIndex = iMax - 1
End If
End Sub
https://www.herber.de/bbs/user/132343.xlsm
Viele Grüße
Dieter
Anzeige
besten dank an Dieter
04.10.2019 22:01:46
Thomas
Hallo Dieter,
besten dank das du dir dies mal angeschaut hast.
Nicht nur das ist cool, auch die Lösung ist sehr interessant.
So wie du sie Listbox füllst habe ich noch nie gesehen.
Damit werde ich mal ein wenig rum testen bis ich das Macro richtig verstanden habe.
Und sorry das ich erst jetzt antworte.
Hab vielen dank für deine mühe.
mfg thomas

155 Forumthreads zu ähnlichen Themen

Diagramm mit stündlicher Skalierung/X-Achse
Jan

Hallo zusammen,
ich möchte in Excel ein Diagramm erstellen. Allerdings will ich bei der Zeitachse (X-Achse) eine Unterteilung in Stunden (nicht wie üblich in Tagen).
Ist das möglich ?
Vielen Dank im voraus !
Gruss Jan
08.09.2008 12:29:00
Thread-ID: 1008115
2 Beiträge
Anzeige
Durchgehende Linie mit EINEM Wert bei Diagramm?
Frank

Hallo zusammen,
ich habe ein Balkendiagramm mit Werten für die Monate Januar bis Dezember. Ein zusätzlicher Wert aus der Datentabelle soll als durchgehende Linie über die 12 Monate dargestellt werden ohne an der Datentabelle Ergänzungen vornehmen zu müssen.
Geht das überhaupt in Excel?...
26.01.2009 07:40:00
Thread-ID: 1043728
3 Beiträge
Diagramm y-Achse bei Minimum x-Achse schneiden
Marco

Hallo zusammen.
Ich erstelle per VBA aus einer generierten .txt Datei, ein Excelblatt, in dem immer 2 Datenreihen als Diagramm dargestellt werden. (3 Diagramme)
Mein Problem ist nun, dass ich die y-Achse, der Übersichtlichkeit halber, am Minimum der x-Achse Schneiden soll.
Habe geda...
05.03.2009 09:32:13
Thread-ID: 1056671
4 Beiträge
Anzeige
Diagramm mit zwei Datenpunkten je x-Achsenpunkt
Broadcast

Hallo,
ich habe folgendes Problem. Ich versuche ein Diagramm zu erstellen, bei dem eine Darstellung wie die Folgende das Ergebnis sein soll:
http://ews.tu-dortmund.de:8080/public/lecture/logedugate/public/PWL/pw_eoq/bilder/pw_eoqbed.gif
Das Problem ist, dass Excel bei mir einfach ke...
26.08.2009 13:10:53
Thread-ID: 1098739
3 Beiträge
Diagramm mit mehreren Informationen in X-achse
LotharP

Hallo Leute,
ich habe eine Kollegin die mich gefragt hat ob man hierzu eine sinnvolle Grafik erstellen könnte.
https://www.herber.de/bbs/user/64659.xls
Meines Erachtens wohl nur pro Monat, aber dann auch recht schwierig!?
Hat jemand eine Idee wi man das hinkriegt oder kann mir e...
25.09.2009 14:28:40
Thread-ID: 1105317
3 Beiträge
Diagramm X Achse Dynamisch
SteffenS

Hallo Zusammen,
ich wollte meine X-Achse mit:
Dim diaaxes1 As String, diaaxes2 As String
diaaxes1 = "=" & WS.Name & "!" & WS.Range(WS.Cells(2, 1), WS.Cells(2, 13)).Address '(RowAbsolute:=False, ColumnAbsolute:=False)
diaaxes2 = "=" & WS.Name & "!" & WS.Ra...
02.04.2010 09:29:44
Thread-ID: 1149955
3 Beiträge
Diagramm X-Achse darstellen
Herbert

Hallo Experten,
ich habe drei Spalten. A beinhaltet das Datum. B die Uhrzeit in 1/4-Stunden-Abschnitten. C einen Wert. Es ist ein Monat abgebildet
Wenn ich dazu ein Liniendiagramm ausgeben möchte, erscheint in der X-Achse ein fetter schwarzer Balken. Ist mir auch logisch, da Excel nicht...
03.06.2010 11:45:03
Thread-ID: 1160136
7 Beiträge
Linie mit einem Wert in einem Balkendiagramm
Frank

Hallo zusammen,
hoffe mir kann jm. weiterhelfen:
Ich habe ein Balken-Jahresdiagramm für 2011 vorliegen, d.h. 12 Balken, für jeden Monat 1 Balken.
Ich möchte gerne den Durchschnitsswert des Jahresergebnisses 2010 als druchgängige Linie über dieses Balkendiagramm legen.
Das Datenb...
24.11.2010 10:46:42
Thread-ID: 1188476
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

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
1
1
2
3
5
2
2
2
6
1
3
2
1
4
4
1
15
2
5
4
1
3
1
1
2