Unterverzeichnisse\.\.\.\.\.\.\... auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

…importiert, Micha;
Spur der dt Gründerzeit im letzten Drittel/Viertel des 19.Jhds. Möglicherweise gibt's im Deutschen auch neben Ski (dt verwandt ist Scheit) noch Anderes wie bspw den Wolkenkratzer. Manche Linguisten vermuten da norwegische Vermittlung mit Übersetzungsfehler, obwohl ich da nicht so recht dran glaube — en skyscraper → en sky (dt [sichtbarer Wolken-]Himmel) ← Lehnwort aus dem an sky → norw Aussprache schüh (dt Wolke), weil der Wasserzieher (Duden der Ethymologen) zu ggf an „den Haaren herbeigezogenen“ Erklärungen neigt. Teufel wird bspw von lat/gr deus/ballein (dt Gott/hinübertragen abgeleitet, also angeblich soviel wie „Gottesleugner/-verleumder“, während doch lat/phön Deus Baal viel naheliegender ist, handelt es sich bei Baal doch um den höchsten phönikischen Gott, Bruder des hebräischen Jahwe und sein größter Konkurrent, genau wie ihre Völker auch heute noch (Palästinenser/Libanesen gg Israelis). Beide gemeinsam haben lt semitisch-vorderasiatischer Mythologie übrigens ihren Vater El bzw Al (von dem sich Allah ableitet) ermordet. Interessante Schlussfolgerungen lassen sich da doch ziehen… ;-)
Tja, wenn man den Dingen auf den Grund geht, hat der Teufel nichts mit Satan, beide wohl nichts mit Lucifer und schon gar nicht mit der Paradiesschlange (Schöpfergott der Sumerer) zu tun. Der Mensch neigt halt zu Vereinfachungen, wodurch der „Quatsch immer quätscher“ wdn kann wie wir Quasi-Berliner sagen…
Gruß Luc :-?
…und Pardon für den doch etwas längeren OT-Exkurs… ;-)
PS: Das mit Schwedisch (und Finnisch) ist natürlich naheliegend. Aber ein ü als ü verwenden sonst höchstens Letztere und die Türken und Tataren (sowie ggf Mongolen), sofern sie Lateinisch schreiben, wg des Vokalharmonie-Gesetzes.

Sub test() Dim x(1 To 3) As Variant Dim x1(1 To 4) As Variant Dim x2(1 To 2) As Variant Dim x3(1 To 3) As Variant Dim k As Variant Dim l As Variant x1(1) = 1 x1(2) = 2 x1(3) = 3 x1(4) = 4 x2(1) = 5 x2(2) = 6 x3(1) = 7 x3(2) = 8 x3(3) = 9 x(1) = x1 x(2) = x2 x(3) = x3 For Each k In x For Each l In k Debug.Print l Next Next For Each l In x(1) Debug.Print l Next End Sub

Sub test() Dim x(1 To 3) As Variant Dim k As Variant x(1) = Array("x1:1", "x1:2", "x1:3") x(2) = Array("x2:1", "x2:2") x(3) = Array("x3:1", "x3:2", "x3:3", "x3:4") For Each k In x Debug.Print k(0) Next End Sub

…du, Micha,
offensichtlich dein altes Problem nicht wiedererkannt hast… ;-)
Allerdings, Renée, hatte ich gleichlange Arrays geschrieben, damit sich der Zyklus nicht aufhängt, wenn man stets alle Elemente abfragen will. Alternativ kann man bei ungleichzahligen Arrays natürlich auch eine entsprechende Abfrage einbinden. Das Interessante an der Sache ist auch, dass man so auseinanderliegende Zeilen oder/und Spalten in Feldern vereinen kann. Erzeugt man zusätzlich noch 'ne lfd Nr, hat man auch gleich einen Index für das Anlegen der Vereinigungsmatrix. Außerdem gibt's noch jede Menge mehr Einsatzmöglichkeiten, wenn man sich eine solche Basisfkt für die Pgmierung schafft. Darauf kann man etliche „schöne“ udFktt aufbauen… ;-)
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Unterverzeichnisse\.\.\.\.\.\.\... auslesen

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread