Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilenposition von Maximalwert bestimmen
25.07.2016 09:14:09 Gast2704
NotSolved
25.07.2016 10:22:30 Crazy Tom
NotSolved
25.07.2016 12:07:34 Gast2704
NotSolved
25.07.2016 12:38:45 Crazy Tom
NotSolved
25.07.2016 13:24:36 Gast10650
NotSolved
25.07.2016 13:32:36 Crazy Tom
NotSolved
25.07.2016 14:19:50 Gast2704
NotSolved

Ansicht des Beitrags:
Von:
Gast2704
Datum:
25.07.2016 09:14:09
Views:
1273
Rating: Antwort:
  Ja
Thema:
Zeilenposition von Maximalwert bestimmen
Hallo VBA-Gemeinde,
 
bei dem Versuch, die Zeilenposition eines Maximalwertes in VBA zu bestimmen (eine eigentlich sehr simple Aufgabe) habe ich mehrere Möglichkeiten durchprobiert, komme jedoch zu keiner funktionierenden Lösung.
 
Die Tabelle ist wie folgt aufgebaut:
In Spalte F sind Zahlenwerte eingetragen, welche zu und abnehmen und ein eindeutiges Maximum besitzen.
Nun möchte ich die Zeilenposition dieses Maximalwertes bestimmt haben, um mich im nächsten Schritt auf diese Position beziehen zu können um zugehörige Werte auszulesen. (Bsp. Tmax = ActiveSheet.Range("A" & posmax).Value im nächsten Schritt)
 
Ich bin sicher die Lösung liegt nahe, wer kann mir helfen?
Vielen Dank im Voraus,
Gast2704
 

'Letzte Zeile mit Wert bestimmen
Dim LetzteZeile As Integer
    LetzteZeile = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row 


'Maximum bestimmen
Dim maximum As Single
    maximum = wsData.Application.Max(Range("F:F"))
              
              
'Position von Maximum bestimmen
'_______________var1____________________________________
         Dim Zelle As Range
             Zelle = ActiveSheet.Columns(6).Find(maximum)
                   With Zelle
                     .Select
                   End With
'_______________var2____________________________________
         Dim Bereich
              Bereich = wsData.Range("F5:F" & LetzteZeile)
              Bereich.Find(Application.Max(Bereich)).Select

         Dim posmax As Integer
             posmax = ActiveCell.Row
  
'_______________var3____________________________________
      Dim Zeile As Integer
        For Zeile = 5 To LetzteZeile
        If Cells(Zeile, 6) = "maximum" Then
        Cells(Zeile, 6).Select
        End If
        Next
'_______________var4____________________________________
   Dim thisarray() As Variant  
       thisarray() = Range("F1:F" & LetzteZeile).Value
       posmax = WorksheetFunction.Match(maximum, thisarray)
 
    
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilenposition von Maximalwert bestimmen
25.07.2016 09:14:09 Gast2704
NotSolved
25.07.2016 10:22:30 Crazy Tom
NotSolved
25.07.2016 12:07:34 Gast2704
NotSolved
25.07.2016 12:38:45 Crazy Tom
NotSolved
25.07.2016 13:24:36 Gast10650
NotSolved
25.07.2016 13:32:36 Crazy Tom
NotSolved
25.07.2016 14:19:50 Gast2704
NotSolved