Namen finden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Moin alle :-)
@Luc Dein Satz ist a komisch
Das Gefühl hab ich auch manchmal ;-)
(du könntest oft weniger "geschwollen" mehr + besser erklären - ok, ok, natürlich ist es deine und jeder anderer Entscheidung, wie man sich artikuliert - das muss jeder akzeptieren. Aber trotzdem ist es erlaubt, Meinungen dazu zu äußern :-))
Hi Marcus
Ich hab leider gar keinen Plan, was du in der Datei erreichen willst. Daher kann ich auch nur helfen, was den Fehler Mehrfachdeklaration betrifft.
Im Code steht:

Sub Namen(strName As String, dPos As Double)
' StrName = Wert der Letzten zelle, dPos ist entweder 1 oder -1
Dim i As Long
Dim j As Long
Dim suche As Range
Dim varNamen As Variant, strNamen As String, dName As Double, i

Und mit Mehrfachdeklaration ist gemeint, dass du ein und denselben Variablennamen mehrmals mit Dim deklariert hast.
Erkennst du, um welche Variable es sich handelt?
Nein? OK, es handelt sich um i - deswegen Fett und größer :-)
Lösch also eines der beiden i's, am besten das untere, wiederhole das Makro, und du wirst sehen, dass nun kein Fehler mehr vorhanden ist.
Aber nix desto trotz. Ich verstehe absolut nicht, welchen Sinn dein Vorhaben hat, bzw was du erreichen möchtest.
Das soll nicht abwertend sein. Aber leider kann ich nicht weiter helfen.
Ciao
Thorsten

Hallo Thorsten,
danke für deinen Beistand.
Jetzt geht es zumindest ohne Fehlermeldung.
Nun hab ich die Stundenplanseite bis auf 4 Namen abgespeckt, damit es sich leichter hinter den Sinn kommen läßt.

Die Datei https://www.herber.de/bbs/user/85962.xls wurde aus Datenschutzgründen gelöscht

Wenn du in Blatt Arbeitsliste die Pfeil nach Rechts-Taste drückst, springt die akt. Zelle von "Albert" zu "Berta", weil "Berta" im Blatt Stundenplan nach "Albert" kommt. Danach kommt "Fritz" dann "Micha". Zu denen geht jeweils die akt. Zelle. So solls auch sein.
Mit der Pfeil nach Links-Taste geht alles genauso, nur rückwärtz.
Das Problem ist, dass der richtige Code nur dann abläuft, wenn sich die aktive Zelle in Zeile 1 befindet. Entweder muß bei drücken der Pfeil nach ...-Taste die akt. Zelle zu beginn gleich nach ganz oben gehen (was ich mir überhaupt nicht vorstellen kann, sie geht ja in irgendeine horizontale Richtung) oder die Befehle müssen anders lauten.
Gruß Marcus
PS. hatte vergessen das Kontrollkästchen anzuhaken.

'Neues Makro unter Tabelle1 (Stundenplan) Private Sub Worksheet_Activate() Call Tabelle2.Name_Finden(wks:=Me) End Sub 'Zusätzliches Makro unter Tabelle2 (Arbeitsliste) Sub Name_Finden(wks As Worksheet) Dim Zelle As Range If LetzteSpalte 0 Then Set Zelle = wks.Cells.Find(what:=Me.Cells(1, LetzteSpalte).Value, LookIn:=xlValues, _ lookat:=xlWhole) If Not Zelle Is Nothing Then Application.Goto Reference:=Zelle End If End If End Sub

Beliebteste Forumthreads (12 Monate)

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread