Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
952to956
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
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Höchster Wert in Variable ermittlen

Höchster Wert in Variable ermittlen
22.02.2008 20:27:00
Thomas
Hallo Zusammen
Ich möchte per VBA den grössten Wert einer bestimmten Zahl in einer Spalte ermitteln.
In Spalte A stehen folgende Zahlen:
81001
81002
81003
…
83001
83002
83003
…
89001
89002
etc.
Nun möchte ich den höchsten Wert von 83xxx in eine Variable einlesen.
Kann mir da jemand weiterhelfen?
Besten dank
Thomas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Höchster Wert in Variable ermittlen
22.02.2008 21:08:17
ransi
HAllo Thomas
Geht das ?
Tabelle1

 AB
18100181003
281002 
381003 
4… 
583001 
683002 
783003 
8… 
989001 
1089002 

Formeln der Tabelle
ZelleFormel
B1{=MAX(WENN(LINKS(A1:A10;2)="81";A1:A10))}
Enthält Matrixformel:
Umrandende
{ } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

Anzeige
AW: Höchster Wert in Variable ermittlen
22.02.2008 21:35:04
Thomas
Hallo ransi
Leider Nein.
Ich sollte sowieso ein VBA-Code haben, da im Hintergrund ein Routine abläuft, danach möchte ich eben diesen grössten Wert (83xxx) 10 Zeilen unterhalb der letzten einfügen.
Suche noch weiter....
Thomas

AW: Höchster Wert in Variable ermittlen
22.02.2008 21:51:36
Daniel
HI
vielleicht mit diesem Mako
Sub Test() Dim Werte Dim Wert Dim MaxWert As Double Werte = ActiveSheet.UsedRange.Columns(1).Value For Each Wert In Werte If Left(Wert, 2) = "83" Then If Wert > MaxWert Then MaxWert = Wert Next ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeLastCell).Offset(10, 0) = MaxWert End Sub


Gruß, Daniel

Anzeige
Perfekt....Danke u.T.
23.02.2008 15:29:13
Thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige