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

Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln

Forumthread: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln

Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 12:52:00
Martin
Hallo,
ich suche nach einer Möglichkeit in einer Ergebnisliste über VBA die älteste Teilnehmerin und den ältesten Teilnehmer zu ermittelt. Die Jahränge stehen in Spalte H und das Geschlecht ("w" oder "m") in Spalte K. Mir ist zwar klar, dass ich den ältesten Jahrgang mit
"Application.WorksheetFunction.Min(Range("H1:H100"))
ermitteln kann, aber wie kann ich das Geschlecht bei der Suche berücksichtigen?
Für Vorschläge wäre ich dankbar!
Viele Grüße
Martin
Anzeige

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 13:40:30
Tino
Hallo,
hier mal etwas ohne VBA
 BCDEF
1NameGeburtsdatumGeschlechtFrauMann
2Herr A30.11.1988mFrau FHerr C
3Frau B01.12.1974w  
4Herr C02.12.1944m  
5Frau D03.12.2008w  
6Herr E04.12.1985m  
7Frau F05.12.1955w  
8Herr G06.12.1978m  

Formeln der Tabelle
ZelleFormel
E2{=BEREICH.VERSCHIEBEN($B$1;VERGLEICH(MIN(WENN($D$2:$D$8="w";$C$2:$C$8)); $C$2:$C$8;0); 0)}
F2{=BEREICH.VERSCHIEBEN($B$1;VERGLEICH(MIN(WENN($D$2:$D$8="m";$C$2:$C$8)); $C$2:$C$8;0); 0)}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen

Gruß Tino
Anzeige
AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 13:53:00
Martin
Hallo Tino,
vielen Dank für Deine Hilfe, aber leider benötige ich eine VBA-Lösung, da ich viele verschiedene Tabellenblätter mit einem Makro "abarbeiten" möchte.
Viele Grüße
Martin
AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 14:44:25
Tino
Hallo,
gehe den bereich mit einer schleife durch und filtere mi m oder w mit einer if abfrage, den kleinsten wert mekst du dir in einer variable.
Das in einer funktion an die du m oder w übergeben kannst.
Schreibe vom pocket, bin jetzt nicht am pc
Gruß Tino
Anzeige
Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 15:28:53
Uwe
Hi,
ich habe mich bis jetzt noch nicht wirklich an UDF 'rangetraut, habe aber jetzt mal versucht Tinos Vorschlag umzusetzten. So sieht mein Ergebnis aus:

Option Explicit
Function Aeltester(strMW As String, rngJahrgang As Range, rngGeschlecht As Range)
Dim Zelle As Range
Dim intAbst As Integer
Dim intErgebnis As Integer
intErgebnis = 32000
intAbst = rngGeschlecht.Column - rngJahrgang.Column
For Each Zelle In rngJahrgang
If Zelle.Offset(0, intAbst) = strMW Then
If Zelle.Value


Das muss wahrscheinlich noch verfeinert werden, und kommentiert, ist aber, hoffe ich, erst mal ein Ansatz der funktioniert.
Gruß
Uwe
(:o)

Anzeige
Danke, das ist die Lösung!
30.11.2008 16:49:00
Martin
Hallo Uwe,
vielen Dank, genau danach habe ich gesucht!!! Es funktioniert super!
Beste Grüße
Martin
AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 15:24:36
Tino
Hallo,
so bin nochmal zurück.
Hier das Beispiel dazu
Modul Modul1 
Option Explicit 
 
Sub Test() 
Dim Bereich As Range 
Set Bereich = Range("A2:C20") 
 
Debug.Print Alt_Person(Bereich, "m") 
Debug.Print Alt_Person(Bereich, "w") 
 
End Sub 
 
 
 
Function Alt_Person(Bereich As Range, geschl As String) As String 
Dim meArea 
Dim A As Long 
Dim Merkwert() 
 
Redim Merkwert(0, 1) 
meArea = Bereich 
 
For A = 1 To Ubound(meArea, 1) 
 If meArea(A, 3) = geschl Then 
    If IsEmpty(Merkwert(0, 0)) Or (meArea(A, 2) < Merkwert(0, 0) And meArea(A, 2) > 0) Then 
     Merkwert(0, 0) = meArea(A, 2) 
     Merkwert(0, 1) = meArea(A, 1) 
    End If 
 End If 
Next A 
Alt_Person = Merkwert(0, 1) 
End Function


Im Beispiel befindet sich in Spalte A der Name, in Spalte B dass Geburtsdatum und in Spalte C das Geschlecht.
Gruß Tino

