Dieser Code treibt mich noch in den Wahnsinn

[anon85587316]

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

[Thomas_Ramel]

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 -

[anon85587316]

Lieber Herr Ramel ,

Grippe hin,Grippe her ,deshalb musst du nicht gleich komisch werden

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.

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.

[Thomas_Ramel]

Grüezi FRANK (!!)

Lieber Herr Ramel ,

Grippe hin,Grippe her ,deshalb musst du nicht gleich
komisch werden

Komisch sein kann ich ganz gut auch ohne Grippe…

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.

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.

Mit freundlichen Grüssen

Thomas Ramel

• MVP für MS-Excel -

[anon85587316]

Hi Thomas,

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

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

[Reinhard_fb8cb7]

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
Wie auch immer, ich wünsche dir gute Besserung

@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

[anon85587316]

Guten Morgen Reinhard,

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

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