26
VBA Code je nach Reihe ausführen
Hallo!
Folgendes:
Ich habe einen (ziemlich langen) VBA - Code, der für 35 Zeilen gleich aussieht nur, dass stadt die Reihenbezeichnung halt anders aussieht.
Sprich einmal werden A15, C15, D15 und G15 bearbeitet und ein anderes mal A18, C18, D18 und G18, je nachdem in welcher Reihe eine Änderung stattfindet.
Also: wird B15 verändert --> Änderungen in A15, C15, D15 und G15
wird B18 verändert --> Änderungen in A18, C18, D18 und G18
Also gäbe es eine möglichkeit den selben Code zuverwenden, in dem halt einfach die passenden Reihen eingesetzt werden, durch eine Art "activeRow." oder so!
Ich hoffe, es ist verständlich, was ich meine.
LG mike
Folgendes:
Ich habe einen (ziemlich langen) VBA - Code, der für 35 Zeilen gleich aussieht nur, dass stadt die Reihenbezeichnung halt anders aussieht.
Sprich einmal werden A15, C15, D15 und G15 bearbeitet und ein anderes mal A18, C18, D18 und G18, je nachdem in welcher Reihe eine Änderung stattfindet.
Also: wird B15 verändert --> Änderungen in A15, C15, D15 und G15
wird B18 verändert --> Änderungen in A18, C18, D18 und G18
Also gäbe es eine möglichkeit den selben Code zuverwenden, in dem halt einfach die passenden Reihen eingesetzt werden, durch eine Art "activeRow." oder so!
Ich hoffe, es ist verständlich, was ich meine.
LG mike
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 147874
Url: https://administrator.de/contentid/147874
Printed on: April 19, 2024 at 23:04 o'clock
26 Comments
Latest comment
Moin xaumichi,
ich bin nicht ganz sicher, welche neuen Erkenntnisse du nun von den Antwortenden erhoffst...
Die meisten Fünftklässler, ausgenommen diese unnützige Blagen meiner Nachbarin, würden dir sofort erzählen.
"Hey, auch in VBA, was immer das sein mag, gibt es doch bestimmt so was wie 'Function' oder 'Sub' oder 'Procedur' oder 'Method'.
Halt irgendwas, dass sich a) aufrufen lässt b) noch dem Aufruf und Rumrödeln wieder eine Zeile nach dem Aufruf weitermacht c) vielleicht auch noch einen Parameter 'Reihe' akzeptiert und verwursten kann."
Ehrlich, ich verstehe entweder die Frage nicht oder die Erwartungshaltung, die du hast.
Wenn du dir einen "(ziemlich langen) VBA-Code" zusammengeharkt hast, dann musst du bei VBA zwangsläufig schon mal in die Hilfe geschaut haben. Anders kommt niemand auf mehr als 3 Zeilen Code.
Bitte formulier doch mal um, was wir dir jetzt antworten können, das dir neue Aspekte oder Horizonte eröffnet.
Grüße
Biber
ich bin nicht ganz sicher, welche neuen Erkenntnisse du nun von den Antwortenden erhoffst...
Die meisten Fünftklässler, ausgenommen diese unnützige Blagen meiner Nachbarin, würden dir sofort erzählen.
"Hey, auch in VBA, was immer das sein mag, gibt es doch bestimmt so was wie 'Function' oder 'Sub' oder 'Procedur' oder 'Method'.
Halt irgendwas, dass sich a) aufrufen lässt b) noch dem Aufruf und Rumrödeln wieder eine Zeile nach dem Aufruf weitermacht c) vielleicht auch noch einen Parameter 'Reihe' akzeptiert und verwursten kann."
Ehrlich, ich verstehe entweder die Frage nicht oder die Erwartungshaltung, die du hast.
Wenn du dir einen "(ziemlich langen) VBA-Code" zusammengeharkt hast, dann musst du bei VBA zwangsläufig schon mal in die Hilfe geschaut haben. Anders kommt niemand auf mehr als 3 Zeilen Code.
Bitte formulier doch mal um, was wir dir jetzt antworten können, das dir neue Aspekte oder Horizonte eröffnet.
Grüße
Biber
Wenn du dir einen "(ziemlich langen) VBA-Code" zusammengeharkt hast, dann musst du bei VBA
zwangsläufig schon mal in die Hilfe geschaut haben. Anders kommt niemand auf mehr als 3 Zeilen Code.
-->Makro aufzeichnen-->5 Zellen formatieren -->gefühlte 2.000 Zeilen Codezwangsläufig schon mal in die Hilfe geschaut haben. Anders kommt niemand auf mehr als 3 Zeilen Code.
Man braucht die Hilfe höchstens um rauszufinden wie man den Rekorder startet
Bitte formulier doch mal um, was wir dir jetzt antworten können, das dir neue Aspekte oder Horizonte eröffnet.
Schau Dir das Beispiel von vorhin noch mal an: VBA - 2 Change-Ereignisse verknüpfen
Da steckt auch schon die halbe Antwort drin.
Gruß F1
Hm...naja, dann probier ich's halt mal anders:
Angenommen ich habe folgendendes Makro:
'nun möchte ich dieses Makro für alle Zeilen von A:ZZ anwenden.
Sprich:
if Range("ZZ2").aktiv then
Range("ZZ15").Interior.Color = RGB (255,0,0)
usw.
Nun meine Frage:
Ist es möglich, dass ich diese "If - Abfrage"
Durch eine Abfrage nach der Aktiven Reihe vereinfache und somit das Makro viel kürzer mache, in dem ich das Range durch eine "activeCell.Row" "erweitere"?
In der Art:
Mein Problem:
Dieser Ausdruck funktioniert so nicht und habe nun schon seit 1h herumprobiert und in Foren gelesen, jedoch nichts passendes gefundn.
Darum erhoffe ich mir eine Hilfe bei der Entwicklung eines Makros, das ca. so funktioniert! =)
LG Mike
[Edit Biber] Codetags gesetzt, falls wir die Zeilennummern mal brauchen sollten beim Antworten. [/Edit]
Angenommen ich habe folgendendes Makro:
'----------------------------------------------------------------
Private Sub Test()
If Range("A2").active (= true?) then '(weiß jetzt nicht genau, ob ich das "=true" brauche)
Range("A15").Interior.Color = RGB (255,0,0)
End sub
'--------------------------------------------------------------- Sprich:
if Range("ZZ2").aktiv then
Range("ZZ15").Interior.Color = RGB (255,0,0)
usw.
Nun meine Frage:
Ist es möglich, dass ich diese "If - Abfrage"
Durch eine Abfrage nach der Aktiven Reihe vereinfache und somit das Makro viel kürzer mache, in dem ich das Range durch eine "activeCell.Row" "erweitere"?
In der Art:
'-----------------------------
Private Sub Test_neu()
Range("ZZ, activeCell.Row").Interior.Color=RGB(255,0,0)
End Sub
'------------------------------- Dieser Ausdruck funktioniert so nicht und habe nun schon seit 1h herumprobiert und in Foren gelesen, jedoch nichts passendes gefundn.
Darum erhoffe ich mir eine Hilfe bei der Entwicklung eines Makros, das ca. so funktioniert! =)
LG Mike
[Edit Biber] Codetags gesetzt, falls wir die Zeilennummern mal brauchen sollten beim Antworten. [/Edit]
Hallo xaumichi!
Versuch mal anstatt
das
Gruß Dieter
Versuch mal anstatt
| Range("ZZ, activeCell.Row").Interior.Color=RGB(255,0,0) |
| Cells(ActiveCell.Row, "ZZ").Interior.Color=RGB(255,0,0) |
Gruß Dieter
... oder auch
BTW: Die Adress(bestandteil)e und den ursprünglichen Farbwert der zuletzt eingefärbten Zelle solltest Du (in globalen Variablen) zwischenspeichern - Du wirst ja vermutlich bei einer Änderung der aktiven Zelle die Umfärbung auch wieder rückgängig machen wollen ...
Grüße
bastla
Cells(ActiveCell.Row + 13, ActiveCell.Column).Interior.Color = RGB(255, 0, 0)
Grüße
bastla
Hi,
das war ja die ursprüngliche Frage:
Erstelle eine Prozedur und übergebe als Parameter die zu bearbeitende Range.
gruß F1
das war ja die ursprüngliche Frage:
Also gäbe es eine möglichkeit den selben Code zuverwenden, in dem halt einfach die passenden Reihen eingesetzt werden,
Erstelle eine Prozedur und übergebe als Parameter die zu bearbeitende Range.
Sub test()
Färben Range("A15:G15")
Färben Range("A18:G18")
End Sub
Sub Färben(rng As Range)
rng.Interior.Color = RGB(255, 0, 0)
rng.Font.Size = 18
'usw
End Subgruß F1
Hallo bastla!
Gruß Dieter
Zitat von @bastla:
BTW: Die Adress(bestandteil)e und den ursprünglichen Farbwert der zuletzt eingefärbten Zelle solltest Du (in globalen
Variablen) zwischenspeichern - Du wirst ja vermutlich bei einer Änderung der aktiven Zelle die Umfärbung auch wieder
rückgängig machen wollen ...
Das könnte sich als etwas problematisch erweisen, falls z.B. das Worbook geschlossen und wieder geöffnet wird, dann ist die Variable nicht verfügbar/initialisiert, was wiederum zu einem Fehler führt. Insofern würde ich einfach die ganze Spalte oder entsprechenden Range-Bereich vor dem Neusetzen erst zurücksetzen.BTW: Die Adress(bestandteil)e und den ursprünglichen Farbwert der zuletzt eingefärbten Zelle solltest Du (in globalen
Variablen) zwischenspeichern - Du wirst ja vermutlich bei einer Änderung der aktiven Zelle die Umfärbung auch wieder
rückgängig machen wollen ...
Gruß Dieter
Hallo Dieter!
Grüße
bastla
falls z.B. das Worbook geschlossen und wieder geöffnet wird, dann ist die Variable nicht verfügbar/initialisiert
Doch (wenn sie vor dem Code unter "Allgemein / Deklarationen" deklariert wird - sie soll ja global sein); sie hat dann nur den Wert 0, der sich ja abfragen lässt ...Grüße
bastla
Hallo bastla!
Gruß Dieter
Zitat von @bastla:
> falls z.B. das Worbook geschlossen und wieder geöffnet wird, dann ist die Variable nicht verfügbar/initialisiert
Doch (wenn sie vor dem Code unter "Allgemein / Deklarationen" deklariert wird - sie soll ja global sein); sie hat dann
nur den Wert 0, der sich ja abfragen lässt ...
Ich verstehe schon, was Du meinst, aber angenommen die Zelle A18 ist rot und das Workbook wird geschlossen, dann ist die Zelle beim öffnen immer noch rot und die Variable mit Wert 0 entspricht keiner gültigen Zell-Adresse. Oder steh ich jetzt irgendwie auf der Leitung? > falls z.B. das Worbook geschlossen und wieder geöffnet wird, dann ist die Variable nicht verfügbar/initialisiert
Doch (wenn sie vor dem Code unter "Allgemein / Deklarationen" deklariert wird - sie soll ja global sein); sie hat dann
nur den Wert 0, der sich ja abfragen lässt ...
Gruß Dieter
Hallo Dieter!
Damit hast Du dann natürlich Recht - so global, dass sie auch im "
Die Möglichkeit, die eine oder andere ohnehin nur nutzlos herumlungernde Zelle einer sinnvollen Verwendung zuzuführen und dort, flankiert durch ein Zahlenformat ";;;", die Werte zu hinterlegen, würde ich im Fall des Falles vermutlich auch noch erwägen, aber beim Gedanken, in die Registry (Stichwort "
Grüße
bastla
Damit hast Du dann natürlich Recht - so global, dass sie auch im "
Workbook_BeforeClose"-Ereignis verfügbar wäre, bekomme ich die Variable wohl nicht hin (aber auf einen definierten Standard-Farbwert könnte die eingefärbte Zelle - per "ActiveCell" und Offsetwert - immer noch gebracht werden) ...Die Möglichkeit, die eine oder andere ohnehin nur nutzlos herumlungernde Zelle einer sinnvollen Verwendung zuzuführen und dort, flankiert durch ein Zahlenformat ";;;", die Werte zu hinterlegen, würde ich im Fall des Falles vermutlich auch noch erwägen, aber beim Gedanken, in die Registry (Stichwort "
SaveSetting") zu schreiben, wäre dann Schluss mit lustig ... Grüße
bastla
Hallo!
Der Tip von Didi1954 hat super geklappt.
Genau so hab ich mir das vorgestellt.
@bastla: Ich habe eine "Rückfärbe" - Procedure gemacht.
@ EffEins: Hm....wenn ich das richtig verstanden habe, dann wird bei dir eine Reihe nach der Andren eingefärbt, oder? (das wäre nicht ganz das, das ich gebraucht hätte!)
Trotzdem DANKE an alle!
LG Mike
Der Tip von Didi1954 hat super geklappt.
Genau so hab ich mir das vorgestellt.
@bastla: Ich habe eine "Rückfärbe" - Procedure gemacht.
@ EffEins: Hm....wenn ich das richtig verstanden habe, dann wird bei dir eine Reihe nach der Andren eingefärbt, oder? (das wäre nicht ganz das, das ich gebraucht hätte!)
Trotzdem DANKE an alle!
LG Mike
Aber eine Frage hätte ich doch noch:
Der Befehl:
Cells(ActiveCell.Row, "ZZ").Interior.Color=RGB(255,0,0) (funktioniet auch mit Range(ActiveCell.Row, "ZZ").Interior.Color=RGB(255,0,0))
aber ist es möglich durch diese Schreibweise einen Bereich zu definieren, wie es mit einem "gewöhnlichen" Range möglich ist??
LG Mike
Der Befehl:
Cells(ActiveCell.Row, "ZZ").Interior.Color=RGB(255,0,0) (funktioniet auch mit Range(ActiveCell.Row, "ZZ").Interior.Color=RGB(255,0,0))
aber ist es möglich durch diese Schreibweise einen Bereich zu definieren, wie es mit einem "gewöhnlichen" Range möglich ist??
LG Mike
Hallo bastla!
Gruß Dieter
Zitat von @bastla:
Damit hast Du dann natürlich Recht - so global, dass sie auch im "
wäre, bekomme ich die Variable wohl nicht hin...
Doch per Modul-Public-Variable geht das schon, aber wenn der betroffene Bereich eine standardmäßige gleiche Einfärbung hat, ist es doch viel einfacher, diesen Bereich erst zurückzusetzen und dann erst die Active Zeile neu einzufärben...z.B.Damit hast Du dann natürlich Recht - so global, dass sie auch im "
Workbook_BeforeClose"-Ereignis verfügbarwäre, bekomme ich die Variable wohl nicht hin...
Range("A15:Z35").Interior.ColorIndex = xlNone
ActiveCell.Offset(13, 0).Interior.Color = RGB(255, 0, 0)Gruß Dieter
Hallo xaumichi!
Wenn z.B. die Zelle A10 die aktive Zelle ist, dann wird mit dieser Codezeile der Bereich A23:H23 eingefärbt.
Gruß Dieter
Wenn z.B. die Zelle A10 die aktive Zelle ist, dann wird mit dieser Codezeile der Bereich A23:H23 eingefärbt.
Range(ActiveCell.Offset(13, 0), ActiveCell.Offset(13, 7)).Interior.Color = RGB(255, 0, 0)Gruß Dieter
Okey, habs durch Probieren auch gerade geschafft! ;)
LG Mike
LG Mike
Hm...irgendwien finde ich die Schreibweise mit "....Offset..." nicht wirklich übersichtlich, das man ja sehr viel herumrechnen muss, oder?
Gäbe es nicht die möglichkeit das Range so zu definieren:
nur funktioniert dieser Ausdruck leider nicht!
[Edit Biber] Codetags berichtigt. [/Edit]
Gäbe es nicht die möglichkeit das Range so zu definieren:
Range((ActiceCell.Row, "A2"), (ActiveCell.Row, "N"))
nur funktioniert dieser Ausdruck leider nicht!
[Edit Biber] Codetags berichtigt. [/Edit]
Hallo xaumichi!
Und so?
Grüße
bastla
Und so?
Range(cells(ActiceCell.Row, "A"), cells(ActiveCell.Row, "N"))
bastla
Hm...nö, bekomm ich auch einen fehler.
LG
LG
Hallo xaumichi!
Bei mir funktioniert übrigens
Grüße
bastla
nö, bekomm ich auch einen fehler.
Nur für den unwahrscheinlichen Fall, dass dieser Fehler irgendeine Bedeutung haben könnte - wäre es dann ev sinnvoll, den Inhalt der Fehlermeldung hier wiederzugeben?Bei mir funktioniert übrigens
Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "N")).Interior.Color = RGB(255, 0, 0)
bastla
Oh, sry.
Ich sitzt heute schon so lang vor dem Kasten und tüftle herum, dass ich schon ganz weich bin in der Birne. Sry
Laufzeitfehler '424'
Objekt erforderlich
Ich sitzt heute schon so lang vor dem Kasten und tüftle herum, dass ich schon ganz weich bin in der Birne. Sry
Range(Cells(ActiceCell.Row, "A"), Cells(ActiveCell.Row, "N")).Interior.Color = RGB(255, 255, 255) Laufzeitfehler '424'
Objekt erforderlich
Hallo xaumichi!
Wenn Du das in "
Grüße
bastla
Wenn Du das in "
Worksheet_SelectionChange" einsetzen willst, dann eher:Range(Cells(Target.Row, "A"), Cells(Target.Row, "N")).Interior.Color = RGB(255, 255, 255)
bastla
Hm...okey, soweit funktioniert es mal!
Werd ich morgen dann vollständig ausprobieren, thx schon mal!
schönen abend noch!
LG Mike
Werd ich morgen dann vollständig ausprobieren, thx schon mal!
schönen abend noch!
LG Mike
Hallo xaumichi!
Noch ein Tipp: Vermutlich nicht ganz das, was Du erreichen willst, aber vielleicht trotzdem interessant: SmartTools CellSpot 2.0
Grüße
bastla
Noch ein Tipp: Vermutlich nicht ganz das, was Du erreichen willst, aber vielleicht trotzdem interessant: SmartTools CellSpot 2.0
Grüße
bastla
Hallo!
So. neuer Tag, neues Glück!
Ich habe jetzt ein bisschen mit dem "Target...." oder dem "ActiveCell.Row".... herumprobiert.
Jetzt gibds da ein großes Problem:
(kurz zur Erklärung: Aufgabe ist es, in einer Reihe 4 Zeiten einzutragen)
Es gibt große Unterschiede ob ich nach dem Eintragen einer Zeit mit:
-) mit der Pfeiltast in die nächste Zelle springe
-) mit Enter bestätige und dann mit der Maus in die nächste Zelle springe
-) ohne bestätigen, gleich mit der Maus in die nächste Zelle gehe
Denn so lautet die Befehlzeile einmal:
einmal
also kann ich diese möglichkeit den selben Code für alle 35 Zeilen zu verwenden, oder?
wie würde es aussehen, wenn ich eine CASE-Abfrage mache, je nach dem in welcher Zelle ich stehe und dann in den Code springe, in dem die fixen Bereiche stehen.
sprich:
oder wird das VBA - Programm so zu lange. (wenn eine CASE ca. 400 Zeilen hat!!)
ODER:
beim markieren und Ändern einer Zelle im Bereich B15:B53 wird die Reihe, in der etwas geändert wurde einer Variable zugewiesen und diese Variable wird dann jeweils als "Reihenangabe" zu den Bereichszuweisungen in den Formatierungsbefehln übergeben.
LG Mike
So. neuer Tag, neues Glück!
Ich habe jetzt ein bisschen mit dem "Target...." oder dem "ActiveCell.Row".... herumprobiert.
Jetzt gibds da ein großes Problem:
(kurz zur Erklärung: Aufgabe ist es, in einer Reihe 4 Zeiten einzutragen)
Es gibt große Unterschiede ob ich nach dem Eintragen einer Zeit mit:
-) mit der Pfeiltast in die nächste Zelle springe
-) mit Enter bestätige und dann mit der Maus in die nächste Zelle springe
-) ohne bestätigen, gleich mit der Maus in die nächste Zelle gehe
Denn so lautet die Befehlzeile einmal:
Range(Cells(Target.Row, "A"), Cells(Target.Row, "N")).Interior.Color = RGB(255, 255, 255) einmal
Range(Cells(Target.Row-1, "A"), Cells(Target.Row-1, "N")).Interior.Color = RGB(255, 255, 255) also kann ich diese möglichkeit den selben Code für alle 35 Zeilen zu verwenden, oder?
wie würde es aussehen, wenn ich eine CASE-Abfrage mache, je nach dem in welcher Zelle ich stehe und dann in den Code springe, in dem die fixen Bereiche stehen.
sprich:
Range("A1, A6").Interior.Color = RGB(255, 255, 255) oder wird das VBA - Programm so zu lange. (wenn eine CASE ca. 400 Zeilen hat!!)
ODER:
beim markieren und Ändern einer Zelle im Bereich B15:B53 wird die Reihe, in der etwas geändert wurde einer Variable zugewiesen und diese Variable wird dann jeweils als "Reihenangabe" zu den Bereichszuweisungen in den Formatierungsbefehln übergeben.
LG Mike
Hallo Mike!
Irgendwie steige ich da nicht so ganz durch?
Also, was willst Du nun mit dieser Tatsache (Maus, XY-Taste) den nun genau anfangen? Nenn mal ein explizites Beispiel!
Gruß Dieter
Irgendwie steige ich da nicht so ganz durch?
Zitat von @xaumichi:
Ich habe jetzt ein bisschen mit dem "Target...." oder dem "ActiveCell.Row".... herumprobiert.
Jetzt gibds da ein großes Problem:
(kurz zur Erklärung: Aufgabe ist es, in einer Reihe 4 Zeiten einzutragen)
Es gibt große Unterschiede ob ich nach dem Eintragen einer Zeit mit:
-) mit der Pfeiltast in die nächste Zelle springe
-) mit Enter bestätige und dann mit der Maus in die nächste Zelle springe
-) ohne bestätigen, gleich mit der Maus in die nächste Zelle gehe
Denn so lautet die Befehlzeile einmal:
einmal
Das Target enthält die Zell-Adresse der Zelle, in der eine Änderung stattgefunden hat, unabhängig davon, ob die Maus, Pfeil- oder Return-Taste betätigt wurde.Ich habe jetzt ein bisschen mit dem "Target...." oder dem "ActiveCell.Row".... herumprobiert.
Jetzt gibds da ein großes Problem:
(kurz zur Erklärung: Aufgabe ist es, in einer Reihe 4 Zeiten einzutragen)
Es gibt große Unterschiede ob ich nach dem Eintragen einer Zeit mit:
-) mit der Pfeiltast in die nächste Zelle springe
-) mit Enter bestätige und dann mit der Maus in die nächste Zelle springe
-) ohne bestätigen, gleich mit der Maus in die nächste Zelle gehe
Denn so lautet die Befehlzeile einmal:
Range(Cells(Target.Row, "A"), Cells(Target.Row, "N")).Interior.Color = RGB(255, 255,
> 255)einmal
Range(Cells(Target.Row-1, "A"), Cells(Target.Row-1, "N")).Interior.Color = RGB(255, 255,
> 255)Also, was willst Du nun mit dieser Tatsache (Maus, XY-Taste) den nun genau anfangen? Nenn mal ein explizites Beispiel!
Gruß Dieter
Abend!
Ich weiß nicht warum das so war (vl hatte ich eine Tipfehler oder so), aber wenn ich die Eingabe mit der Enter-Taste bestätigt habe, so wurden die Formatierungen etc. für die Zeile darunter eingetragen, wenn ich jedoch einen Eintrage gemacht habe und dann mit der Pfeiltast eine Zelle weitergesprungen bin, dann haben die Formatierungen usw. super gekplappt.
Naja, auf jeden Fall habe ich die ganzen Befehle für die Bereichszuweisung dann noch mal neu geschrieben und dann hats wunderbar geklappt, so wie ich mir das ganze vorgestellt habe! =)
Also, dein Lösungsweg funktioniert super! :D
THX, LG
Mike
Ich weiß nicht warum das so war (vl hatte ich eine Tipfehler oder so), aber wenn ich die Eingabe mit der Enter-Taste bestätigt habe, so wurden die Formatierungen etc. für die Zeile darunter eingetragen, wenn ich jedoch einen Eintrage gemacht habe und dann mit der Pfeiltast eine Zelle weitergesprungen bin, dann haben die Formatierungen usw. super gekplappt.
Naja, auf jeden Fall habe ich die ganzen Befehle für die Bereichszuweisung dann noch mal neu geschrieben und dann hats wunderbar geklappt, so wie ich mir das ganze vorgestellt habe! =)
Also, dein Lösungsweg funktioniert super! :D
THX, LG
Mike