Anzeige
AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 13:48:00
Bernd
Hallo, Martin!
Habe Dir auch mal was ohne VBA gebastelt - kenne mich in VBA nicht so gut aus - aber vielleicht kannst Du das ja irgendwie übersetzen. Eigentlich eine ganz simple Formel.
https://www.herber.de/bbs/user/57260.xls
Gruß Bernd
Anzeige
AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 14:16:29
Martin
Hallo Bernd,
auch Dir vielen Dank für Deine Hilfe. Auch wenn Deine Formel ausgezeichnet funktioniert, bringt sie mich mit meinem VBA-Problem nicht viel weiter. Viele Formeln lassen sich in VBA anwenden, aber bei Matrixformeln (glaube ich) klappt das nicht mehr - Ich bekomme es leider nicht hin.
Viele Grüße
Martin
Anzeige
AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 14:24:00
rofu
hi,
vielleicht so?
greuß
rofu

Sub Makro1()
If Range("o1") = "m" Then
Application.WorksheetFunction.Min (Range("H1:H100"))
Else
Application.WorksheetFunction.Min (Range("H1:H100"))
End If
End Sub


AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 14:58:00
Martin
Hallo Rofu,
leider geht das nicht, da sich das Geschlecht bei Dir auf eine Zelle bezieht und die Minimun-Funktion weiterhin den geringsten Wert aller Geburtsjahr ohne Rücksicht auf das Geschlecht in Spalte K heraussucht. Trotzdem danke für den Versuch!
Viele Grüße
Martin
Anzeige
AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 15:50:00
rofu
hi,
ok-probier mal das mit array-formel
gruß
rofu

Sub Makro2()
Range("IV1").FormulaArray = _
"=MIN(IF(R[2]C[-245]:R[20]C[-245]=R1C15,R[2]C[-248]:R[20]C[-248]))"
Range("O3") = Range("IV1")
End Sub


AW: Wettkampf: Ältesten Teilnehmer wbl./mnl. ermitteln
30.11.2008 16:52:28
Martin
Hallo Rofu,
vielen Dank für Deine Bemühung. Trotzdem werde ich den VBA-Code von Uwe verwenden, denn er hat die perfekte VBA-Lösung gefunden.
Viele Grüße
Martin
Anzeige
@Martin von rofu
30.11.2008 18:01:00
rofu
hallo martin,
funktion von uwe ist ok
wie rufst du die funktion auf ?
würde dies funktion auch bei einem modell von mir gerne verwenden
gruß
rofu
AW: @Martin von rofu
30.11.2008 18:13:49
rofu
Hi rofu,
die Funktion steht in einem allgemeinen Modul. Dann kannst Du sie so in einer Zelle Deines Tabellenblattes nutzen:
=Aeltester(O1;H1:H25;K1:K25)
Dabei muss in O1 m oder w stehen, H1:H25 enthält die Jahrgänge und K1:K25 enthält das Geschlecht, also auch entweder m oder w.
Gruß
Uwe
(:o)
Anzeige
AW: @Uwe
30.11.2008 18:19:00
rofu
hi uwe,
das war mir schon klar..
aber was ist, wenn die zelle gelöscht wird-muss ich jedesmal die funktion per hand reinschreiben?
gruß
rofu
AW: @Uwe
30.11.2008 20:58:35
Martin
Hallo rufo,
vielleicht brauchst Du die Funktion auch für den jüngsten Teilnehmer wbl./mnl., dafür kannst Du (fast) die gleiche Funktion nehmen:
Option Explicit

Function Juengster(strMW As String, rngJahrgang As Range, rngGeschlecht As Range)
Dim Zelle As Range
Dim intAbst As Integer
Dim intErgebnis As Integer
intErgebnis = 0
intAbst = rngGeschlecht.Column - rngJahrgang.Column
For Each Zelle In rngJahrgang
If Zelle.Offset(0, intAbst) = strMW Then
If Zelle.Value > intErgebnis Then intErgebnis = Zelle.Value
End If
Next 'Zelle
Aeltester = intErgebnis
End Function


Zu Deiner Frage: Wenn Du das als Formel verwendest verhält sich die Funkion wie alle anderen Excel-Formeln.
Viele Grüße
Martin

Anzeige
AW: @Uwe
30.11.2008 21:33:00
rofu
hallo martin,
danke für deine nachricht, kann ich verwenden.
ich habe einem button das makro alter zugewiesen,
somit kann keine formel in O3 gelöscht werden, da die funktion über das makro aufgerufen wird.
vielleicht ausprobieren?
gruß
rofu

Sub alter()
Range("O3") = Aeltester
End Sub




Function Aeltester() 'strMW As String, rngJahrgang As Range, rngGeschlecht As Range)
Dim Zelle As Range
Dim intAbst As Integer
Dim intErgebnis As Integer
intErgebnis = 32000
Set strMW = Range("O1")
Set rngJahrgang = Range("H2:H25")
Set rngGeschlecht = Range("K2:K25")
intAbst = rngGeschlecht.Column - rngJahrgang.Column
For Each Zelle In rngJahrgang
If Zelle.Offset(0, intAbst) = strMW Then
If Zelle.Value


