Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
856to860
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle eingeblendeten Tabellennamen als Hyperlink

Alle eingeblendeten Tabellennamen als Hyperlink
24.03.2007 09:02:32
Fritz_W
Hallo Forumsbesucher,
ich würde gern per Makro in die aktive Tabelle eine Liste aller in der Arbeitsmappe enthaltenen Tabellenbezeichnungen (als Hyperlink) einfügen, sofern die Tabellen in der Arbeitsmappe nicht ausgeblendet sind, so dass man aus dieser Tabelle alle nicht ausgeblendeten Tabellen der Mappe per Mausklick aktivieren kann.
Wenn möglich sollten die Tabellennamen in der Spalte A beginnend ab Zeile 3 eingefügt werden.
Vielen Dank für eure Unterstützung
Mfg
Fritz

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle eingeblendeten Tabellennamen als Hyperlin
24.03.2007 09:13:54
Hans
Hallo Fritz,
wie folgt: 

Sub HypeWks()
Dim wks As Worksheet
Dim iRow As Integer
ActiveSheet.Hyperlinks.Delete
iRow = 3
For Each wks In ActiveWorkbook.Worksheets
If wks.Visible = xlSheetVisible And wks.Index  1 Then
With Cells(iRow, 1)
.Value = wks.Name
.Hyperlinks.Add Anchor:=Cells(iRow, 1), Address:="", SubAddress:=.Value & "!A1"
End With
iRow = iRow + 1
End If
Next wks
End Sub
Gruss hans
---
Versuch und Irrtum war gestern
AW: Alle eingeblendeten Tabellennamen als Hyperlin
24.03.2007 09:21:27
Fritz_W
Hallo Hans,
perfekt, vielen Dank!
Gruß
Fritz
Anzeige
@Hans
24.03.2007 09:33:10
Fritz_W
Hallo Hans,
gerade habe ich festgestellt, dass ein Hyperlink der "ersten Tabelle" der Arbeitsmappe nicht eingefügt wird. Das ist i.d.R. sinnvoll, wenn das Makro aus der ersten Tabelle gestartet wird.
Dennoch: Wie müsste man den Code ändern, wenn jeweils der Hyperlink der aktiven Tabelle in der Liste nicht erscheint.
Beispiel: Arbeitsmappe besteht aus 5 Tabellen: Tabelle1 bis Tabelle5
Tabelle 3 (ausgeblendet), Tabelle 4 (ausgeblendet - veryhidden).
Wird das Makro aus Tabelle1 gestartet, sollte die Hyperlinkliste folgende Tabellennamen auflisten:
Tabelle2 (in Zelle A3)
Tabelle5 (in Zelle A4)
Wird das Makro aus Tabelle2 gestartet, sollte die Hyperlinkliste dagegen folgende Tabellennamen aufführen:
Tabelle1 (in Zelle A3)
Tabelle5 (in Zelle A5)
Wäre schön, wenn Du mir das entsprechend abändern würdest!
Gruß
Fritz
Anzeige
AW: @Hans
24.03.2007 09:35:28
Hans
Hallo Fritz,
tausche die Zeile: 
If wks.Visible = xlSheetVisible And wks.Index  1 Then

gegen: 
If wks.Visible = xlSheetVisible And wks.Name  ActiveSheet.Name Then
Gruss hans
---
Versuch und Irrtum war gestern
AW: @Hans
24.03.2007 09:47:45
Fritz_W
Hallo Hans,
jawohl so ist das Makro flexibler einsetzbar.
Vielen herzlichen Dank!
Schönen 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