Dieser Code treibt mich noch in den Wahnsinn

Grüezi Frank

Das habe ich ja schon verstanden mit den 7 Spalten und das
dann immer dieselbe Spalte der nächsten Runde gemeint ist(Step
7).

Warum Excel aber 15 mal zwischen der Schleife hin und her
springt,dass verstehe ich nicht.Für mich heisst dass,das Excel
irgendwas in allen 15 Runden abfragt bzw. überprüft. Ich seh
ja am Bildschirm auch nichts,was da im diesem Moment
passiert(trotz zweier Bildschirme a 22").

Ich versuche mal, die Zeilen mit Kommentaren zu versehen, vielleicht wirds dann einfacher für dich (der Zusamenhang fehlt zwar ein wenig, da nicht bei allen Variablen klar ist wie sie belegt sind):

'Hier beginnt die Schleife mit der Varialben N - ihr wird der Wert 6 zugewiesen und dann bei jedem weiteren Durchlauf um 7 erhöht
For N = 6 To 104 Step 7

’ Hier wird die Variable ‚Target‘ geprüft ob sie in der Spalte liege deren Wert in der Variablen N steht (also Spalte 6.13,20…)
If Target.Column = N Then

'Wenn das zutrifft, dann wird der Variable ‚OK‘ der Wert 'True zugewiesen und die Schleife wird verlassen
OK = True
Exit For
End If

'Hier gehts dann wieder zum ‚For‘-Teil der Schleife und der nächste Wert wird abgearbeitet, sofern die Schleift nicht vorher verlassen worden ist
Next N

Das war jetzt nur
bei der QS-Solo,bei Durch-Solo springt der Code dann
zusätzlich noch in die Funktion RSumme(die dürfte in der
hochgeladenen Mappe nicht drin sein).Das verwirrt mich total.

In diesem Falle wird es so sein, dass die Funktion RSumme() innerhalb der Schleife aufgerufen wird um einen Wert zu berechnen.
Daher wird diese Funktion dann in jedem Schleifendurchlauf aufgerufen.

Gib nicht auf und versuche zu verstehen, was der Code tut.

Ich bemühe mich ja und will es ja auch verstehen,ist aber
nicht einfach.

…das hat auch niemand behauptet - aber Du bist auf gutem Wege :wink:

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Guten Morgen Thomas,

zunächst habe ich mal alle hochgeladenen Mappen gelöscht und die aktuelle hier hochgeladen:

http://www.file-upload.net/download-7370279/Meine-Kn…

Ich versuche mal, die Zeilen mit Kommentaren zu versehen,
vielleicht wirds dann einfacher für dich (der Zusamenhang
fehlt zwar ein wenig, da nicht bei allen Variablen klar ist
wie sie belegt sind):

'Hier beginnt die Schleife mit der Varialben N - ihr wird der
Wert 6 zugewiesen und dann bei jedem weiteren Durchlauf um 7
erhöht
For N = 6 To 104 Step 7

’ Hier wird die Variable ‚Target‘ geprüft ob sie in der Spalte
liege deren Wert in der Variablen N steht (also Spalte
6.13,20…)
If Target.Column = N Then

'Wenn das zutrifft, dann wird der Variable ‚OK‘ der Wert 'True
zugewiesen und die Schleife wird verlassen
OK = True
Exit For
End If

'Hier gehts dann wieder zum ‚For‘-Teil der Schleife und der
nächste Wert wird abgearbeitet, sofern die Schleift nicht
vorher verlassen worden ist
Next N

Das habe ich ja soweit auch verstanden und deshalb bin ich ja so verwirrt. Eigentlich bin ich ja ein logisch denkender Mensch auch wenn die Tatsache,dass ich zähle,wie oft ich die F8-Taste drücken muss,bis was am Bildschirm passiert für Euch Experten reichlich dämlich klingen muss.

Habe jetzt nochmal im Codebereich von Tabbelle1(Tabbi) einen Haltepunkt vor „Call Berechne(Runde1.Value, „F13“)“ gesetzt,dann im Dropdown-Feld auf QS-Solo gesetzt und die F8-Taste gedrückt.

31x bis in Zelle G13 300 erscheinen(in Zelle F13 steht 191 und es soll QS 11 geprüft werden),ohne auch nur ein einziges mal die Schleife durchlaufen zu haben.Weitere 92x bis in Zelle G15 300 eingetragen werden,wobei 45x die Schleife angesprochen wird,bevor sie verlassen wird(If Target.Column = N Then,End If und Next N je 15x).

Mir als blutiger Laie und mit dem was ich bisher gelernt habe, sagt dass,obwohl wir in Runde 1 sind,prüft Excel ob die Spalten der anderen 14 Runden vorhanden sind.
Wenn ja,muss das so sein?

bei der QS-Solo,bei Durch-Solo springt der Code dann
zusätzlich noch in die Funktion RSumme.

Kurioserweise wird diese Funktion nun nicht mehr innerhalb der Schleife aufgerufen.

…das hat auch niemand behauptet - aber Du bist auf gutem
Wege :wink:

Der Weg ist aber verdammt holprig und mit vielen Stolpersteinen gesät. :wink:

LG Frank

Grüezi Frank

Das habe ich ja soweit auch verstanden und deshalb bin ich ja
so verwirrt. Eigentlich bin ich ja ein logisch denkender
Mensch auch wenn die Tatsache,dass ich zähle,wie oft ich die
F8-Taste drücken muss,bis was am Bildschirm passiert für Euch
Experten reichlich dämlich klingen muss.

Habe jetzt nochmal im Codebereich von Tabbelle1(Tabbi) einen
Haltepunkt vor „Call Berechne(Runde1.Value, „F13“)“
gesetzt,dann im Dropdown-Feld auf QS-Solo gesetzt und die
F8-Taste gedrückt.

31x bis in Zelle G13 300 erscheinen(in Zelle F13 steht 191 und
es soll QS 11 geprüft werden),ohne auch nur ein einziges mal
die Schleife durchlaufen zu haben.Weitere 92x bis in Zelle G15
300 eingetragen werden,wobei 45x die Schleife angesprochen
wird,bevor sie verlassen wird(If Target.Column = N Then,End If
und Next N je 15x).

Mir als blutiger Laie und mit dem was ich bisher gelernt habe,
sagt dass,obwohl wir in Runde 1 sind,prüft Excel ob die
Spalten der anderen 14 Runden vorhanden sind.
Wenn ja,muss das so sein?

Das kann ich so nicht beurteilen - ich weiss ja nicht mal was die einzelnen Codes tun sollen, resp. Wann welche Berechnungen wie ablaufen sollen.
Mir entzieht sich hier also die prinzipielle Logik, sodass ich dann auch nicht auf deren codemässige Umsetzung schliessen kann.

bei der QS-Solo,bei Durch-Solo springt der Code dann
zusätzlich noch in die Funktion RSumme.

Kurioserweise wird diese Funktion nun nicht mehr innerhalb der
Schleife aufgerufen.

Ja, das habe ich auch gesehen und es befremdet mich ebenso.

Aber wie gesagt, ohne die genauen mathematischen Hintergründe zu kennen und was wann wie und unter welchen Voraussetzungen ablaufen und berechnet werden soll, kann ich keine Stellung nehmen.
Möglicherweise hätte ich den Code auch anders aufgebaut.

…das hat auch niemand behauptet - aber Du bist auf gutem
Wege :wink:

Der Weg ist aber verdammt holprig und mit vielen
Stolpersteinen gesät. :wink:

…vielleicht oder wahrscheinlich ist deine Mappe hier auch etwas komplex um dir die Grundlagen anzueignen…

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Grüezi Frank

Hi Thomas,

Kurioserweise wird diese Funktion nun nicht mehr innerhalb der
Schleife aufgerufen.

Ja, das habe ich auch gesehen und es befremdet mich ebenso.

Ich vermute mal das Excel sich irgendwie aufgehangen hat oder dass die Formeln nicht eingetragen waren.

Möglicherweise hätte ich den Code auch anders aufgebaut.

Das habe ich mittlerweile auch desöfteren gelesen ,dass jeder so seinen eigenen Stil beim Programmieren hat,aber jeder damit ans gleiche Ziel gelangt.

…vielleicht oder wahrscheinlich ist deine Mappe hier auch
etwas komplex um dir die Grundlagen anzueignen…

Da wirst du mit Sicherheit recht haben und ich werde mit diesem Projekt das Pferd von hinten aufzäumen,aber Bücher zu lesen ist a) total öde und b)für mich alleine nicht der effektivste Weg. Ich hab gedacht,wenn ich den Code in meiner Mappe verstehe,da ich ja weiß,was passieren soll, könnte ich darauf aufbauen und hätte die eine oder andere Grundlage.

LG Frank

Hallo Frank,

ich denke, Thomas hat Recht: Für den Anfang ist der Code in deiner Mappe recht komplex. Auch ich scheitere an der Interpretation, weil mir die Grundlagen fehlen, sprich, ich weiß nicht, was diese Berechnungen tun sollen. Solange man das nicht weiß, ist es sehr schwer, fremden Code zu analysieren.

Du sollst ja nicht nach trockenen Büchern lernen. Aber es wäre für dich bestimmt einfacher und eher zielführend, wenn du dir erst mal selber Aufagben stellst, und versuchst, sie mit VBA umzusetzten. Das bringt dich weiter, als zu versuchen, fremden Code in einem komplexen Projekt zu analysieren.
Nimm dir doch z.B. einfach mal eine ganz einfache Teilaufgabe deiner Mappe:
Gib in irgend eine Zelle eine Zahl ein und schreibe einen Code, der die Quersumme ermittelt.

Außedem kann ich nur noch mal empfehlen, einfach hier im Forum mitzulesen, was andere so für Fragen haben. Ich denke, bei der einen oder anderen Aufgabe könntest du sicher auch schon eine Lösung erstellen - einfach für dich alleine. Und dann schau halt mal, was sonst so für Antworten kommen.
Glaub mir, diese einfache Weise hilft dir schneller, als zu versuchen, den Code deiner Kniffel-Mappe zu durchschauen.