Anzeige
AW: @Uwe
30.11.2008 22:36:00
Martin
Hallo rofu,
ich habe für meine Zwecke alles fertig "verbaut". Wenn Du die Funktion so einsetzt, dann kannst Du es auch komplett über Dein Makro laufen lassen:

Sub alter()
Dim Zelle As Range
Dim intAbst As Integer
Dim intErgebnis As Integer
intErgebnis = 32000
Set strMW = Range("O1")
Set rngJahrgang = Range("H2:H25")
Set rngGeschlecht = Range("K2:K25")
intAbst = rngGeschlecht.Column - rngJahrgang.Column
For Each Zelle In rngJahrgang
If Zelle.Offset(0, intAbst) = strMW Then
If Zelle.Value


Viele Grüße
Martin

Anzeige
AW: DANKE Martin-wird gemacht-oT
01.12.2008 08:00:51
rofu

Forumthreads zu verwandten Themen

Worksheet Change - Nur bei Änderung durch Userinte
Ina

Hallo Forum,
wie kann ich das Worksheet_Change-Ereignis so beschränken, dass es nur beim Eingriff über das User-Interface ausgelöst wird; Sheet-Änderungen über den Code sollen nicht zum Ereignis führen.
Kann mir jemand weiterhelfen?
Vielen Dank schonmal!
Gruß
Ina
19.08.2008 09:10:00
Thread-ID: 1002791
5 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Anzeige
SVerweis - Wert suchen à la "Offset 1,3"
Bernd

Hallo Freaks,
ich möchte einen Wert per Sverweis ermitteln, der " 3 Spalten rechts + 1 Zeile runter" steht.
Siehe bitte einfaches Beispiel anbei.
https://www.herber.de/bbs/user/55520.xls
Vorab besten Dank für Eure Hilfe und Mühen.
Grüße
Bernd
19.09.2008 14:21:11
Thread-ID: 1011046
7 Beiträge
Anzeige
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Anzeige
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
1.Upload - 2. nach Download -> Fehler #NV
Matthias

Hallo Experten
(Level bitte nicht ganz so ernst nehmen)
Habe hier eine Datei hochgeladen.
(hab mir echt viel Zeit genommen und Mühe gegeben für meinen Namensvetter eine Lösung anzubieten)
https://www.herber.de/forum/archiv/1020to1024/t1020743.htm#1020754
Als ich nun prüfen...
31.10.2008 10:18:15
Thread-ID: 1020805
7 Beiträge
Anzeige
SowDataForm, Fehler wenn Zeile 1 leer
Reinhard

Hallo Wissende,
der Fehler 1004, "ShowDataForm-Methode des Worksheet-Objekts konnte zu nicht ausgeführt werden" kommt nicht wenn A1 die erste Zelle der Tabelle ist. Bei A9 als erste Zelle kommt der Fehler.
Was kann ich dagegen tun?
Microsoft empfiehlt auf http://support.microsoft....
06.11.2008 11:19:00
Thread-ID: 1022202
3 Beiträge
UserForm2 Abfrage in UserForm1 auswerten
angeldust

Hallo,
habe eine UserForm1 und eine UserForm2 , die UF2 fragt den Benutzer ab : Ja / NEIN wenn man einen bestimmten Button in der UF1 betätigt,
so nun will cih aber das Ergebnis JA / NEIN in der UF1 auswerden und dementsprächend Funktionen zuweisen, wie ist da die Syntax bitte?
als...
17.11.2008 11:26:11
Thread-ID: 1025130
3 Beiträge
100 Dateien nach Wert durchs. und in neue Datei...
Jessi

Hallo zusammen,
ich habe ein Problem, bzw. einen riesen Arbeitsaufwand vor mir, sofern ich das nicht per VBA gelöst bekomme.
Ich habe ca. 100 Dateien (Excel) die logisch nummeriert sind als Name:
Bsp:
1.xlsm
2.xlsm
(...)
99.xlsm
In jeder dieser Tabelle steht eine...
17.11.2008 11:31:00
Thread-ID: 1025138
4 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Auf 17 Checkboxes ausweiten
Wolfgang

Hallo,
der untenstehende Auszug aus einem Code fragt den Status der Checkbox1 auf einem UF ab, gibt es eine elegante Möglichkeit gleichzeitig bei Checkbox1:17 den Status abzufragen und bei False die MsgBox erscheinen zu lassen? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang...
22.11.2008 14:32:01
Thread-ID: 1026950
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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