Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1200to1204
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
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Größten Wert einer Spalte per VBA ermitteln

Größten Wert einer Spalte per VBA ermitteln
Timo
Hallo zusammen,
ich habe in einer Excel Tabelle in Spalte A eine große Anzahl an 7-stelligen Nummern stehen.
Dabei gibt es 2 Arten von Nummern. Manche beginnen mit einer "1" und manche beginnen mit einer "2", beide Arten bestehen aber aus sieben Stellen.
Jetzt möchte ich gerne per MsgBox ausgeben, welche die größte Nummer ist, die mit einer "1" beginnt und welche die größte Nummer ist, die mit einer "2" beginnt.
Bsp.:
Größte Nummer mit einer 1: 1000452
Größte Nummer mit einer 2: 2003179
Ich hoffe, Ihr könnt mir helfen, ich komme einfach auf keine eigene Lösung...
Vielen Dank!
Gruß Timo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Größten Wert einer Spalte per VBA ermitteln
27.02.2011 13:20:14
Roland
Hallo Timo,
ein Ansatz (ohne Validierung, Fehlerprüfung etc.):
Sub Ausgabe() Dim l As Long, m As Long, n As Long l = 1 Do While Not IsEmpty(Cells(l, 1)) Select Case Left$(Cells(l, 1).Value, 1) Case 1 If Cells(l, 1).Value > m Then m = Cells(l, 1).Value Case 2 If Cells(l, 1).Value > n Then n = Cells(l, 1).Value End Select l = l + 1 Loop MsgBox "Die größte mit 1 beginnende Zahl ist: " & m & vbLf & _ "Die größte mit 1 beginnende Zahl ist: " & n End Sub Kanns Du damit was anfangen?
Gruss aus Berlin
Roland Hochhäuser
AW: Größten Wert einer Spalte per VBA ermitteln
27.02.2011 14:15:11
Timo
Hallo Roland,
danke für die schnelle Antwort.
Deine Lösung funktioniert fast perfekt.
Ich habe vorhin etwas vergessen zu erwähnen, war dumm von mir.
Es kann in Spalte A durchaus auch vorkommen, dass mal eine leere Zelle zwischen den Zahlen ist.
Z.B.:
1000045
1000067
2000456
1000278
2003846
Dann funktioniert Deine Methode leider nicht, da die Schleife nur bis zur ersten leeren Zelle laufen würde.
Außerdem hatte ich gehofft, dass das ganze auch irgendwie ohne eine Schleif zu ermitteln wäre.
Die Sache soll später unter Excel 2007 laufen, da kann es durchaus vorkommen, dass in Spalte "A" um die 500000 Nummern stehen. Das legt Excel dann schon kurz lahm.
Wenn es gar nicht anders funktioniert, nehme ich natürlich auch die Schleifenmethode.
Gruß Timo
Anzeige
AW: Größten Wert einer Spalte per VBA ermitteln
27.02.2011 14:49:19
Roland
Hallo Timo,
dann versuch mal das:
Sub Ausgabe()
Dim arr, l As Long, m As Long, n As Long
With ThisWorkbook.Worksheets(1)
l = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
arr = .Range(.Cells(1, 1), .Cells(l, 1))
End With
For l = LBound(arr) To UBound(arr)
Select Case Left$(arr(l, 1), 1)
Case 1
If arr(l, 1) > m Then m = arr(l, 1)
Case 2
If arr(l, 1) > n Then n = arr(l, 1)
End Select
Next
MsgBox "Die größte mit 1 beginnende Zahl ist: " & m & vbLf & _
"Die größte mit 2 beginnende Zahl ist: " & n
End Sub

Anzeige
geht auch mit Formeln
27.02.2011 14:13:13
Matthias
Hallo
Tabelle1

 B
152003179
161000452

Formeln der Tabelle
ZelleFormel
B15{=MAX(WENN($A1:$A65535>1000000;$A1:$A65535))}
B16{=MAX(WENN($A$1:$A$65535<2000000;$A$1:$A$65535))}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Ich habe absichtlich die letzte Zelle der Spalte ausgeschlossen,
damit Excel die Formel nicht automatisch in $A:$A umwandelt
Gruß Matthias
Anzeige
AW: Größten Wert einer Spalte per VBA ermitteln
27.02.2011 14:45:34
Reinhard
Hallo Timo,

Sub test()
MsgBox Hoch1
MsgBox Hoch2
End Sub
Function Hoch1()
Hoch1 = Cells(Application.Match(199.9999999, Columns(1), 1), 1).Value
If Hoch1

