Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Buttons in Arbeitsblättern

Buttons in Arbeitsblättern
12.07.2004 11:02:59
Peter
Hallo,
habe mehre Arbeitsblätter in einer Datei. Mit Hilfe von Buttons möchte ich zwischen den Arbeitsblättern hin und herspringen. Nach öffnen der Datei muss ich erst in den Designmode gehen, um mit den Buttons zwischen den Blättern zu springen. Wie kann ich das umgehen?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Buttons in Arbeitsblättern
12.07.2004 11:12:21
FloGo
Hallo Peter
Warum in den Designmodus?
Button einfügen:
Steuerelemente Toolbox (Symbolleiste) - Button Einfügen
Doppelklick auf den Button - Code hinterlegen (z.B.: Sheets("Tabelle2").select)
und fertig!
FloGo
AW: Buttons in Arbeitsblättern
12.07.2004 11:21:28
Matthias
Hallo Peter,
als Alternative:
dieser Code schreibt Hyperlinks in alle Blätter zu allen Blättern in die Zeile 1 (Const ze=1):

Sub SetzeHyperlinks()
Const ze = 1 'hier steht die Blattliste
Dim i As Integer
Dim sh As Worksheet
For Each sh In Sheets
With sh
Range(.Cells(ze, 1), .Cells(ze, Sheets.Count)).ClearContents
For i = 1 To Sheets.Count
.Cells(ze, i) = Sheets(i).Name
If Sheets(i).Name <> sh.Name Then
.Hyperlinks.Add Anchor:=.Cells(ze, i), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
.Cells(ze, i).Font.Bold = False
Else
.Cells(ze, i).Font.Bold = True
End If
Next i
End With
Next sh
End Sub

Gruß Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige