Anmelden
Anmelden
Registrieren
Supportnet Forum
Alle Aktivitäten
Alle Fragen
Beliebt!
Unbeantwortet
Themen
Kategorien
Benutzer
Frage stellen
Frage stellen
VBA Code Sortierauswahl
5.4k
Aufrufe
Gefragt
26, Jan 2014
in
Tabellenkalkulation
von
ahorn38
Experte
(
3.2k
Punkte)
Hallo,
ich
suche
einen einfachen VBA Code mit dem ich aus einer Excel-Tabelle Spalte "E1:E20" die drei größten Werte
suchen
und in F1:F3 separat noch einmal listen kann.
Habe mich bisher immer in diversen Vergleichs-Schleifen verheddert.
20
Antworten
0
Punkte
Beantwortet
26, Jan 2014
von
hajo_zi
Experte
(
9.1k
Punkte)
das geht auch ohne Code
=KGRÖSSTE($E$1:$E$20;ZEILE())
und runter ziehen,.
Gruß Hajo
0
Punkte
Beantwortet
26, Jan 2014
von
ahorn38
Experte
(
3.2k
Punkte)
Hallo Hajo,
in meinem speziellen Fall kann ich die Excel-Formel nicht nutzen, da ich das Problem in einem bestehenden Code unterbringen muss. Ich habe es über eine Schleife versucht, bei der ich beim ersten Datensatz anfange und der Reihe mit den folgenden vergleiche bis ich einen größeren gefunden habe, dann diesen wieder mit den nachfolgenden vergleichen usw.... aber leider komme ich nicht zum gewünschten Ergebnis.
0
Punkte
Beantwortet
26, Jan 2014
von
hajo_zi
Experte
(
9.1k
Punkte)
benutze meine Formel und Evaluate()
Gruß Hajo
0
Punkte
Beantwortet
26, Jan 2014
von
hajo_zi
Experte
(
9.1k
Punkte)
Zeile() durch den entsprechenden Wert ersetzen.
Gruß Hajo
0
Punkte
Beantwortet
26, Jan 2014
von
ahorn38
Experte
(
3.2k
Punkte)
Danke Hajo, aber ich glaube ich komme doch nicht um einen Code herum. Ich brauche nämlich im weiteren dann auch die Zeile, in der der betreffende Wert steht, da ich mit den anderen Einträgen in dieser Zeile weiterarbeiten muss.
0
Punkte
Beantwortet
26, Jan 2014
von
hajo_zi
Experte
(
9.1k
Punkte)
Du benutzt umfangreichen Code, da bin ich davon ausgegangen das mein vorgeschlagener VBA Code Dir bekannt ist. Du willst ihn also nicht einsetzen ich bin dann raus.
Gruß Hajo
0
Punkte
Beantwortet
26, Jan 2014
von
fedjo
Experte
(
2.2k
Punkte)
Hallo,
ein Versuch:
Sub Wert()
Dim arr() As Byte, i As Byte, Zeile As Long
ReDim arr(3)
For i = 1 To 3
arr(i) = Application.WorksheetFunction.Large(Range(Cells(3, 5), Cells(20, 5)), i)
Cells(0 + i, 6).Value = arr(i)
Next
End Sub
Gruß
fedjo
0
Punkte
Beantwortet
26, Jan 2014
von
ahorn38
Experte
(
3.2k
Punkte)
Hallo fedjo,
von wegen Versuch..... das ist genau die Lösung!! Ich muss mir das jetzt noch genau ansehen um es auch zu verstehen, aber das Ergebnis ist 100%. Vielen Dank!!
0
Punkte
Beantwortet
27, Jan 2014
von
ahorn38
Experte
(
3.2k
Punkte)
Hallo,
kannst du mir noch sagen wie der Befehl abgewandelt werden müsste um nach den niedrigsten Werten zu suchen?
0
Punkte
Beantwortet
27, Jan 2014
von
m-o
Profi
(
22.8k
Punkte)
Hallo,
ersetze "Large" durch "Small".
Gruß
M.O.
Deine Antwort
Dein angezeigter Name (optional):
Ich möchte eine Email an folgende Adresse erhalten, wenn meine Antwort ausgewählt oder kommentiert wird:
Ich möchte eine Email erhalten, wenn meine Antwort ausgewählt oder kommentiert wird
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte
logge dich ein
oder
melde dich neu an
, um das Anti-Spam-Captcha zu vermeiden.
Seite:
1
2
nächste »
58.5k
Fragen
250k
Antworten
7.1k
Nutzer
Alle Kategorien
Windows 11
(83)
Windows 10
(1.8k)
Windows 8
(648)
Windows 7
(5.8k)
WindowsVista
(2.8k)
WindowsXP
(8.8k)
Windows2000
(239)
Windows NT
(29)
WindowsME
(77)
Windows98
(342)
Windows95
(29)
BS-Sonstige
(531)
Linux
(757)
Textverarbeitung
(1.3k)
Tabellenkalkulation
(7.3k)
Datenbanken
(985)
Bildbearbeitung
(648)
Security Viren
(823)
E-Mail Outlook
(2.4k)
Präsentation
(226)
Internet Browser
(1.9k)
SW-Sonstige
(1.7k)
Mainboard CPU RAM
(1.6k)
Grafikkarten
(980)
Peripherie
(1k)
Smartphone
(477)
DigitalKameras
(182)
HW-Sonstiges
(2.6k)
DSL
(675)
ISDN
(138)
W-LAN
(1.2k)
Modem
(205)
Telekommunikation
(894)
NW-Sonstiges
(725)
Skripte(PHP,ASP,Perl...)
(608)
Webseiten HTML
(872)
Anwendungen(Java,C++...)
(500)
PC-Sonstiges
(2.7k)
Plauderecke
(3.4k)
SN Intern
(397)
Test
(238)
temp
(0)
Beliebteste Themen
excel
vba
windows
windows10
10
makro
outlook
word
android
vba-excel
google
formel
pc
access
update
bedingte_formatierung
e-mail
wlan
makros
drucker
...