Hallo!!
Folgendes Problem:
Ich habe eine Excel-Mappe mit ca. 30 Tabellenblättern. Diese Blätter sind vom Aufbau identisch, haben jedoch immer andere Ergebniswerte
(wäre dann Zelle „S55“).
Jetzt würde ich gerne, dass mir Excel mit der Max-Funktion (in vba) den höchsten Ergebniswert selektiert und mir das dazugehörige Sheet anzeigt.
Ist so etwas möglich?!?!?!
Brauche dringend eure Hilfe!!!
Ich habe eine Excel-Mappe mit ca. 30 Tabellenblättern. Diese
Blätter sind vom Aufbau identisch, haben jedoch immer andere
Ergebniswerte
(wäre dann Zelle „S55“).Jetzt würde ich gerne, dass mir Excel mit der Max-Funktion (in
vba) den höchsten Ergebniswert selektiert und mir das
dazugehörige Sheet anzeigt.
hallo Anastasija,
ungetestet:
Sub groesste()
Dim wks As Worksheet, Gross, wksGross
Gross = -10000
For Each wks In ThisWorkbook.Worksheets
If wks.Range("S55").Value \> Gross Then
Gross = wks.Range("S55").Value
Set wksGross = wks
End If
Next wks
wksGross.Activate
Range("S55").Select
End Sub
Gruß
Reinhard
Hallo,
Hallo Reinhard!
Danke für die schnelle Antwort.
Leider bin ich ein totaler Anfänger in Excel und hab noch ein paar Schwierigkeiten solche Codes zu enziffern. Wenn ich den so wie obern abspielen will, zeigt er mir immer einen Fehler an folgender Stelle an :
If wks.Range(„S55“).Value > Gross Then
(Typen unverträglich )
Magst du mir da bitte nochmal helfen? 
LG
Anastasija
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Leider bin ich ein totaler Anfänger in Excel und hab noch ein
paar Schwierigkeiten solche Codes zu enziffern. Wenn ich den
so wie obern abspielen will, zeigt er mir immer einen Fehler
an folgender Stelle an :
If wks.Range(„S55“).Value > Gross Then
(Typen unverträglich )
Hallo Anastasija,
ich habe jetzt getestet, kommt kein Fehler, auch nicht wenn Text in S55 steht.
Bastle eine Beispielmappe wo der Fehler auftritt und lade sie hoch mit hostarea FAQ:2606
Gruß
Reinhard
Hallo nochmal,
hier die Datei:
http://www.hostarea.de/server-02/Februar-17f7116f34.xls
Ich glaube ich weiß woran es liegt. Kann man vielleicht die Suche auf eine beschränkte Anzahl von Sheets machen? ZB nur für die Sheets mit dem Namen Optimum1-Optimum28 ?
Weil sonst funktioniert der Code ja einwandfrei, als ich die Test Datei gebaut hab und nur die Optimum Sheets hatte, ging es super!!!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
http://www.hostarea.de/server-02/Februar-17f7116f34.xls
Ich glaube ich weiß woran es liegt. Kann man vielleicht die
Suche auf eine beschränkte Anzahl von Sheets machen? ZB nur
für die Sheets mit dem Namen Optimum1-Optimum28 ?
Weil sonst funktioniert der Code ja einwandfrei, als ich die
Test Datei gebaut hab und nur die Optimum Sheets hatte, ging
es super!!!
Hallo Anastasija,
Sub Optimum\_Click()
Dim wks As Worksheet, Gross As Double, wksGross As Worksheet
Gross = -10000
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "Optimum\*" Then
If wks.Range("AR55").Value \> Gross Then
Gross = wks.Range("AR55").Value
Set wksGross = wks
End If
End If
Next wks
Application.Goto Reference:=wksGross.Range("AR55")
End Sub
Gruß
REinhard
VIELEN LIEBEN DANK!!!
Es funktioniert einwandfrei!!!
Nochmals danke
LG Nastija