Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink ausführen

Forumthread: 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?

Anzeige

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?

Anzeige
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)

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