Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1588to1592
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
Inhaltsverzeichnis

Maximalwert einer Liste finden VBA

Maximalwert einer Liste finden VBA
02.11.2017 10:36:53
Michael
Hallo an die Experten,
Ich habe eine Tabelle mit Projekten wo vereinfacht in der Spalte A folgende Aufzählung durchgeführt wird 1-0, 2-0, 3-0 usw. Wenn ein Teilprojekt aufgeführt wird ändert sich die Zweite Position um +1 z.B 1-1, 1-2 usw. Ich suche nach einer VBA Lösung die, die Spalte A nach dem Maximalwert durchzusucht (Ersten Nummern vor dem -) und in der Zeile B1 diesen ausgibt.
Folgenden VBA Code habe ich bereits verwendet:
Sub FindeMaximumAusSpalteA()
Range("H1") = WorksheetFunction.Max(Columns(3))
End Sub
Leider funktioniert dieser Code bei mir bei dem Standard Formatierung 1-0 nicht. Wenn ich eine Zahl eintippe dann geht das.
Gibt es dafür eine Lösung?
Vielen Dank!
Gruß, Michael

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Maximalwert einer Liste finden VBA
02.11.2017 10:54:04
Peter(silie)
Hallo,
hier mal eine Beispiel Mappe: https://www.herber.de/bbs/user/117378.xlsm
Hast du dir das ganze so vorgestellt?
Hier nur Code:
Public Sub Get_Max()
Dim ws As Worksheet
Dim lRow, pos, i As Long
Dim tmp(), data(), varItem As Variant
Set ws = ThisWorkbook.Sheets(1)
With ws
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
tmp = .Range(.Cells(1, 1), .Cells(lRow, 1)).Value2
ReDim data(UBound(tmp))
For i = 1 To UBound(tmp)
varItem = tmp(i, 1)
pos = InStr(1, varItem, "-", vbTextCompare) - 1
If pos > 0 Then data(i) = CLng(Mid(varItem, 1, pos))
Next i
.Range("B2").Value = Application.WorksheetFunction.Max(data)
End With
End Sub

Anzeige
AW: Maximalwert einer Liste finden VBA
02.11.2017 11:06:16
Michael
Hallo Peter,
ja vielen Dank! Genau so habe ich es mir vorgestellt! Es funktioniert wunderbar!
Vielen vielen Dank!
Gruß, Michael

338 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige