Registriert seit: 13.04.2014
Version(en): 365
Hi Werner,
habe ich, bin aber zum Einen im Herbst schon dort und habe zum Andern das Wochenende schon anderweitig verplant.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 05.05.2014
Version(en): 2010 + 2016 Home and Business
Hallo Edgar,
danke für Deine Info. Schade. Dann vielleicht ein anders mal.
Gruß Werner
.. , - ...
Registriert seit: 13.04.2014
Version(en): 365
Hi Werner,
ich behalte das im Auge.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 11.04.2017
Version(en): Office 2016
Hallo zusammen. Leider muss ich nach solanger Zeit das Thema doch nochmal eröffnen.
In Post 34 wurde seinerseits die Richtige Lösung genannt. Kann mir zufällig auch jemand sagen muss wenn ich anstatt zeichen Bytes zählen muss?
Hier nochmal die Formel:
=LINKS(GLÄTTEN(B1);AGGREGAT(15;6;ZEILE(B$1:B$500)/(TEIL(GLÄTTEN(B1);ZEILE(B$1:B$500);1)<>" ");250))
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
meinst Du die Bits von den Zeichen oder stehen in den Zellen Bytes?
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 11.04.2017
Version(en): Office 2016
Hi nein dann meine ich die Bytes. In den Zellen stehen ganz normale Texte drin.
Registriert seit: 01.11.2017
Version(en): 2010
02.11.2017, 15:20
(Dieser Beitrag wurde zuletzt bearbeitet: 02.11.2017, 15:20 von snickers.)
Function L(s, n): While i <= n: i = i + 1: n = n - (Mid(s, i, 1) = " "): Wend: L = Left(s, n): End Function
kürzt Ego noch etwas ab, da es kein AND im While braucht.
Den Vergleich zu AGGREGAT mit einer Sub, welche sich mittels Variantarrays dieses Funktionscodes bedient, reiche ich noch nach ;)
Registriert seit: 01.11.2017
Version(en): 2010
03.11.2017, 12:30
(Dieser Beitrag wurde zuletzt bearbeitet: 03.11.2017, 13:19 von snickers.
Bearbeitungsgrund: Moderatoreneingriff in künstlerische Freiheit
)
[Code privat anfragbar]
Und wieder schlägt sich AGGREGAT überraschend gut:
2 ^16 Zeilen: AGGREGAT Ersteinbau: 0,75 Sekunden: AGGREGAT Rekalk: 1,4 Sekunden: VBA: 0,5 Sekunden
2 ^20 Zeilen: AGGREGAT Ersteinbau: 52 Sekunden: AGGREGAT Rekalk: 21 Sekunden: VBA: 7 Sekunden
VBA halbiert sich von den genannten Werten noch jeweils bei Verzicht auf Worksheetfunction.Trim()
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hallo Lupo,
lass bitte diese Mikroschriftformatierung bleiben. Egal ob bedeutend oder nicht - es ist für die Leser eine Zumutung, wenn zum Entziffern eine Lupe benötigt wird. Zumal die Farbformatierung in dieser Mikroschrift das Lesen nochmals erschwert. Und vllt. interessiert sich ja ein Leser, der nicht mehr über Adleraugen verfügt, für den unbedeutenden Performancevergleich.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
03.11.2017, 20:26
(Dieser Beitrag wurde zuletzt bearbeitet: 03.11.2017, 20:26 von Käpt'n Blaubär.)
Hallo Günter,
ich habe schon vor Stunden wieder zugemacht.
Sowas muß ich mir nicht antun.
Das mache ich jetzt immer so, denn wenn ich darum bitte, das zu ändern,
dann wird das sofort als terroristischer Angriff auf die armen, schutzlosen TE gewertet