Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Tabellenbezeichnungen als Hyperlink

Bestimmte Tabellenbezeichnungen als Hyperlink
14.07.2006 17:55:42
Fritz
Hallo Forumsbesucher,
wie kann ich erreichen, dass beim Aktivieren der Tabelle1 in der Spalte L beginnend ab Zeile 7 alle Tabellennamen der Arbeitsmappe eingetragen werden, deren Tabellennamen aus einer Zahl besteht. Die jeweilige Tabellenbezeichnung (Zahl) sollte dabei als Hyperlink angezeigt werden, so dass per Mausklick in die jeweilige Tabelle gewechselt werden kann. Das Makro sollte jeweils beim Aktivieren der Tabelle1 "gestartet" und somit aktualisiert werden.
Bedanke mich im voraus für jede Form von Hilfe.
Mfg
Fritz

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Tabellenbezeichnungen als Hyperlink
14.07.2006 19:48:15
ChrisL
Hallo Fritz
In ein Standardmodul:
Sub MachLinks()
Dim iCounter As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS2 = Worksheets("Übersicht")
WS2.Columns(1).ClearContents
For Each WS1 In ThisWorkbook.Worksheets
If CheckNumerisch(WS1.Name) 0 Then
iCounter = iCounter + 1
WS2.Hyperlinks.Add Anchor:=WS2.Cells(iCounter, 1), Address:="", SubAddress:= _
"'" & WS1.Name & "'!A1", TextToDisplay:=WS1.Name
End If
Next WS1
End Sub 

Private Function CheckNumerisch(sWSName As String) As Currency
CheckNumerisch = 0
On Error Resume Next
CheckNumerisch = CCur(sWSName)
End Function

Modul "DieseArbeitsmappe"

Private Sub Workbook_Open()
Call MachLinks
End Sub

Gruss
Chris
Anzeige
AW: Bestimmte Tabellenbezeichnungen als Hyperlink
14.07.2006 20:05:44
Fritz
Hallo Chris,
vielen Dank!
Superklasse, was Du mir da geschickt hast.
Gruß
Fritz

302 Forumthreads zu ähnlichen Themen

Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Tabelle per Mail senden
And

Hallo,
Habe aus dem Archiv folgenden Code:
Sub Blattsenden() Sheets("Tabelle1").Copy On Error Resume Next ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True If Err.Number > 0 T...
19.03.2009 11:01:22
Thread-ID: 1061745
9 Beiträge
excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
Anzeige
Hyperlink erstellen und folgen
Beni

Hallo zusammen
Ich habe folgendes Problem (wenn es denn eines ist ;)):
Ich habe ein 'Shape' in einer Exceltabelle, welches auf Klick (Makro) einen Hyperlink erstellt und diesem anschliessend auch folgen soll. Der erste Teil konnte ich noch selbst basteln, aber wie kann ich nun dem Hype...
15.06.2009 11:31:33
Thread-ID: 1081523
6 Beiträge
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
VBA Hyperlinks ohne Unterstrich und in Schwarz
alex

Hallo
Gibt es eine Möglichkeit mit VBA, Hyperlinks ohne Unterstrich und in Schwarz zu setzen?
Gruß alex
31.01.2010 12:45:51
Thread-ID: 1134546
11 Beiträge
Tabelle per Mail versenden
liese

Hallo,
habe folgendes Anliegen.
Ich möchte gerne, wenn eine Mappe geöffnet wird,
eine bestimmte Tabelle im Hintergrund mit dem
Standardmailprogramm ohne Rückfragen versenden.
Wie geht das.
Danke schon mal für Hilfe.
Viele Grüsse
Anneliese
01.01.1970 00:00:00
Thread-ID: 1139930
37 Beiträge
Copoe per Mail versenden
Paul

Hallo Excel-Freunde,
folgenden Code habe ich gebastelt um, gestartet über einen Button auf Sheet 1 eine Copy von Format und Werte des Sheets "Übersicht zu erstellen und diese dann frei von Macro's an die im Feld "MailAdd" stehenden Empfänfer zu senden
Das funktioniert soweit auch, nur k...
25.02.2010 10:04:02
Thread-ID: 1141285
2 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
2
2
8
1
3
5
3
10
36
1
2
3
2
2
3
5
6
1
6
3
4
4
1
3
2