Gruß, Andreas

Hi Andreas,

auf der Grundlage deiner Erklärung habe ich ja schon meinen ersten kleinen Code selbst geschrieben.

Public Sub QsTisch()
 Dim i As Long
 For i = 13 To 166 Step 5
 If Qsum(Sheets(1).Cells(i, 6).Value + Sheets(1).Cells(i + 1, 6).Value + Sheets(1).Cells(i + 2, 6).Value + Sheets(1).Cells(i + 3, 6).Value) = Sheets(1). \_
Cells(8, 7).Value Then
 Sheets(1).Cells(i, 9).Value = Sheets(1).Cells(2, 11).Value
 End If
 Next i
End Sub

Und so hoffe ich, Schritt für Schritt weiter zu kommen und die restlichen Funktionen auch irgendwie zustande zu bringen.

LG Frank

Grüezi Andreas

auf der Grundlage deiner Erklärung habe ich ja schon meinen
ersten kleinen Code selbst geschrieben.

Kannst Du uns bitte auch noch sagen, was genau der Code bewirken soll?
Denn nur wenn wir den Hintergrund des Codes, also das was er genau macht, verstehen, können wir dir auch besser helfen.

Ich versuche einfach mal zu interpretieren…

Public Sub QsTisch()
Dim i As Long
For i = 13 To 166 Step 5

Hier gehsT Du ab Zile 13 in 5-er Schritten alle Zeilen-Blöcke durch (in nehme an das sind die einzelnen Tische)

If Qsum(Sheets(1).Cells(i, 6).Value + Sheets(1).Cells(i + 1,
6).Value + Sheets(1).Cells(i + 2, 6).Value + Sheets(1).Cells(i

  • 3, 6).Value) = Sheets(1).Cells(8, 7).Value Then

Zählst die gemachten Punkte zusammen und berechnest die Quersumme der Summe dieser 4 Werte.

Diese Quersumme vergleichst Du dann mit dem Wert der Zelle G8.
Stimmt der Wert überein, wird der Wert aus der ersten Zeile des Pblockes Spalte I in die Zelle K2 geschrieben.

Sheets(1).Cells(i, 9).Value = Sheets(1).Cells(2, 11).Value
End If
Next i

Das geht dann so weiter, bis alle Tische abgearbeitet sind.

End Sub

Was soll denn der Code genau tun - am Ende steht (bei Übeeinstimmung der Quersumme) der Wert des letzten Tisches in der genannten Zelle.

Und so hoffe ich, Schritt für Schritt weiter zu kommen un die
restlichen Funktionen auch irgendwie zustande zu bringen.

Wir unterstützen dich auch gerne dabei, aber dafür müssen wir wissen welche Berehnungen Du denn genau anstellen willst - also die mathematischen Hintergrunde und/oder Rechenregeln, die Du verwenden willst/musst.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Andreas Frank owT
.

