Tabelle sortieren per Formel/VBA
#1
Hi,

es gibt folgenden Tabellenaufbau:

Inhaltsverzechnis

BCD
4Geräte NummerTypHersteller
547Bohrmaschine Bosch
635Akkuschrauber Makita
766Staubsauger Kärcher
886HochdruckreinigerStihl
9112ReinigungsmaschineHubert
1017SchleifbockBosch
1133StänderbohrmaschieneFlott
1262WinkelschleiferMakita
1334SchlagbohrmaschineHilti
1477LadegerätRobin
15
16
Formeln der Tabelle
ZelleFormel
B5=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A1)-1));"")
C5=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A1)-1));"")
D5=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A1)-1));"")
B6=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A2)-1));"")
C6=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A2)-1));"")
D6=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A2)-1));"")
B7=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A3)-1));"")
C7=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A3)-1));"")
D7=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A3)-1));"")
B8=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A4)-1));"")
C8=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A4)-1));"")
D8=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A4)-1));"")
B9=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A5)-1));"")
C9=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A5)-1));"")
D9=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A5)-1));"")
B10=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A6)-1));"")
C10=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A6)-1));"")
D10=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A6)-1));"")
B11=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A7)-1));"")
C11=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A7)-1));"")
D11=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A7)-1));"")
B12=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A8)-1));"")
C12=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A8)-1));"")
D12=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A8)-1));"")
B13=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A9)-1));"")
C13=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A9)-1));"")
D13=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A9)-1));"")
B14=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A10)-1));"")
C14=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A10)-1));"")
D14=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A10)-1));"")
B15=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A11)-1));"")
C15=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A11)-1));"")
D15=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A11)-1));"")
B16=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!H$8:'Prüfintervall 12 Monate'!BBV$8;1+11*(ZEILE('Prüfintervall 12 Monate'!A12)-1));"")
C16=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$9:'Prüfintervall 12 Monate'!BBV$9;1+11*(ZEILE('Prüfintervall 12 Monate'!A12)-1));"")
D16=WENNFEHLER(INDEX('Prüfintervall 12 Monate'!C$10:'Prüfintervall 12 Monate'!BBV$10;1+11*(ZEILE('Prüfintervall 12 Monate'!A12)-1));"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8



Gibt es eine Möglichkeit, diese Formelwerte automatisch aufsteigend nach Spalte B zu sortieren mittels Formelerweiterung oder Hilfsspalte?

Wenn dies nur per VBA ginge: wie ermittele ich die letzte Zelle in B, die ein Formelergebnis > "" enthält?
Mit freundlichen Grüßen  :)
Michael
Top
#2
Hola,

per Formel:

http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=236

Gruß,
steve1da
Top
#3
Hallo Michael,

ich denke, da muß die vorhandene Formel geändert werden. Dazu braucht man aber die Ausgangstabelle. :20:

Ich denke mit Aggregat läßt sich das leicht bewerkstelligen.
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Top
#4
Hi Steve,

danke, aber da wird nur die 1. Spalte sortiert, hier sollen aber alle 3 Spalten in Abhängigkeit der Spalte B sortiert werden.
Mit freundlichen Grüßen  :)
Michael
Top
#5
Hi,

anbei die Musterdatei


Angehängte Dateien
.zip   Prüfprotokolle.zip (Größe: 279,03 KB / Downloads: 2)
Mit freundlichen Grüßen  :)
Michael
Top
#6
Hi,

z.B. so:

Arbeitsblatt mit dem Namen 'Inhaltsverzechnis'
 BCD
2Inhaltsverzeichnis
3
4Geräte NummerTypHersteller
517SchleifbockBosch
633StänderbohrmaschieneFlott
734SchlagbohrmaschineHilti
835AkkuschrauberMakita
947BohrmaschineBosch

ZelleFormel
B5=WENNFEHLER(AGGREGAT(15;6;'Prüfintervall 12 Monate'!$8:$8;ZEILE(A1));"")
C5=WENN(B5="";"";INDEX('Prüfintervall 12 Monate'!$9:$9;VERGLEICH(B5;'Prüfintervall 12 Monate'!$8:$8;0)-5))
D5=WENN(B5="";"";INDEX('Prüfintervall 12 Monate'!$10:$10;VERGLEICH(B5;'Prüfintervall 12 Monate'!$8:$8;0)-5))
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Top
#7
Hi Edgar,

danke, es scheint so zu klappen, Supi.

Da wird sich der Fragesteller hier: http://www.clever-excel-forum.de/Thread-...nis?page=3  freuen.
Mit freundlichen Grüßen  :)
Michael
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste