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
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!
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
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
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
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