ich habe hier eine Formel, die auf einem Tabellenblatt funktioniert.
=INDEX(C11:C100;VERGLEICH(MIN(M11:M100);M11:M100;0);1)
Ich möchte aber den MIN-Wert aus 5 Tabellenblättern haben.
Hat da jemand eine Idee?
Hilmar
Sub Test()
Dim Min1 As Long, Min2 As Long, Min3 As Long, Min4 As Long, Min5 As Long, MinAll As Long
With ActiveSheet.Application.WorksheetFunction
Sheets("Tabelle1").Select 'bitte anpassen
Min1 = .Min(Range("A1:A3")) 'bitte anpassen
Sheets("Tabelle2").Select 'bitte anpassen
Min2 = .Min(Range("A1:A3")) 'bitte anpassen
Sheets("Tabelle3").Select 'bitte anpassen
Min3 = .Min(Range("A1:A3")) 'bitte anpassen
Sheets("Tabelle4").Select 'bitte anpassen
Min4 = .Min(Range("A1:A3")) 'bitte anpassen
Sheets("Tabelle5").Select 'bitte anpassen
Min5 = .Min(Range("A1:A3")) 'bitte anpassen
End With
MinAll = Application.WorksheetFunction.Min(Min1, Min2, Min3, Min4, Min5)
MsgBox MinAll
End Sub
Gruß
Dirk
=INDEX(C11:C100;VERGLEICH(MIN(INDIREKT("Tabelle"&ZEILE(2:5)&"!M11:M100"));INDIREKT("Tabelle"& _
ZEILE(2:5)&"!M11:M100");0))
=MIN(Tabelle1:Tabelle5!A1:B1)
hierfür kann man auch noch während der Eingabe bei gedrückter Shift-Taste die Tabellenblätter selektien, wenn der Zellbereich per Maus eingegeben werden soll.
2. die abgefragen Sheets stehen nicht direkt nebeneinander, oder die Zellbereiche unterscheiden sich, dann muss jeder Zellbereich mit Semikolon getrennt einzeln angegeben werden:
=MIN(A1:B1;Tabelle2!A1:B110;Tabelle3!A1:C1;Tabelle4!A1:B1;Tabelle5!A1:D8)
Gruß, Daniel