Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

button/link von Blatt zu Blatt?!?





Frage

Hallöle, hab ne Frage: und Zwar ob es auf irgendeine Weise möglich ist, innerhalb (vlt auch ausserhalb) einer Arbeitsmappe von einem Blatt zu einem anderen einen Link(mit nem Button?) zu setzen. nicht einfach ein Kasten inhalt also zb mit dem Befehl {=SUMME(´ ? ´!E4)}... sondern dass man wirklich denn auf das Blatt kommt! Hilfe wär echt nett! grüße

Antwort 1 von Ahnan

Hallo,

innerhalb einer Mappe:

Sheets("Tabelle2").Activate

(Damit gelangt man zum Blatt "Tabelle2")

von aussen:

Workbooks.Open "C:\WINDOWS\Desktop\TEST.xls"
Sheets("Tabelle2").Activate

(Damit öffnet man in diesem Bsp. die Datei TEST.xls, welche sich auf dem Desktop befindet. Und anschließend zum Blatt "Tabelle2". Den pfad muss man natürlich individuell anpassen)

MfG

Antwort 2 von Lucky-Fish

thx,
werds mal testen!

Antwort 3 von michel123

hi alle :))

oder vorwaerts ruckwaerts button :))

Sub Makro1()
If ActiveSheet.Index < Sheets.Count Then
Sheets(ActiveSheet.Index + 1).Select
End If
End Sub

Sub Makro2()
If ActiveSheet.Index > 1 Then
Sheets(ActiveSheet.Index - 1).Select
End If
End Sub

Antwort 4 von michel123

hi all :)

oder noch ein endlos rundumlauf :))

gruss micha

Sub Makro1()
Dim zaehler1 As Boolean
If ActiveSheet.Index = Sheets.Count Then
Sheets(1).Select
zaehler1 = True
End If
If ActiveSheet.Index < Sheets.Count And zaehler1 = False Then
zaehler1 = True
Sheets(ActiveSheet.Index + 1).Select
End If
If ActiveSheet.Index > 1 And zaehler1 = False Then
Sheets(ActiveSheet.Index - 1).Select
End If
End Sub

Antwort 5 von michel123

hi all :)

so reicht natuerlich :)))

gruss micha

Sub Makro1()
Dim zaehler1 As Boolean
If ActiveSheet.Index = Sheets.Count Then
Sheets(1).Select
zaehler1 = True
End If
If ActiveSheet.Index < Sheets.Count And zaehler1 = False Then
zaehler1 = True
Sheets(ActiveSheet.Index + 1).Select
End If
End Sub