die Datei:
https://www.herber.de/bbs/user/47764.xls
hat nachfolgenden Code. Ausgangsproblem war in einem anderen Forum die Anfrage wie man es lösen kann, daß wenn man Spalte A fixiert hat und in Spalte A eine Zelle eine Daten-Gültigkeitsauswahlliste hat, durch die Fixierung der Auswahlpfeil weg ist.
Bei XL97 ist der Auswahlpfeil sofort komplett weg, ab XL2000 erst dann wenn man im rechten Teil nach rechts scrollt. ("weg" bedeutet, man markiert die Zelle mit der Gültigkeit und kein Pfeil erscheint)
Ich habe dann in XL97 Code entwickelt, der eine Gültigkeitsliste simuliert (Es erscheint eine ListBox zur Auswahl)
In XL97 klappt das auch super, einzig bekannter "Fehler" ist, normale Gültigkeitszellen im rechten Teil des fixierten Blattes muß man 2mal anklicken bis der Auswahlpfeil erscheint.
Leider, in XL2000,2002,2003 läuft der Code nicht. Die ListBox erscheint, aber man kann nichts auswählen, es tut sich nix wenn man klickt.
Sehr gelegentlich, liegt an der Klickgeschwindigkeit, klappt sogar die Auswahl, aber mehr als genauso oft wird die ListBox mit diagonalen Strichen durchstrichen.
Danke ^ Gruß
Reinhard
Code in Tabelle1:
Option Explicit
Private Sub ListBox1_Change()
ListBox1.Visible = False
Range("A1").Select
End Sub
'Private Sub ListBox1_Click()
'ListBox1.Visible = False
'Range("A1").Select
'End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
ListBox1.Visible = False
Range("A1").Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Shapes("Pfeil").Visible = Target.Address(0, 0) = "A1"
ActiveSheet.Shapes("Pfeil").Left = Windows(1).VisibleRange.Cells(1, 1).Left
If Target.Address(0, 0) "A1" And ListBox1.Visible = True Then ListBox1.Visible = False
Target.Activate
End Sub
Sub ttt()
Range("c15") = Range("c15") & ChrW(9660)
End Sub
Code in Modul1:
Option Explicit
Sub tt()
On Error Resume Next 'seltenst kam Fehler bei Activate, irgendwie zu schnell geklickt o.ä.
Worksheets("Tabelle1").ListBox1.Visible = True
'DoEvents 'bringt nix
'Worksheets("Tabelle1").ListBox1.Update 'bringt nix
Worksheets("Tabelle1").ListBox1.Activate
'MsgBox ActiveCell.Address
End Sub