Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

worksheetfunction.max innerhalb Wertebereich

worksheetfunction.max innerhalb Wertebereich
04.05.2017 20:23:30
Andy
Hallo zusammen,
ich hoffe, dass Ihr mir weiterhelfen könnt.
In einem kleinen Programm nutze ich zur Bestimmung der nächsten (höheren) Kundennummer die worksheetfunction.max.
Spalte A enthält die bisher vergebenen Kundennummern. Die neue wäre also wsf.max + 1
Nun gibt es aber auch "Sonderkundennummern", die ab 9000 beginnen.
Meine mit worksheetfunction.max ermittelte Zahl muss also kleiner als 9000 sein.
Über Formeleingabe hab ich etwas im Internet gefunden, aber nicht über VBA.
Geht das mit wsf.max überhaupt, dass ich die Bereichsgröße eingrenzen kann?
Ich hab versucht in den Argumenten ein "if" u.s.w. einzubauen, aber das lief immer auf Fehler.
Oder kann ich nur über ne Schleife oder sowas in der Art gehen?
Danke schon mal für Eure Hilfe!
Viele Grüße
Andy

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: worksheetfunction.max innerhalb Wertebereich
04.05.2017 21:36:40
Daniel
Hi
Als Formel so
=KGrößte(A:A;ZählenWenn(A:A;">=9000")+1)+1

Das sollte in VBA über die Worksheetfunctions problemlos darstellbar sein. (CountIf und Large)
Gruß Daniel
AW: worksheetfunction.max innerhalb Wertebereich
04.05.2017 22:05:31
Luschi
Hallo Andy,
gemäß dem Vorschlag von Daniel so: 

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Tabelle1")
Debug.Print WorksheetFunction.Large(ws.Range("A:A"), WorksheetFunction.CountIf(ws.Range("A:A"),  _
">=9000") + 1) + 1
'oder
Debug.Print WorksheetFunction.Small(ws.Range("A:A"), WorksheetFunction.CountIf(ws.Range("A:A"),  _
"
Gruß von Luschi
aus klein-Paris
PS: die Formelfunktion 'KGrößte' gibt es nicht und lautet so: KGRÖSSTE
Anzeige
AW: worksheetfunction.max innerhalb Wertebereich
04.05.2017 22:05:13
Werner
Hallo Andy,
und sähe dann in VBA so aus:
Sub Kundennummer()
Dim loZahl As Long
loZahl = WorksheetFunction.Large(Range("A:A"), WorksheetFunction.CountIf(Range("A:A"), ">=9000") _
+ 1) + 1
MsgBox loZahl
End Sub
Gruß Werner
AW: max innerhalb Wertebereich
04.05.2017 22:50:37
Gerd
Moin Andy! 
Sub test()
MsgBox NR(Cells(1, 1).CurrentRegion.Columns(1).Value, 9000)
End Sub


Function NR(X As Variant, dblMax As Double) As Long
Dim Z As Long, S As Long
For Z = 1 To UBound(X)
For S = 1 To UBound(X, 2)
If X(Z, S)  NR Then NR = X(Z, S)
End If
Next
Next
NR = NR + 1
End Function
Gruß Gerd
Anzeige
AW: max innerhalb Wertebereich
05.05.2017 13:32:27
Andy
Hallo zusammen,
vielen vielen Dank für die Hilfe!
Ich hab mich für die Version von Gerd entschieden. So kann ich ganz schlank die Funktion auch bei den Artikelnummern usw nutzen.
Danke nochmal und ein schönes Wochenende!
Viele Grüße
Andy
AW: max innerhalb Wertebereich
06.05.2017 09:57:52
Luschi
Hallo Andy,
selbstprogramierte Schleifen sind immer viel langsamer und fehleranfälliger als Vba-Standard-Methoden.
Gruß von Luschi
aus klein-Paris
AW: @Luschi
06.05.2017 20:07:35
Gerd
Hallo Luschi,
so pauschal stimmt das nicht. Schleifen über Objekte sind sicher langsam; solche über Arrays sind, wenn überhaupt, kaum langsamer als Worksheetfunctions. Und die Fehleranfälligkeit hängt doch stark von der Qualität des "SelbstProgrammierers" ab.
P.S.: Ich wollte Andy zeigen, dass es auch mit Schleife geht.
Gruß Gerd
Anzeige

300 Forumthreads zu ähnlichen Themen

maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
Anzeige
min und max wert in listbox per vba
kirsche

hallo leute,
dank beverly und tino bin ich ein ganzes stück schlauer und weiter gekommen, ich finde dieses forum einfach klasse und möchte ein großes lob euch allen aussprechen.
nun hab ich aber doch noch eine frage: in zwei weiteren textboxen möchte ich die kleinste und die größte span...
20.11.2008 12:47:01
Thread-ID: 1026383
8 Beiträge
Datum Minus 5Jahre in VBA
Modolo

Hallo Zusammen
Ich arbeite innerhalb eines Makros mit Filtern, ich bräuchte jetzt noch eine Lösung wie ich dort das aktuelle Datum minus 5 Jahre eingebe.
Hat da Jemand eine Lösung für mich?
Danke
Modolo
26.02.2009 13:14:16
Thread-ID: 1054345
10 Beiträge
Anzeige
WorksheetFunction.Max
Gregor

Hallo
Ich habe Probleme mit der WorksheetFunction.Max oder Min
Folgenden Code habe ich in einer For ... Next-Abfrage geschrieben, funktioniert aber nicht, wenn nur eine Zahl im Range-Bereich:
Wert = WorksheetFunction.Max(Sheets(Quellblatt).Range(Cells(Start, 30), Cells(Start + Zähle...
31.08.2009 17:23:50
Thread-ID: 1099666
8 Beiträge
Function in VBA
Josef

Hallo!
Wie kann ich bitte eine selbstgeschnitzte Function in VBA einsetzen? txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40) 'If wks.Cells(ComboBox1.ListIndex + 1, 40) = "030" Then If txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40) Then TextBox26.Text = BHZ End If Function B...
22.10.2009 13:35:47
Thread-ID: 1111362
5 Beiträge
Max in VBA
Dieter

Hallo zusammen,
die u.g. Berechnung des Max-Wertes funktioniert so nicht.
Sum3 = Evaluate("max((Daten!Kalwo=Aktuell)*(Daten!Ressource=Maschine)*(Daten!Schicht=1)*(Daten!Stillid=Still1))") , habe ich in meinem Mokro eingebaut.....
Wie muss sie korrekt aussehen ?
In der Tabellenfo...
23.05.2011 17:01:54
Thread-ID: 1215644
6 Beiträge
Achsenbeschriftung, VBA durch min max aus Zelle
Peter

Hallo liebe Leute,
ich habe wieder ein Problem.
Ich habe ein simples Leistung/Drehzal Diagramm in Abhängigkeit der Drehzahl.
Die Leistung ist links, als vertikale Primärachse, das Drehmoment rechts als vertikale Sekundärachse und die Drehzahl als vertikale Primärachse angeordnet.
25.06.2011 08:28:33
Thread-ID: 1219617
13 Beiträge
Max in VBA
Frank

Hallo an Alle,
kurze Frage ich habe in VBA bspw. a, b, c .... n Werte die direkt in VBA berechnet werden. Wie bekomme ich hier den Maximalwert heraus?
Max(a,b,c) funtioniert leider nicht.
Viele Grüße,
Frank
09.09.2011 10:43:40
Thread-ID: 1229209
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
18
7
9
4
7
4
5
12
2
2
3
12
7
5
18
8
1
6
2
3
4
26
9
8