Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wertepaare berechnen

Forumthread: Wertepaare berechnen

Wertepaare berechnen
04.02.2016 07:22:47
Jens
Hallo,
kann mir bei der Berechnung eines Wertepaares wer helfen?
https://www.herber.de/bbs/user/103280.xlsm
Gruß

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wertepaare berechnen
04.02.2016 10:33:10
UweD
Hallo
so?
Wobe in dem Beispiel das Max bei 0 ; 0 liegt

Sub Wertepaare()
On Error GoTo Fehler
Dim TB1, TB2, i%, z%, Wmax, Gmax
Application.ScreenUpdating = False
'*** Stammdaten Anfang
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
z = 2
Gmax = -999999
With TB2
.Cells.ClearContents
.Cells(1, 1) = "Wert": .Cells(1, 2) = "Ergegnis"
For i = TB1.Range("B3") To TB1.Range("B4")
TB1.Cells(1, 2) = i
.Cells(z, 1) = i
.Cells(z, 2) = TB1.Cells(2, 2)
If TB1.Cells(2, 2) > Gmax Then
Gmax = TB1.Cells(2, 2)
Wmax = TB1.Cells(1, 2)
End If
z = z + 1
Next
TB1.Cells(1, 2) = Wmax
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Gruß UweD

Anzeige
AW: Wertepaare berechnen
04.02.2016 11:21:51
Jens
super.
funktioniert.
danke

AW: Wertepaare berechnen
09.02.2016 09:39:36
Jens
Hallo
dein Code funktioniert super.
Aber ich brächte den noch angepasst.
Siehe hierzu die Anmerkungen in der Datei.
https://www.herber.de/bbs/user/103387.xlsm
Kannst du mir hierzu helfen?
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige