tutorials.de Buch-Aktion 05/2012
Like Tree1Danke
  • 1 Beitrag von Yaslaw
ERLEDIGT
NEIN
ANTWORTEN
1
ZUGRIFFE
1045
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. #1
    Avatar von deusfalsus
    deusfalsus deusfalsus ist offline Mitglied Brokat
    Registriert seit
    Jan 2003
    Ort
    Jena (Thüringen)
    Beiträge
    254
    Hallo,

    kann ich das Ereignis abfangen, wenn im Excel eine Zelle betreten wird? Also nicht das Auswählen, sondern richtig hineingehen, um etwas am Zellinhalt zu bearbeiten.
    Dabei darf es keinen Unterschied machen, ob ich per Doppelklick auf die Zelle oder durch klicken in die Eingabezeile oder durch einfach-Lostippen den Zustand herstelle.

    Danke an alle, die sich die Mühe machen mir zu helfen!
     

  2. #2
    Avatar von Yaslaw
    Yaslaw Yaslaw ist offline n/a
    tutorials.de Moderator
    Registriert seit
    Dec 2007
    Ort
    Winterthur(CH)
    Beiträge
    5.205
    Direkt nicht. Aber du kannst es mit einer Kombination von 2 Events lösen
    Worksheet_SelectionChange
    Worksheet_Change

    Code vb:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    
    Dim oldTarget As Variant
     
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        oldTarget = Target
    End Sub
     
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim oldValue As Variant
        Dim newValue As Variant
       
        oldValue = getValue(oldTarget)
        newValue = getValue(Target)
       
        MsgBox "der Alte Wert: '" & oldValue & "' wird mit '" & newValue & "' überschrieben"
    End Sub
     
    Private Function getValue(ByVal Target As Variant) As Variant
        If Not IsArray(Target) Then
            'direkt ausgeben wenn ein einzelnes Feld ausgewählt ist
            getValue = Target
        Else
            'Bei einer Mehrfachauswahl den Inhalt des ersten Feldes ausgeben
            getValue = Target(1, 1)
        End If
    End Function
    deusfalsus bedankt sich. 
    ---------------------------------------------------------------------------------------------------
    item: Ich habe es mir aus gesundheitlichen Gründen abgewöhnt unformatierten Code zu lesen (Auch SQL-Statements kann man formatieren!)
    item: Tutorial: [PHP][MySQL] Debug Queries
    item: Schreibt mir keine PN mit Fragen die im Forum beantwortet werden können - ich mache kein persönliches coaching
    item: Bitte zur besseren Lesbarkeit PHP-Code in [PHP]...[/PHP], SQL in [SQL]...[/SQL], Visual Basic in [VB]...[/VB] etc. schreiben

Ähnliche Themen

  1. Excel: Makro beim Verlassen der Zelle starten
    Von pglw im Forum Visual Basic 6.0
    Antworten: 1
    Letzter Beitrag: 10.08.06, 13:16
  2. COMException beim Lesen einer Excel-Zelle
    Von Bernhard Bergmann im Forum .NET Application und Service Design
    Antworten: 0
    Letzter Beitrag: 20.05.06, 21:32
  3. Ereignis beim Schließen einer Konsolenanwendung
    Von unmountable im Forum .NET Application und Service Design
    Antworten: 5
    Letzter Beitrag: 01.11.05, 14:47
  4. 2 Abfragen in einer Excel Zelle
    Von Der O im Forum Office-Anwendungen
    Antworten: 5
    Letzter Beitrag: 09.05.05, 09:49
  5. Antworten: 4
    Letzter Beitrag: 06.04.05, 14:11