Guten Morgen Thomas,

Kannst Du uns bitte auch noch sagen, was genau der Code
bewirken soll?
Denn nur wenn wir den Hintergrund des Codes, also das was er
genau macht, verstehen, können wir dir auch besser helfen.

Das will ich gerne tun.

Ich versuche einfach mal zu interpretieren…

Public Sub QsTisch()
Dim i As Long
For i = 13 To 166 Step 5

Hier gehsT Du ab Zile 13 in 5-er Schritten alle Zeilen-Blöcke
durch (in nehme an das sind die einzelnen Tische)

Genauso ist es.

:If Qsum(Sheets(1).Cells(i, 6).Value + Sheets(1).Cells(i + 1,


> 6).Value + Sheets(1).Cells(i + 2, 6).Value + Sheets(1).Cells(i  
> + 3, 6).Value) = Sheets(1).Cells(8, 7).Value Then

Zählst die gemachten Punkte zusammen und berechnest die
Quersumme der Summe dieser 4 Werte.

So sollte es eigentlich funktionieren.

Diese Quersumme vergleichst Du dann mit dem Wert der Zelle G8.
Stimmt der Wert überein, wird der Wert aus der ersten Zeile
des Pblockes Spalte I in die Zelle K2 geschrieben.

Nein,genau umgedreht,der Wert aus K2 wird bei Übereinstimmung in die erste Zeile der Spalte I geschrieben.

:Sheets(1).Cells(i, 9).Value = Sheets(1).Cells(2, 11).Value


> End If  
> Next i

Das geht dann so weiter, bis alle Tische abgearbeitet sind.

Richtig,und das soll dann je nach Bedarf für jede Runde geschehen,jenachdem was im Dropdown-Feld ausgewählt wird

End Sub

Was soll denn der Code genau tun - am Ende steht (bei
Übeeinstimmung der Quersumme) der Wert des letzten Tisches in
der genannten Zelle.

Eigentlich das,wie von mir beschrieben.Und das macht der Code ja auch bei mir in der Mappe
Habe das auf der Basis der Erklärung von Andreas- siehe hier
/t/was-bedeutet-der-code-zu-deutsch-und-im-einzelnen…
für den Pchen-Code entsprechend auf den Tisch angepasst(den fehler hab ich geändert)

Und so hoffe ich, Schritt für Schritt weiter zu kommen un die
restlichen Funktionen auch irgendwie zustande zu bringen.

Wir unterstützen dich auch gerne dabei, aber dafür müssen wir
wissen welche Berehnungen Du denn genau anstellen willst -
also die mathematischen Hintergrunde und/oder Rechenregeln,
die Du verwenden willst/musst.

Es geht immer um Quersumme,Primzahl und teilbar durch. Mal als Solo(jede zelle für sich),mal als Pchen(F13+F15 usw.) und mal als Tisch(F13-F16). Je nachdem,was im Dropdown-Feld steht.

LG Frank

Guten Morgen Andreas,

hat dieses „ohne weiteren Text“ irgendwas besonderes zu bedeuten?

Gruß Frank

nein,

es sollte nur ein Hinweis für Thomas sein, dass er unsere Namen verwechselt hat.

Gruß, Andreas

Hallihallo,

habe mir mal folgendes zurecht gebastelt.

