Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter umbenennen und verlinken

Tabellenblätter umbenennen und verlinken
18.01.2016 14:00:25
jurank
Hallo zusammen,
in einer bestehenden Excel-Tabelle mit 150 Tabellenblättern möchte ich folgendes vornehmen:
1. Tabellenblätter Nr. 9 bis Nr. 150 entsprechend dem Inhalt in Zelle B2 des jeweiligen Blattes umbenennen.
2. Im Tabellenblatt Nr. 1 in Spalte A eine Liste erstellen lassen, in der in jeder Zeile ein Hyperlink auf ein Tabellenblatt enthalten sit, also Zelle A1 = Hyperlink auf Blatt Nr. 2, A2 Hyperlink auf Blatt Nr. 3 usw, in Summe dann 149 Zeilen und Hyperlinks.
Kann mir dazu jemand helfen?
Herzlichen Dank!!!
Grüße
jurank

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter umbenennen und verlinken
18.01.2016 14:16:55
ChrisL
Hi
Sub t()
Dim WS As Worksheet
Dim i As Integer
With ThisWorkbook
Set WS = .Worksheets("Tabelle1")
For i = 9 To 150
.Worksheets(i).Name = .Worksheets(i).Range("B2")
WS.Hyperlinks.Add Anchor:=WS.Cells(i - 8, 1), Address:="", SubAddress:= _
Worksheets(i).Name & "!A1", TextToDisplay:=Worksheets(i).Name & "!A1"
Next i
End With
End Sub

Ohne Plausibilisierung d.h. u.a. die Zellen B2 müssen als Namen geeignet sein (keine Sonderzeichen, nicht leer usw.).
cu
Chris

AW: Tabellenblätter umbenennen und verlinken
18.01.2016 14:22:43
Sepp
Hallo Jurank,
in ein allgemeines Modul.
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub makeLinks()
Dim lngIndex As Long

With ThisWorkbook
  For lngIndex = 2 To .Worksheets.Count
    With .Worksheets(lngIndex)
      If IsValidSheetName(.Range("B2").Text) Then
        .Name = .Range("B2").Text
        Worksheets(1).Hyperlinks.Add Anchor:=Worksheets(1).Cells(lngIndex - 1, 1), _
          Address:="", SubAddress:="#'" & .Name & "'!A1", TextToDisplay:=.Name
      End If
    End With
  Next
End With
End Sub

Private Function IsValidSheetName(ByVal strName As String) As Boolean
Dim objRegExp As Object

Set objRegExp = CreateObject("vbscript.regexp")

With objRegExp
  .Global = True
  .Pattern = "^[^\/\\:\*\?\[\]]{1,31}$"
  .IgnoreCase = True
  IsValidSheetName = .test(strName)
End With

Set objRegExp = Nothing

End Function

Gruß Sepp

Anzeige
Muss For lngIndex = 9 To ... heißen! o.T.
18.01.2016 14:23:43
Sepp
Gruß Sepp

AW: Muss For lngIndex = 9 To ... heißen! o.T.
19.01.2016 11:55:43
jurank
Tausend Dank, perfekt!
Eine weitere Frage: Ergänzend wollte ich in die Tabellenblätter 9 bis 150 jeweils in Zelle D3 einen Hyperlink einfügen, der immer zurück auf die Liste in Blatt eins führt. Habe dabei bemerkt, dass ich das bei gruppierten Blättern nicht kann (Excel-Befehl ausgegraut). Muss das auch per Makro gelöst werden oder gibts eine andere Lösung?

AW: Muss For lngIndex = 9 To ... heißen! o.T.
19.01.2016 12:02:04
Sepp
Hallo Jurank,
das geht doch gleich im selben Makro.
Sub makeLinks()
Dim lngIndex As Long

With ThisWorkbook
  For lngIndex = 2 To .Worksheets.Count
    With .Worksheets(lngIndex)
      If IsValidSheetName(.Range("B2").Text) Then
        .Name = .Range("B2").Text
        .Hyperlinks.Add Anchor:=.Range("D3"), Address:="", _
          SubAddress:="#'" & Worksheets(1).Name & "'!A1", TextToDisplay:="Übersicht"
        
        Worksheets(1).Hyperlinks.Add Anchor:=Worksheets(1).Cells(lngIndex - 1, 1), _
          Address:="", SubAddress:="#'" & .Name & "'!A1", TextToDisplay:=.Name
      End If
    End With
  Next
End With
End Sub

Gruß Sepp

Anzeige
AW: Muss For lngIndex = 9 To ... heißen! o.T.
20.01.2016 11:52:52
jurank
Vielen Dank Sepp, für die Ergänzung! Ich will ja nicht unersättlich wirken, aber...
Kann man das Einfügen der Hyperlinks auch so anpassen, dass nur eingeblendete Blätter den Hyperlink eingefügt bekommen, ausgeblendete aber nicht?

Link nur sichtbare Blätter
20.01.2016 13:28:19
Sepp
Hallo Jurank,
kein Problem.
Sub makeLinks()
Dim lngIndex As Long

With ThisWorkbook
  For lngIndex = 9 To .Worksheets.Count
    With .Worksheets(lngIndex)
      If IsValidSheetName(.Range("B2").Text) Then
        .Name = .Range("B2").Text
        .Hyperlinks.Add Anchor:=.Range("D3"), Address:="", _
          SubAddress:="#'" & Worksheets(1).Name & "'!A1", TextToDisplay:="Übersicht"
        
        If .Visible = xlSheetVisible Then
          Worksheets(1).Hyperlinks.Add Anchor:=Worksheets(1).Cells(lngIndex - 1, 1), _
            Address:="", SubAddress:="#'" & .Name & "'!A1", TextToDisplay:=.Name
        End If
      End If
    End With
  Next
End With
End Sub

Gruß Sepp

Anzeige
AW: Link nur sichtbare Blätter
20.01.2016 14:58:40
jurank
Und nochmal dankdankdank! Aber Mist, jetzt hab ich das Progrämmle in meine Zieldatei eingefügt, die Hyperlinks werden auch schön eingetragen wo ichs will, aber sie führen nirgednwo hin. Also zwar auf eine Zelle A1, aber in keines der Blätter der Datei. Ich hab das Programm so verstanden, dass der Befehl zur Verlinkung mit Bezeichnung "Übersicht" immer auf das erste Worksheet geht, unabhängig davon wie das heißt. Kann/muss ich den Namen des ersten Blatts ggfs. explizit im Code angeben?
Grüße
jurank

AW: Link nur sichtbare Blätter
20.01.2016 15:11:01
Sepp
Hallo Jurank,
kann ich nicht nachvollziehen, bei mir werden alle Links korrekt erstellt und sie funktionieren auch.
Gruß Sepp

Anzeige
AW: Link nur sichtbare Blätter
20.01.2016 15:27:07
jurank
Oh nein...ich hatte das erste Tabellenblatt, auf das die Links verweisen, ausgeblendet. Damit lief der Link augenscheinlich nirgendwo hin. Sorry, also funktioniert alles bestens.

137 Forumthreads zu ähnlichen Themen

Labels u. TextBoxen in UserForm blinken lassen
Lenhard

Moin Excellianer!
Wie bringe ich in einem UserForm die Caption mehrerer Labels und den Hintergrund von TextBoxen (z.B. Gelb/Weiß im Wechsel) zum blinken, wenn in der TextBox1 ein Wert steht? Wenn in der TextBox1 kein Wert steht, dann soll es auch nicht blinken in den Labels und TextBoxen.
19.12.2008 17:16:00
Thread-ID: 1034201
21 Beiträge
Anzeige
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge
Anzeige
Umwandeln von Text in Währung
Text

Hallo,
ich habe ein Eingabefeld und dort soll ein Euro-Betrag eingegeben werden. Den will ich in eine Zelle schreiben. Dort soll er als Währung (mit Eurozeichen) erscheinen. Bisher ist er als Text eingetragen.
Was muss ich ändern?
Danke Euch.
27.04.2009 15:50:12
Thread-ID: 1071416
5 Beiträge
Hyperlink in TextBox
Mister

Hallo und guten Morgen,
in einer UF habe ich ein TextBox angelegt das den Pfad eines externen Dokuments beinhaltet. Durch Doppelklicken wird das externe Dokumet geöffnet. Mit folgendem Code aus dem Forum klappt es auch:
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoo...
18.05.2009 07:27:51
Thread-ID: 1075771
3 Beiträge
Fehlerwerte in Text umwandeln
Bernd

Hallo,
gibt es eigentlich eine Möglichkeit, Fehlerwerte wie #DIV/0! in Text umzuwandeln per Formel aus der Formelbibliothek von Excel? Bisher ist mir das nur über die Aktion : Kopieren/Werte einfügen gelungen.
Welche Möglichkeiten kennt Ihr so?
Gruß
Bernd
24.08.2009 16:36:00
Thread-ID: 1098185
18 Beiträge
Text ab einer bestimmten Stelle löschen +Hyperlink
Werner

Hallo,
ich habe in Excel in einer Spalte (Spalte D) unter einander sehr viele Zeilen nach folgenden Schema
(Hinweis: Ich habe das h am Anfang hier weggelassen, weil der Beitrag sonst immer als Hyperlink dargestellt wird, in meiner Tabelle ist es vorhanden):
ttp://www.ihrname.de*dfg...
05.12.2009 23:35:56
Thread-ID: 1122006
3 Beiträge
TextBox - kontextMenü um einen Hyperlink einfügen
Frank

Hallo euch Allen und vorab frohe Ostern!!!
Meine Frage: Wie kann ich erreichen, dass wenn ich eine TextBox in einer UF ansteuere sich ein Kontextmenü öffnet, so dass ich dann in die TextBox einen Hyperlink eingeben kann. Wer weiß Rat?
Vorab Danke!!!
Gruß Frank H.!!!
31.03.2010 21:12:34
Thread-ID: 1149714
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
20
7
14
15
3
4
2
17
2
11
1
4
2
1
3
1
2
3
8
1
7
1
6
2
2