Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Private Sub Worksheet_Activate()
#1
Hallöchen zusammen

Wiederrum etwas von Euch!

Ich habe einen "Übersicht-Tabellenblatt" mit Hyperlinks aufgebaut. Sobald ich auf den einzelnen Links klicke, wird automatisch der entsprechendes Blatt eingeblendet (-und auch ausgeblendet, sobald ich wieder in der Übersicht mich zurückkehre.)

FRAGE LAUTET:

Ich hätte ein anderes Arbeitsblatt nämlich "Lieferschein", welches für immer eingebettet sein muss, quasi nie ausblenden nebst den Übersicht.
Das heisst: Übersicht und noch ein Blatt immer eingeblendet sehen, den Rest, wie gehabt.

Da ich kein VBA-Profi bin, bitte ich Euch, ein entsprechenden Code zu geben, um die vorliegende Code ergänzen zu können!

Private Sub Worksheet_Followhyperlink(ByVal Target As Hyperlink)
Dim Ziel As String
Ziel = Target.SubAddress
Ziel = Left(Ziel, InStr(Ziel, "!") - 1)
With Sheets(Ziel)
    .Visible = True
    .Activate
   
End With
End Sub
Private Sub Worksheet_Activate()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Übersicht" Then ws.Visible = xlSheetHidden
Next
End Sub




DANKE und LG, Daniel
Antworten Top
#2
Code:
Private Sub Worksheet_Activate()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Übersicht" And ws.Name <> "Lieferschein" Then ws.Visible = xlSheetHidden
Next
End Sub
Schöne Grüße
Berni
Antworten Top
#3
Code:
Private Sub Worksheet_Activate()
  For Each it In sheets
    it.visible = instr("ÜbersichtLieferschein",it.name)
  Next
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste