Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink ausführen

Hyperlink ausführen
16.03.2015 14:18:10
matthias
Hallo,
über einen Button habe ich die Möglichekeit Hyperlinks zu generieren. 
Sub Hyperlink()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="c:\meineDatei.msg", TextToDisplay:=" _
Link zur Datei"
Application.Dialogs(xlDialogInsertHyperlink).Show
End Sub

Gibt es eine Möglichekeit ganz ganze zu Starten im Bereich von bestimmten Zellen.
Sich ich Klicke auf eine Zelle und der Code wird ausgeführt?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Rechtschreibung?!
16.03.2015 14:43:56
Martin
Hallo Matthias,
was hältst du davon dir deinen Beitrag vor Veröffentlichung noch einmal durchzulesen?!
Möglichekeit ganz ganze zu Starten
Sich ich Klicke auf eine Zelle
Viele Grüße
Martin

AW: Rechtschreibung?!
16.03.2015 14:52:15
matthias
Hallo,
sorry.
Gibt es eine Möglichkeit das Ganze zu Starten im Bereich von bestimmten Zellen, wenn ich auf diese Zellen klicke?

AW: Rechtschreibung?!
16.03.2015 15:08:17
Martin
Hallo Matthias,
meinst du es in etwa so?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:C20")) Is Nothing Then Exit Sub
If Target.Hyperlinks.Count > 0 Then Target.Hyperlinks(1).Follow
End Sub
Den Zellenbereich (in meinem Beispiel A1 bis C20) bitte noch anpassen.
Viele Grüße
Martin

Anzeige
AW: Rechtschreibung?!
16.03.2015 15:19:05
matthias
Hallo,
leider hat dein Code. Keine Funktion bei mir.
Was sollte passieren?
Ich den Code in eine normales Tabellenblatt kopiert.

AW: Rechtschreibung?!
16.03.2015 15:31:08
matthias
Hallo.
Super Funktioniert besten Dank :)

AW: Rechtschreibung?!
16.03.2015 15:47:55
matthias
Ein Problem bleibt jedoch noch.
Wenn ich nun eine neue Zeile einfüge mittels Datensatz einfügen, öffnet er mir immer das Popup.
Ich habe den Bereich einfach starr definiert von Zeile 16 bis Zeile 999.
Er sollte das eigentlich nicht machen.
Wie kann ich das umgehen?
Meine Datensatz füge ich mittels
Sub ZeileEinfügen()
Worksheets("Aufstellung Brandschutzklappen").Unprotect Password:="sperl"
Dim ws As Worksheet, wsV As Worksheet, z%
Set ws = ActiveSheet
Set wsV = ThisWorkbook.Worksheets("Datensatz")
Selection.EntireRow.Insert Shift:=xlDown
z = ActiveCell.Row
wsV.Rows("5:5").Copy ws.Range("A" & z)
Worksheets("Aufstellung Brandschutzklappen").Protect Password:="sperl"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub
ein.

Anzeige
AW: Rechtschreibung?!
16.03.2015 15:52:15
matthias
Super Vielen Dank.
Ein Problem bleibt jedoch dennoch.
Ich habe den Bereich in dem diese Funtkion wirksam wird starr definiert C16:C999.
Wenn ich nun einen neuen Datensatz mittels 
Sub ZeileEinfügen()
Worksheets("Aufstellung Brandschutzklappen").Unprotect Password:="sperl"
Dim ws As Worksheet, wsV As Worksheet, z%
Set ws = ActiveSheet
Set wsV = ThisWorkbook.Worksheets("Datensatz")
Selection.EntireRow.Insert Shift:=xlDown
z = ActiveCell.Row
wsV.Rows("5:5").Copy ws.Range("A" & z)
Worksheets("Aufstellung Brandschutzklappen").Protect Password:="sperl"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub
einfüge, wird immer das Popup geföffnet.
Das sollte aber nicht sein.
Wie kann man díes vermeiden?

Anzeige
AW: Rechtschreibung?!
16.03.2015 17:51:41
Martin
Hallo Matthias,
so sollte es klappen:

Sub ZeileEinfügen()
Dim ws As Worksheet, wsV As Worksheet, z%
Set ws = ActiveSheet
Set wsV = ThisWorkbook.Worksheets("Datensatz")
Application.EnableEvents = False
With Worksheets("Aufstellung Brandschutzklappen")
.Unprotect Password:="sperl"
Selection.EntireRow.Insert Shift:=xlDown
z = ActiveCell.Row
wsV.Rows("5:5").Copy ws.Range("A" & z)
.Protect Password:="sperl"
End With
ActiveSheet.Protect DrawingObjects:=True, AllowFiltering:=True
Application.EnableEvents = True
End Sub
Nicht wundern, dass ich "Contents" und "Scenarios" aus der Scenarios-Methode entfernt habe. Aber die Werte entsprachen den Standardwerten und müssen deshalb nicht angegeben werden.
Viele Grüße
Martin

Anzeige
AW: Rechtschreibung?!
16.03.2015 17:58:01
matthias
Super Super.
Jetzt ist das Optimal.
Danke Danke :)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige