Re: Marko starten
12.09.2002 12:04:50
Dieter
Das funktioniert leider nicht. Diese ist das Private Sub, welches in jedem Arbeitsblatt stehen müsste.Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Zeile
Dim Spalte
this = ActiveSheet.Name
Zeile = Target.Row
Spalte = Target.Column
If Spalte < 4 Then
For Each h In Worksheets(this).Cells(Zeile,Spalte).Hyperlinks
If InStr(h.Name, "") <> 0 Then
link = h.Name
End If
Next
For Zeileh = 2 To 65536
If Worksheets("Playlist").Cells(Zeileh, 2) = "" Then
Worksheets("Playlist").Select
Worksheets("Playlist").Cells(Zeileh, 2) = link
Zeileh = 65536
End If
Next Zeileh
Cancel = True
End If
Worksheets(this).Select
End Sub
Wenn ich dieses ins Modul 1 schreiben, es Private Sub Modul_1 nenne und es mit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Modul_1
end SUB
aufrufe, erhalte ich eine Fehlermeldung.