Office: (Office 2007) Höchsten/niedrigsten Wert mit Buchstaben ermitteln

Hallo
Ich brauche aus einer Tabelle den höchsten und niedrigsten Wert eines Bereiches als Wert in einem anderen Blatt, dies funktioniert mit
=MAX('Kugelhahn 001'!G9:G31)
=MIN('Kugelhahn 001'!G9:G31)
ja problemlos bei reinen Zahlen, wie muss ich es aber abändern wenn die Spalte auch einen Buchstaben enthält? Der Aufbau ist immer gleich, 1Buchstabe gefolgt von einer 3stelligen Zahl.
Im Anhang ein Beispiel, der Wert wird im ersten Blatt benötigt und aufgrund des Buchstaben momentan als Null angezeigt.

Gruss
Andreas

:)

 

Moin, Andreas,

wenn es immer nur ein E als erster Buchstabe ist: ein Benutzerdefiniertes Format für die Zellen anlegen ("E"000) und nur Werte einfügen... *wink.gif*

 

Hallo Jinx
Nein, der Buchstabe, wechselt mit jedem neuem Auftrag. Und es sind auf den Baustellen verschieden Lageristen die diese Aufnahmescheine ausfüllen, wenn neue Lieferungen eintreffen. Diese haben Teilweise keine Ahnung von Excel, könnten also auch die Formatierung nicht anpassen. Ich dachte das es vielleicht in der Min,Max abfrage eine Variante gibt nach Schema ("?"###) Platzhalter und nur Stelle 2-4 auswerten. Dies aber möglichst ohne VBA, da dies wiederum aufgrund der Sicherheitseinstellungen überall zu komplikationen führen würde.

 

Moin, Andreas,

z.B. eine Benutzerdefinierte Funktion für jeden Fall, die sich sicherlich auch einfacher darstellen lässt:

Code:

Übersicht

	E	F
8	6	26

Zelle	Formel
E8	=fncMin('Kugelhahn 001'!G9:G29;1000)
F8	=fncMax('Kugelhahn 001'!G9:G29;-1000)

 

Hallo zusammen,

hier noch ein Vorschlag mittels Formel.

	E	F	G
9	123		E123
10	500		F244
11			E500

E9 : {=MIN(RECHTS(G9:G11;LÄNGE(G9:G11)-1)*1)}
E10 : {=MAX(RECHTS(G9:G11;LÄNGE(G9:G11)-1)*1)}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen

 

Hallo,

noch eine Alternative per Formel

Übersicht

	B	C	D	E	F	G
7	Aufnahmeschein	erstellt am	von	von	bis	bearbeitet
8	Kugelhahn 001	07.05.2009	Valla	E006	E026

Zelle	Formel
C8	='Kugelhahn 001'!B40
D8	='Kugelhahn 001'!H40
E8	{=LINKS('Kugelhahn 001'!G9:G39;1)&TEXT(MIN(WENN('Kugelhahn 001'!G9:G39<>"";WECHSELN('Kugelhahn 001'!G9:G39;LINKS('Kugelhahn 001'!G9:G39;1);"")*1));"000")}
F8	{=LINKS('Kugelhahn 001'!G9:G39;1)&TEXT(MAX(WENN('Kugelhahn 001'!G9:G39<>"";WECHSELN('Kugelhahn 001'!G9:G39;LINKS('Kugelhahn 001'!G9:G39;1);"")*1));"000")}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen! Excel Jeanie HTML 4

 

Hallo Jinx,rainberg,Jürgen

Danke für die vielen Lösungswege, wird wohl die rainbergsche Lösung werden.
Die beiden anderen haben den Nachteil das der Buchstabe nicht mitausgegeben wird, sondern nur mehr die Zahl im Übersichtsblatt eingetragen wird.

Gruß
Andreas

 

Hallo Rainberg,

bei deiner Lösung wird immer der Buchstabe aus G9 vorangestellt. Hier mal ein Lösungsvorschlag, wo der Buchstabe berücksichtig wird. Das geht aber bestimmt auch kürzer.

	A	B
1	Max-Wert	Z2000
2	Min-Wert	R8

B1 : {=INDEX('Kugelhahn 001'!G9:G31;WENN('Kugelhahn 001'!G9:G31<>"";VERGLEICH(MAX(WENN('Kugelhahn 001'!G9:G31<>"";RECHTS('Kugelhahn 001'!G9:G31;LÄNGE('Kugelhahn 001'!G9:G31)-1)*1));RECHTS('Kugelhahn 001'!G9:G31;LÄNGE('Kugelhahn 001'!G9:G31)-1)*1;0));0)}
B2 : {=INDEX('Kugelhahn 001'!G9:G31;WENN('Kugelhahn 001'!G9:G31<>"";VERGLEICH(MIN(WENN('Kugelhahn 001'!G9:G31<>"";RECHTS('Kugelhahn 001'!G9:G31;LÄNGE('Kugelhahn 001'!G9:G31)-1)*1));RECHTS('Kugelhahn 001'!G9:G31;LÄNGE('Kugelhahn 001'!G9:G31)-1)*1;0));0)}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen

 

Hallo Jürgen

Das immer der gleiche Buchstabe aus G9 genommen wird wäre kein Problem denn innerhalb eines Projektes ändert sich dieser auch nicht. Aber da ich inzwischen mit der Buchstabenvergabe noch auf weitere Probleme gestossen bin, habe ich jetzt den einfacheren Lösungsweg gewählt der halt leider das Nacharbeiten an allen bereits vorhandenen Scheinen verlangt. Ich habe jetzt den Buchstaben von der Zahl getrennt (und somit funktioniert die normale Min/Max Funktion). Der Buchstabe ist zur Zeit manuell eingegeben aber wird im späteren Verlauf aus einem anderen Formular das es noch nicht gibt geholt.
Ich bin aber auf ein neues Problem gestoßen.
Warum wechselt mir bei der hinzugefügten Druckfunktion der Hyperlink nicht auf das verlinkte Tabellenblatt?? Selbst wenn ich das Makro aufzeichne wird kein anderer Code erzeugt beim Anwählen eines Links, und die Zelle wird korrekt angewählt durch das Makro wenn in der K Spalte das "X" gesetzt wird.
Der Ausdruck ist zur Zeit auskommentiert. Aber auf die markierte Tabelle sollte doch gwechselt werden oder?

Sub AuswahlDrucken()
'
Dim lngLastRow As Long
Dim rngCell As Range
Dim Kopien As String

' Kopien = InputBox("Wieviele Kopien werden benötigt")
lngLastRow = Cells(Rows.Count, "K").End(xlUp).Row

For Each rngCell In Range("K1:K" & lngLastRow).SpecialCells(xlCellTypeConstants)
If rngCell.Value = "X" Then
rngCell.Offset(0, -8).Select
Selection.Hyperlinks(1).Follow
' ActiveWindow.SelectedSheets.PrintOut Copies:=Kopien
End If
Next rngCell
' Sheets("Übersicht").Select
' MsgBox "Ausdruck beendet!"
End Sub

 

Hallo noch mal,

Jürgen hat recht, mein Vorschlag war nur die halbe Wahrheit.

Der Vollständigkeit halber würde ich es aber dann so machen, wie im Anhang.
Damit werden die Formeln kopierbar.
Übersicht

	B	C	D	E	F
7	Aufnahmeschein	erstellt am	von	von	bis
8	Kugelhahn 001	07.05.2009	Valla	K006	U026
9	Kugelhahn 002	07.05.2009	Valla	M029	E031
10	Kugelhahn 003	07.05.2009	Valla	E039	E039

Zelle	Formel
E8	{=INDEX(INDIREKT("'"&B8&"'!G9:G39");VERGLEICH(MIN(WENN(INDIREKT("'"&B8&"'!G9:G39")<>"";RECHTS(INDIREKT("'"&B8&"'!G9:G39");3)*1));RECHTS(INDIREKT("'"&B8&"'!G9:G39");3)*1;0))}
F8	{=INDEX(INDIREKT("'"&B8&"'!G9:G39");VERGLEICH(MAX(WENN(INDIREKT("'"&B8&"'!G9:G39")<>"";RECHTS(INDIREKT("'"&B8&"'!G9:G39");3)*1));RECHTS(INDIREKT("'"&B8&"'!G9:G39");3)*1;0))}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen! Excel Jeanie HTML 4

 

Ach Herje, kaum hab ich es halbwegs geschafft die Funktionsweise einer Variante zu kapieren, kommt schon die nächste mit weiteren Befehlen und ich kann schon wieder von vorne anfangen. Warum ist lernen nur so kompliziert?
Danke auch für die Beispieldatei.

Gruß
Andreas

 

Hallo Andreas,

wußte doch dass man meinen Formelvorschlag noch etwas modifizieren/verkürzen kann, wie die jetzige Formellösung von Rainberg.
Was deine Frage zum Code betrifft. Ich bin mir nicht sicher, aber ich glaube

Selection.Hyperlinks(1).Follow

ist nur für den Zugriff auf externe Dateien und nicht für ein Blatt innerhalb der Datei. Bin mir aber wie gesagt nicht sicher.
Da du aber die Blattnamen mit exakter Schreibweise in der Übersicht hast, sollte es doch vielleicht auch so gehen.
Habe leider zur schöneren Übersicht kein Codeeinfügeprogramm.

Sub AuswahlDrucken()
'
' Ausgeählte Aufnahmescheine drucken
'
' Geischläger Andreas 13.04.2009
'
Dim lngLastRow As Long
Dim rngCell As Range
Dim Kopien As String

' Kopien = InputBox("Wieviele Kopien werden benötigt")
lngLastRow = Cells(Rows.Count, "K").End(xlUp).Row

For Each rngCell In Range("K1:K" & lngLastRow).SpecialCells(xlCellTypeConstants)
If rngCell.Value = "X" Then
Worksheets(rngCell.Offset(0, -8).Value).Activate

' ActiveWindow.SelectedSheets.PrintOut Copies:=Kopien
End If
Next rngCell
' Sheets("Übersicht").Select
' MsgBox "Ausdruck beendet!"
End Sub

Gruß Jürgen

 

Hallo Jürgen

Danke für die Lösung, jetzt funktioniert es.