Ein Fenster öffnen beim Klicken auf einen String!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dort:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = "Bitte Hyperlink einfügen" Then
Application.Dialogs(xlDialogInsertHyperlink).Show
End If
End Sub

Sub einfärben()
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.FormulaR1C1 = "Insert hyperlink"
With .Characters(Start:=1, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End With

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "Bitte Hyperlink einfügen" Then Application.Dialogs(xlDialogInsertHyperlink).Show Cancel = True End If End Sub

Also es funktioniert leider irgendwie alles immer noch nicht. Deswegen hier noch mal die beiden Wege und was jeweils passiert.
1. Variante: Diesen Code habe ich unter Modul1:
Sub StatusGruen()
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.FormulaR1C1 = "Insert hyperlink"
With .Characters(Start:=1, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End With
Und diesen Code unter der entsprechenden Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("E10:AA140")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
MsgBox "Changed cell(s):  " & Selection.Address

Private Sub Worksheet_DoubleClick(ByVal Target As Range)
If Target = "Insert hyperlink" Then
Application.Dialogs(xlDialogInsertHyperlink).Show
End If
End Sub



Dabei passiert gar nichts.

Wenn ich das gleiche mache ( Variante 2 ) mit selection anstelle von DoubleClick, dann muss ich immer erst eine andere Zeile anwählen, bis das Fenster für den Hyperlink öffnet.

Danke und LG

Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set KeyCells = Range("E10:AA140") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then MsgBox "Changed cell(s): " & Selection.Address Private Sub Worksheet_DoubleClick(ByVal Target As Range) If Target = "Insert hyperlink" Then Application.Dialogs(xlDialogInsertHyperlink).Show End If End Sub Dabei passiert gar nichts. Wenn ich das gleiche mache ( Variante 2 ) mit selection anstelle von DoubleClick, dann muss ich immer erst eine andere Zeile anwählen, bis das Fenster für den Hyperlink öffnet. Danke und LG

Beliebteste Forumthreads (12 Monate)

Ein Fenster öffnen beim Klicken auf einen String!

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ein Fenster öffnen beim Klicken auf einen String!

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread