Thema Datum  Von Nutzer Rating
Antwort
10.08.2020 10:05:39 Andreas
NotSolved
10.08.2020 15:13:16 jofed
NotSolved
10.08.2020 15:28:21 Andreas
NotSolved
10.08.2020 19:54:37 ralf_b
NotSolved
11.08.2020 09:56:31 Gast58170
NotSolved
11.08.2020 13:07:11 Gast53152
NotSolved
11.08.2020 13:56:25 Gast9065
NotSolved
Blau Pfeil Symbol bei bestimmten Zellen
 11.08.2020 14:38:53 Gast9437
NotSolved
11.08.2020 17:55:30 Andreas
NotSolved
11.08.2020 23:52:57 Gast70598
*****
Solved
12.08.2020 06:41:35 Andreas
NotSolved
12.08.2020 08:18:58 volti,
NotSolved

Ansicht des Beitrags:
Von:
Gast9437		 Datum:
11.08.2020 14:38:53		 Views:
562		 Rating:
     
Antwort:
  Ja
Thema:
Pfeil Symbol bei bestimmten Zellen

Hi,

 

hier noch etwas kompakter:

Option Explicit

Private Declare PtrSafe Function GetCursorPos Lib "user32" ( _
        lpPoint As POINTAPI) As Long
        
Private Type POINTAPI
  x As Long
  y As Long
End Type

Private Type RECT
  Left    As Long
  Top     As Long
  Right   As Long
  Bottom  As Long
End Type


Sub Test_SetzeMauscursor()
 Dim RECT1 As RECT, Pt As POINTAPI
 XlsPos2ScreenPos RECT1
 With RECT1
   GetCursorPos Pt
   If Pt.x > .Left And Pt.y > .Top And Pt.x < .Right And Pt.y < .Bottom Then
     Application.Cursor = xlNorthwestArrow
   Else
     Application.Cursor = xlDefault
   End If
 End With
   
End Sub

Function XlsPos2ScreenPos(tRect As RECT) As Boolean
 Dim AC As Range
 Set AC = ActiveCell
 With ActiveWindow.ActivePane
   tRect.Left = .PointsToScreenPixelsX(AC.Left)
   tRect.Top = .PointsToScreenPixelsY(AC.Top)
   tRect.Right = .PointsToScreenPixelsX(AC.Offset(0, 1).Left)
   tRect.Bottom = .PointsToScreenPixelsY(AC.Offset(1, 0).Top)
 End With
End Function

viele Grüße

Karl-Heinz

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
10.08.2020 10:05:39 Andreas
NotSolved
10.08.2020 15:13:16 jofed
NotSolved
10.08.2020 15:28:21 Andreas
NotSolved
10.08.2020 19:54:37 ralf_b
NotSolved
11.08.2020 09:56:31 Gast58170
NotSolved
11.08.2020 13:07:11 Gast53152
NotSolved
11.08.2020 13:56:25 Gast9065
NotSolved
Blau Pfeil Symbol bei bestimmten Zellen
 11.08.2020 14:38:53 Gast9437
NotSolved
11.08.2020 17:55:30 Andreas
NotSolved
11.08.2020 23:52:57 Gast70598
*****
Solved
12.08.2020 06:41:35 Andreas
NotSolved
12.08.2020 08:18:58 volti,
NotSolved