Thema Datum  Von Nutzer Rating
Antwort
12.05.2019 21:06:25 Biss
NotSolved
12.05.2019 22:04:25 Gast66363
NotSolved
12.05.2019 22:54:15 Biss
NotSolved
Blau find in range die größte differenz zw. werte
 13.05.2019 07:30:09 Gast35398
Solved
13.05.2019 20:03:52 biss
NotSolved

Ansicht des Beitrags:
Von:
Gast35398		 Datum:
13.05.2019 07:30:09		 Views:
425		 Rating:
     
Antwort:
 Nein
Thema:
find in range die größte differenz zw. werte

< die größte Differenz  zw. zwei werten in einem Range

> differenziere ich erst einmal in 2 Möglichkeiten

1) die größte Differenz  zw. zwei (beliebigen) werten in einem Range

Sub Test1()

   MsgBox Abs(WorksheetFunction.Max(Range("B2:I2")) - WorksheetFunction.Min(Range("B2:I2")))

End Sub

2) und das soll es wohl sein - die größte Differenz  zw. zwei (benachbarten) werten in einem Range

einfach und geschmacklos

Sub Test2()
Dim x As Long, df, dm

   For x = 2 To 9 Step 2
      df = Abs(Cells(2, x + 1) - Cells(2, x))
      If df > dm Then dm = df
   Next x
   
   MsgBox dm
   
End Sub

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
12.05.2019 21:06:25 Biss
NotSolved
12.05.2019 22:04:25 Gast66363
NotSolved
12.05.2019 22:54:15 Biss
NotSolved
Blau find in range die größte differenz zw. werte
 13.05.2019 07:30:09 Gast35398
Solved
13.05.2019 20:03:52 biss
NotSolved