Thema Datum  Von Nutzer Rating
Antwort
12.11.2008 16:35:44 Susanne
NotSolved
12.11.2008 17:32:24 jh
NotSolved
12.11.2008 20:16:41 Susanne
NotSolved
12.11.2008 20:42:04 jh
NotSolved
12.11.2008 20:49:11 Susanne
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:Ereignis
 13.11.2008 04:40:09 jh
NotSolved

Ansicht des Beitrags:
Von:
jh		 Datum:
13.11.2008 04:40:09		 Views:
917		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Aw:Ereignis
Hallo,

wenn die Zieltabelle auch nur "5", "6" usw. heißt, muss der
Inhalt der angeklickten Zelle in einen String umgewandelt
werden, damit Excel erkennt, dass nicht die Indexnummer (die
Position der Tabelle in der Arbeitsmappe), sondern der Name
der Tabelle gemeint ist:

Private Sub Worksheet_BeforeRightClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Cancel = True
If Target.Row = 2 Then
If Target.Interior.Color = vbRed Then
' oder:
' If Target.Font.Color = vbRed Then
If IsNumeric(Target.Value) Then
On Error GoTo MissingSheet
Worksheets(CStr(Target.Value)).Activate
On Error GoTo 0
End If
Else
MsgBox "BlaBlaBla..."
End If
End If
Exit Sub
MissingSheet:
MsgBox "Die gewählte Tabelle existiert nicht.", vbOKOnly + _
vbCritical, "Fehler"
Err.Clear
End Sub

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.11.2008 16:35:44 Susanne
NotSolved
12.11.2008 17:32:24 jh
NotSolved
12.11.2008 20:16:41 Susanne
NotSolved
12.11.2008 20:42:04 jh
NotSolved
12.11.2008 20:49:11 Susanne
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:Ereignis
 13.11.2008 04:40:09 jh
NotSolved