Gruß
Reinhard
AW: Größten Wert einer Spalte per VBA ermitteln
27.02.2011 23:17:18
Timo
Hallo,
Eure Lösungen funktionieren wunderbar.
Vielen Dank für die schnelle Hilfe!
Gruß Timo

51 Forumthreads zu ähnlichen Themen

Zahl in Spalte finden und dann Zelle Aktivieren
Hans

Hallo Leute ich habe ein Problem das ich nicht gelöst bekommen.
Ich möchte in Spalte A:A einen Wert suchen der in der Variable "Zahl" steht.
Ist der Wert gefunden soll die gefundene Zelle mit "ActiveCell.Select" aktiviert werden
Wird der Wert nicht gefunden soll die erste leere Stel...
08.04.2009 10:45:33
Thread-ID: 1067641
4 Beiträge
Anzeige
In Spalte B einen Wert mittels VBA setzen
Josef

Hallo!
Ich habe nur in der Zelle B1 den Wert "ü" stehen.
Ab der 2.Zeile habe ich ca. 15000 Datensätze stehen.
Mit dem Autofilter suche ich jetzt nach dementsprechenden Werten in anderen Spalten.
Wenn jetzt z. B. 10 Werte gefunden werden, habe ich nun 10 Datensätze und möchte in...
21.01.2010 14:36:58
Thread-ID: 1131799
7 Beiträge
Suche unterschiedliche Max-Wert in einer Spalte
Volker

Hallo zusammen,
in Spalte T stehen Hunderte von siebenstelligen Artikelnummern. Die haben je nach Sparte eigene Nummerkreise:
Sparte A (1.xxx.xxx), Sparte B (2.xxx.xxx) und Sparte C (3.xxx.xxx).
Es kommen innerhalb der Sparten regelmaessig weitere Artikel hinzu.
Suche jeweils di...
14.03.2011 11:00:24
Thread-ID: 1205567
6 Beiträge
Anzeige
Gleiche Werte in zwei Spalten ermitteln
Topsurfer

Hallo, für Leute mit Kenntnissen vermutlich leicht zu lösen, aber ...
Ich habe zwei Spalten, in keiner Spalte kommt ein Wert doppelt vor.
Ich müßte ermitteln, welche Werte in beiden Spalten identisch vorkommen.
Die Werte sind lange Namne, ohne Leerzeichen.
Danke für Hilfe,
M...
08.06.2011 08:48:21
Thread-ID: 1217666
5 Beiträge
Gleiche Werte in zwei Spalten ermitteln
Topsurfer

Hallo, für Leute mit Kenntnissen vermutlich leicht zu lösen, aber ...
Ich habe zwei Spalten, in keiner Spalte kommt ein Wert doppelt vor.
Ich müßte ermitteln, welche Werte in beiden Spalten identisch vorkommen.
Die Werte sind lange Namne, ohne Leerzeichen.
Danke für Hilfe,
M...
08.06.2011 09:23:05
Thread-ID: 1217670
3 Beiträge
Höchste Zahl die mit Text verbunden ist finden
nontacky

Hallo Leute,
Frohes neues Jahr! Ich habe eine Ergänzungsfrage zu einer Formel die ihr mir kürzlich mal gebaut habt:
Ich habe eine Spalte A mit Projektnummer, die zuerst einenBuchstaben, dann die Jahreszahl und dann die Projektnummer enthalten. Aus dieser Liste, die durcheinander sein ka...
02.01.2012 10:17:22
Thread-ID: 1244191
8 Beiträge
VBA Wert in Spalte prüfen dann Zeile löschen
Michael

Hallo, ich habe mal wieder eine kleine Frage :)
ich habe in Spalte A Kundennummern stehen und in Spalte B ein Datum. Wie bekomme ich das per VBA gelöst:
Script prüft ob das Datum in Spalte B "jünger" als 30.09.2013 ist, wenn ja dann lösche die komplette Zeile.
Ich freue mich über eu...
17.10.2013 06:21:34
Thread-ID: 1334668
8 Beiträge
Maxwert einer Spalte
Ewald

Hallo zusammen.
Ich habe in einer Spalte (B6:B200) unterschiedliche Zahlenwerte, auch teilweise leere Felder. Die Spalte ist komplett als Zahl formatiert.
Ich möchte jetzt in einem Feld außerhalb dieser Spalte (K2) den Max-Wert angezeigt bekommen, aber nur von den Werten die kleiner als...
26.09.2014 11:11:50
Thread-ID: 1383520
3 Beiträge
Anzeige

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
3
3
6
5
3
4
2
7
7
2
2
8
4
5
2
2
1
5
11
7
20
2
13
1
1