Aus nem Forum(http://www.office-loesung.de/ftopic226249_0_0_asc.php) diesen Code für Primzahlen in mein Modul Primzahlen rein kopiert,

Public Function PrimZ(zahl) As Boolean
Dim wurzel
Dim L
Dim bol As Boolean
bol = True
'Eine Schleife aufsetzen bis zur Wurzel der Zahl.
'Ist die Zahl durch ein Element der Schleife teilbar dann ist
'die Zahl keine Primzahl.
wurzel = Int(Sqr(zahl))
For L = 2 To wurzel
 If (zahl / L) = Int(zahl / L) Then
 bol = False
 Exit For
 End If
Next
PrimZ = bol
End Function

und dann folgenden Code selbst gebastelt.

Public Sub PrimPchen()
 Dim i As Long

 'Es wird im Blatt "Tabbi" immer der erste in so einem Viererpack von Teilnehmern betrachtet.
 For i = 13 To 166 Step 5

 'Hier werden die Punkte (aus Spalte F) des ersten und dritten Teilnehmers des Viererpacks addiert,
 'und die gebildete Summe wird auf Primzahl überprüft.
 If PrimZ(Sheets(1).Cells(i, 6).Value + Sheets(1).Cells(i + 2, 6).Value) = True Then

 'Wenn die Summe eine Primzahl ist, wird in H13 für den ersten Teilnehmer des Viererpacks der Wert eingetragen, der in Zelle K2 steht
 Sheets(1).Cells(i, 8).Value = Sheets(1).Cells(2, 11).Value
 End If

 'Entsprechendes gilt für den zweiten und vierten Teilnehmer des Viererpacks
 If PrimZ(Sheets(1).Cells(i + 1, 6).Value + Sheets(1).Cells(i + 3, 6).Value) = True Then
 Sheets(1).Cells(i + 2, 8).Value = Sheets(1).Cells(2, 11).Value
 End If

 'Mit dieser Anweisung wird zum nächsten Viererpack gesprungen
 Next i
End Sub

habe den Code gestartet,und siehe da,es hat funktioniert.

***** Freu *****

Was sagt ihr zu dem Code. Würde er ne Abnahme bekommen,oder kann man ihn noch verbessern?

Und ist es für die Programmierung von Vortei,wenn man weiss,wo die Obergrenze der Primazahlen ist(die also vorkommen können)

LG Frank

Hallo Frank,

der Code sieht doch ganz gut aus.
Einen „Verbesserungs“-Vorschlag hätte ich noch, damit du dir in Zukunft etwas Tipparbeit sparen kannst:
Kennst du die With-Anweisung? Ich versuch’s hier jetzt nicht genau zu erklären, schau einfach mal in die VBA-Hilfe.
Damit sähe der Code dann so aus:

Public Sub PrimPchen()
 Dim i As Long

 With Sheets(1)
 'Es wird im Blatt "Tabbi" immer der erste in so einem Viererpack von Teilnehmern betrachtet.
 For i = 13 To 166 Step 5

 'Hier werden die Punkte (aus Spalte F) des ersten und dritten Teilnehmers des Viererpacks addiert,
 'und die gebildete Summe wird auf Primzahl überprüft.
 If PrimZ(.Cells(i, 6).Value + .Cells(i + 2, 6).Value) = True Then

 'Wenn die Summe eine Primzahl ist, wird in H13 für den ersten Teilnehmer des Viererpacks der Wert eingetragen, der in Zelle K2 steht
 .Cells(i, 8).Value = .Cells(2, 11).Value
 End If

 'Entsprechendes gilt für den zweiten und vierten Teilnehmer des Viererpacks
 If PrimZ(.Cells(i + 1, 6).Value + .Cells(i + 3, 6).Value) = True Then
 .Cells(i + 2, 8).Value = .Cells(2, 11).Value
 End If

 'Mit dieser Anweisung wird zum nächsten Viererpack gesprungen
 Next i
 End With
End Sub

Gruß, Andreas

Hallo Andreas,

der Code sieht doch ganz gut aus.
Einen „Verbesserungs“-Vorschlag hätte ich noch, damit du dir
in Zukunft etwas Tipparbeit sparen kannst:
Kennst du die With-Anweisung? Ich versuch’s hier jetzt nicht
genau zu erklären, schau einfach mal in die VBA-Hilfe.

Ich weiss, „With“ weist einem Objekt -hier dem Objekt „Tabellenblätter“ die Anweisung das „1.te Tabellenblatt“ zu.

Ich merke mir das so. Der Code bzw. das was zu prüfen ist,geschieht im 1.ten Tabellenblatt der Mappe.
Deswegen würde ich das sogar in "With Worksheets(Tabbi) umbenennen,damit,wenn ich Schussel die Blätter mal verschiebe,immer noch das richtige Blatt angesprochen wird.

Das freut mich riesig,dass der Code so okay ist. Auch an dem Teil,den ich ausm Netz eingefügt habe ist alles okay,oder gibt´s da auch noch nen Verbesserungsvorschlag?

Gruß Frank

Hallo zusammen (und sorry für die Namensverwechslung, liegt wohl an meiner Grippe)

Ich arbeite auch gerne mit With und noch lieber mit Range() anstelle von Cells(), da ich nicht gerne umrechnen mag. Dafür dann aber von der ersten Zelle ausgehend immer schön mit .Offset() den Versatz berechnen.

Der Code sieht dann so aus:

Public Sub PrimPchen()
Dim i As Long

 'Es wird im Blatt "Tabbi" immer der erste in so einem Viererpack von Teilnehmern betrachtet.
 For i = 13 To 166 Step 5

 'Hier werden die Punkte (aus Spalte F) des ersten und dritten Teilnehmers des Viererpacks addiert,
 'und die gebildete Summe wird auf Primzahl überprüft.
 With Scheets(1).Range("F" & i)
 If PrimZ(.Offset(0, 0).Value + .Offset(2, 0).Value) Then
 'Wenn die Summe eine Primzahl ist, wird in H13 für den ersten Teilnehmer des Viererpacks der Wert eingetragen, der in Zelle K2 steht
 .Offset(0, 2).Value = Sheets(1).Range("K2").Value
 End If

 'Entsprechendes gilt für den zweiten und vierten Teilnehmer des Viererpacks
 If PrimZ(.Offset(1, 0).Value + .Offset(3, 0).Value) Then
 .Offset(1, 2).Value.Value = Sheets(1).Range("K2").Value
 End If
 End With
 'Mit dieser Anweisung wird zum nächsten Viererpack gesprungen
 Next i
End Sub

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Lieber Herr Ramel :stuck_out_tongue:,

Grippe hin,Grippe her :wink:,deshalb musst du nicht gleich komisch werden :smiley:

Ick freu mir hier wie blöd,das ich es hinbekommen hab,dann kommst du und haust mir direkt wieder neue Begriffe wie „Offset“ um die Ohren. :wink:

Und dann soll mein Kopf nicht bald platzen…

LG Frank

P.S. Werde jetzt in der ollen,total doofen Hilfe(weil sie nie richtig funzt) nachschlagen.

Grüezi FRANK (!!)

Lieber Herr Ramel :stuck_out_tongue:,

Grippe hin,Grippe her :wink:,deshalb musst du nicht gleich
komisch werden :smiley:

Komisch sein kann ich ganz gut auch ohne Grippe… :wink:

Ick freu mir hier wie blöd,das ich es hinbekommen hab,dann
kommst du und haust mir direkt wieder neue Begriffe wie
„Offset“ um die Ohren. :wink:

Na, klar soch - Du wolltest ja etwas lernen…

P.S. Werde jetzt in der ollen,total doofen Hilfe(weil sie nie
richtig funzt) nachschlagen.

Das geht in VBA aber sehr einfach - Cursor Im VBA-Editor in den Begriff stellen, der dich interessiert und F1 drücken. :smile:

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Hi Thomas,

Das geht in VBA aber sehr einfach - Cursor Im VBA-Editor in
den Begriff stellen, der dich interessiert und F1 drücken. :smile:

Das funktioniert ja auch,aber wenn ich in der Hilfe generell was nachsehen will,das haut dann nicht hin.

ich bin grad dabei zu lernen und suche,wie man dividiert.

LG Frank

Hallo zusammen (und sorry für die Namensverwechslung, liegt
wohl an meiner Grippe)

Grüezie Thomas,

echt eine Grippe auweija, ich hoffe für dich nur ein grippaler Effekt.
Naja, dieses kleine „nur“ kann auch recht umhauend sein :frowning:
Wie auch immer, ich wünsche dir gute Besserung :smile:

@Frank, ich war jetzt nochma 5 Tage im KH ohne Internet.
Und seh schon wieder endloslange Beitragsfolge.
Was ist denn noch an Fragen deinerseits offen?

Zu „With“, das ist gut, gewöhn’s dir an. Natürlich darfste nachfragen
warum.

Gruß
Reinhard

Guten Morgen Reinhard,

aber nu reicht es bei dir mit KH. Du wirst hier gebraucht :wink:

Von dieser Stelle auch dir gute Besserung.

Viele Fragen dienen einfach dem besseren bzw. generellen Verstehen dieser Materie.

Was noch offen ist,sind die restlichen 6 Funktionen. 4 davon habe ich durch meine Fragerei und die daraus resultierenden Erklärungen quasi selbst hinbekommen. Fehlen jetzt nur noch „Durch-Pchen“ und „Durch-Tisch“. Dann müssen die 6 Funktionen noch alle in deien Code eingebunden werden. Mühsam mühsam sage ich dir.

LG Frank