Blatt fixieren bzw. mitlaufen lassen

[AntjeM]

Hallo zusammen,

ich habe eine Excel-Mappe mit ca 70 Blättern. Einige davon ( Technikblätter) geben an ein Übersichtsblatt Informationen weiter. Dieses befindet sich ganz vorn in der Mappe. Wenn ich nun so ein Technik-Blatt anklicke, sollte das Übersichtsblatt mitwandern. Dann können die Infos leichter abgeglichen werden. 

Dazu hatte ich folgenden Code eingesetzt:

Private Sub Worksheet_Activate()
Sheets("Fällige Aufgaben Technik").Move Before:=ActiveSheet
End Sub


Diesen habe ich bei den betreffenden Technikblättern eingetragen. Allerdings scheint hier die Aktivierung des Technikblattes zu fehlen, da ich dann nur kurz das Technikblatt sehe und dann immer wieder auf dem Übersichtsblatt lande.

Hätte da vielleicht jemand eine Idee wie ich den Code anpassen muss.

Vielen Dank im Voraus.
Grüße Antje

[Stoffo]

Option Explicit
Sub Worksheet_Activate()
Sheets("Tabelle1").Move Before:=ActiveSheet
End Sub

[AntjeM]

Hallo Stoffo,

vielen Dank für deine schnelle Antwort. Leider habe ich auch mit diesem Code das gleiche Phänomen. Ich komme nicht auf das Technik-Blatt sondern aktiviert wird immer das Übersichtsblatt. Und wenn ich dann das Technikblatt erneut anklicke, springt er wieder auf das Übersichtsblatt.

Habe den Code wieder bei dem Blatt hinterlegt.

Kann`s mir nicht erklären, aber irgendwas mache ich falsch 

Viele Grüße
Antje

[Stoffo]

Hallo,

Nur zur Klarheit, die anhängende Datei ist das anzustrebende Ergebnis? Ansonsten habe ich Dich vllt. einfach falsch verstanden, in dem Fall hänge doch bitte ein grobes Beispiel an oder versuche es genauer zu beschreiben.

[AntjeM]

Hallo Stoffo,

sorry ich glaube da gab es ein Missverständnis.

Habe mal schnell eine Beispieldatei erstellt, bei der das Problem ebenfalls auftritt. Wenn ich ein Technik-Blatt auswähle, springt das Übersichtsblatt zwar mit, aber nur das ist dann aktiv.

Datei hänge ich mal an.

Viele Grüße und Dankeschön
Antje

[Fennek]

Hallo,

versuche es mal so:

in DieseArbeitesmappe:

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.EnableEvents = False
    If Left(Sh.Name, 7) = "Technik" Then
        Sheets("Inhalt").Move Sh
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

mfg

[AntjeM]

Guten Morgen Fennek,

habe gerade deinen Code in meiner Bsp. Mappe getestet und da funktioniert er einwandfrei!
Werde es nachher gleich in der Originaldatei probieren.

Vielen herzlichen Dank und schöne Grüße
Antje

[AntjeM]

Hallo Fennek,

in meiner eigentlichen Mappe funktioniert es leider nicht, aber ich denke, ich weiß woran es liegt.

Zeile im Code If Left(Sh.Name, 7) = "Technik" Then

Der jeweilige Name des Technikblattes setzt sich bei mir folgendermaßen zusammen:
Kundenname Technik Operating - und -
Kundenname Technik Miet+Kauf+P

Wahrscheinlich muss die Zeile entsprechend angepasst werden, aber leider bekomme ich das nicht hin.

Könntest du da eventuell nochmal drüber schauen?

Vielen Dank und Grüße
Antje

[Fennek]

Ersetze

Zeile im Code
If Left(Sh.Name, 7) = "Technik" Then

durch

Code:

if instr(1, Sh.Name, "Technik") > 0 then

(ungeprüft)

[AntjeM]

Hallo Fennek,

habe es geändert und nun funktioniert es einwandfrei.

Herzlichen Dank!

Einen schönen Tag und viele Grüße
Antje