Max.Werte

Hallo,
Brauche wieder einmal eure hilfe.
Ich habe in einen Formular mit einen ListBox wo ich 3 items Auswahlen kann.
In mein Data Sheet (Mit der Name Data) habe ich 6 Spalte (A, E, I, M, Q, U) mit Werthen stehen, x.Ahnzal zeilen lang.
Jetz will ich ereichen das Abhänglich von ListBox Eintrag, der Maximum Werth von der Abhanglichen Spalte, in Spalte Y geschrieben wird. Der Anzahl Zeilen soll er Automatisch Suchen, Anfangend ab Zeile 3
Zbs.
ListBox item A = Maximum Werth von Spalte A, I, Q in Spalte Y
ListBox item B = Maximum Werth von Spalte E, M, U in Spalte Y
ListBox item C = Maximum Werth von Spalte A, E, I, M, Q, U in Spalte Y
Kann mir jemand helfen?
(Entschuldigung, mein 2é versuch)
Gruß Benny

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ListBox1_Click() Dim rng As Range Dim lastRow As Long With Sheets("Data") lastRow = .UsedRange.Rows.Count Select Case ListBox1.ListIndex Case 0 Set rng = .Range("A3:A" & lastRow & ",I3:I" & lastRow & ",Q3:Q" & lastRow) Case 1 Set rng = .Range("E3:E" & lastRow & ",M3:M" & lastRow & ",U3:U" & lastRow) Case 2 Set rng = .Range("A3:A" & lastRow & ",E3:E" & lastRow & ",I3:I" & lastRow _ & ",M3:M" & lastRow & ",Q3:Q" & lastRow & ",U3:U" & lastRow) End Select .Range("Y1").Value = WorksheetFunction.Max(rng) End With End Sub

Private Sub ListBox1_Click() Dim rngText As String Dim rng As Range Dim lastRow As Long Dim row As Long With Sheets("Data") lastRow = .Cells(.Rows.Count, 1).End(xlUp).row Select Case ListBox1.ListIndex Case 0 rngText = "A:Row:,I:Row:,Q:Row:" Case 1 rngText = "E:Row:,M:Row:,U:Row:" Case 2 rngText = "A:Row:,E:Row:,I:Row:,M:Row:,Q:Row:,U:Row:" End Select For row = 3 To lastRow Set rng = Range(WorksheetFunction.Substitute(rngText, ":Row:", row)) .Range("Y" & row).Value = WorksheetFunction.Max(rng) Next row End With End Sub

Hallo Benny,
hier hoffentlich die endgültige Lösung. Es empfiehlt sich immer, ein Originalbeispiel einzustellen. Dann sieht man auch die mögliche Konstellationen.


Private Sub ListBox1_Click()
Dim selCells    As String
Dim rng         As Range
Dim colRng      As Range
Dim lastRow     As Long
Dim row         As Long
With Sheets("Data")
Select Case ListBox1.ListIndex
Case 0
rngText = "A:Row:,I:Row:,Q:Row:"
Case 1
rngText = "E:Row:,M:Row:,U:Row:"
Case 2
rngText = "A:Row:,E:Row:,I:Row:,M:Row:,Q:Row:,U:Row:"
End Select
Set rng = .Range(WorksheetFunction.Substitute(rngText, ":Row:", .Rows.Count))
For Each colRng In rng.Columns
If lastRow < colRng.End(xlUp).row Then
lastRow = colRng.End(xlUp).row
End If
Debug.Print lastRow & "; " & colRng.Column
Next colRng
For row = 3 To lastRow
Set rng = Range(WorksheetFunction.Substitute(rngText, ":Row:", row))
.Range("Y" & row).Value = WorksheetFunction.Max(rng)
Next row
End With
End Sub

Private Sub ListBox1_Click() Dim selCells As String Dim rng As Range Dim colRng As Range Dim lastRow As Long Dim row As Long With Sheets("Data") Select Case ListBox1.ListIndex Case 0 rngtext = "A:Row:,I:Row:,Q:Row:" Case 1 rngtext = "E:Row:,M:Row:,U:Row:" Case 2 rngtext = "A:Row:,E:Row:,I:Row:,M:Row:,Q:Row:,U:Row:" End Select .Range("Y:Y").ClearContents Set rng = .Range(WorksheetFunction.Substitute(rngtext, ":Row:", .Rows.Count)) For Each colRng In rng.Columns If lastRow < colRng.End(xlUp).row Then lastRow = colRng.End(xlUp).row End If Next colRng For row = 3 To lastRow Set rng = .Range(WorksheetFunction.Substitute(rngtext, ":Row:", row)) .Range("Y" & row).Value = WorksheetFunction.Max(rng) Next row End With End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Max.Werte

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread