kann mir jemand helfen, wie ich via VBA die Taste F2 betätige ?
Danke
Alexander
es ist einfacher, wenn Du erklärst, was Du damit ereichen möchtest. Normerweise wechselt man mit F2 in den Bearbeitungsmodus einer Zelle (zumindest in Version 8), das dürfte in VBA nicht nötig sein.
Gruß
Peter
habe eine benutzerdefinierte Funktion, die aber erst rechnet, wenn ich in der Zelle F2 und Enter betätige.
Gruss
Alexander
poste mal Deine Funktion, jede andere Antwort wäre Spekulation.
Gruß
Peter
sendkeys "{F2}"
aufpassen klammer erstellen mit ALTGR7 und ALTGR0
ciao alex
nachstehend die Funktion:
Option Explicit
'eingabesyntax =farbe(c4:bv40;Farbzahl)
Function Farbe(rngBereich As Object, intColor As Integer)
Dim intCounter As Integer
Dim rngAct As Range
For Each rngAct In rngBereich
If rngAct.Interior.ColorIndex = intColor Then
intCounter = intCounter + 1
End If
Next rngAct
Farbe = intCounter
End Function
Gruss
Alexander
wie änderst Du die Farben der Zellen? Eine einfache Formatänderung löst kein Ereignis aus und damit wird die Funktion auch nicht neu berechnet, im Gegensatz zu Format übertragen. Vielleicht ist das ein Weg. Eine andere Möglichkeit wäre, das Blatt bei jedem Zellwechsel neu berechnen zu lassen (in Worksheet_SelectionChange Application.Calculate). Dein Ansatz mit SendKeys würde auch nicht direkt zum Erfolg führen, da es ja auch durch "irgendetwas" angestoßen werden müsste.
Leider hab ich keinen besseren Tipp - vielleicht gibt es in Version 10 Möglichkeiten, die ich mit meiner 8er nicht kennen kann.
Gruß
Peter
ich werde die Möglichkeit nehmen, und bei jedem Zellwechsel das Blatt neu berechnen lassen.
Danke erst mal für Deine Hilfe und Mühen
Gruss
Alexander