Thema Datum  Von Nutzer Rating
Antwort
17.10.2011 08:58:14 Berni
NotSolved
17.10.2011 16:18:24 Till
NotSolved
18.10.2011 08:54:01 Berni
NotSolved
18.10.2011 12:52:51 MV
NotSolved
18.10.2011 13:44:47 Gast7135
NotSolved
18.10.2011 13:51:36 MV
NotSolved
19.10.2011 08:45:35 Berni
NotSolved
18.10.2011 20:24:23 Till
NotSolved
19.10.2011 09:43:50 Till
NotSolved
20.10.2011 12:35:01 Berni
NotSolved
20.10.2011 19:24:52 Till
NotSolved
24.10.2011 08:35:56 Berni
NotSolved
24.10.2011 08:45:06 Berni
NotSolved
31.10.2011 21:53:57 Till
Solved
24.10.2011 09:29:38 Till
NotSolved
24.10.2011 09:35:05 Till
NotSolved
24.10.2011 09:51:43 berni
NotSolved
Blau Hilfe bei If- bzw. Case-Anwendung
24.10.2011 12:55:29 Dekor
NotSolved
24.10.2011 13:25:26 Berni
NotSolved
24.10.2011 20:22:11 Till
NotSolved
25.10.2011 08:26:13 Berni
NotSolved
26.10.2011 10:13:43 Berni
NotSolved
26.10.2011 11:44:08 Till
NotSolved
31.10.2011 12:01:15 Berni
NotSolved
02.11.2011 23:50:41 Till
NotSolved
02.11.2011 23:52:22 Till
Solved

Ansicht des Beitrags:
Von:
Dekor
Datum:
24.10.2011 12:55:29
Views:
1290
Rating: Antwort:
  Ja
Thema:
Hilfe bei If- bzw. Case-Anwendung

Hallo Berni,

 

Neuer Ansatz: Ich hab hier ein Makro das wenn du in deinem Bereich D5:F5 einen Doppelklick machst dort ein "X" gesetzt wird oder auch wieder entfernt

füge diesen Code unter "DieseArbeitsmappe" ein. Und Erweitere hinter Target.Value deinen Code .

Option Explicit
Const MYRANGE As String = "D5:F5"

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Sh.name <> "Tabelle" Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Sh.Range(MYRANGE)) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Value = "" Then
        Target.Value = "x"
        'Was auch immer noch getan werden muß...
        ' z. B. Range("C3").Value = "11"
    Else
        Target.Value = ""
        'Was auch immer noch getan werden muß...
        ' z. B. Range("C3").Value = ""
    End If
End Sub

Gruß Detlev


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
17.10.2011 08:58:14 Berni
NotSolved
17.10.2011 16:18:24 Till
NotSolved
18.10.2011 08:54:01 Berni
NotSolved
18.10.2011 12:52:51 MV
NotSolved
18.10.2011 13:44:47 Gast7135
NotSolved
18.10.2011 13:51:36 MV
NotSolved
19.10.2011 08:45:35 Berni
NotSolved
18.10.2011 20:24:23 Till
NotSolved
19.10.2011 09:43:50 Till
NotSolved
20.10.2011 12:35:01 Berni
NotSolved
20.10.2011 19:24:52 Till
NotSolved
24.10.2011 08:35:56 Berni
NotSolved
24.10.2011 08:45:06 Berni
NotSolved
31.10.2011 21:53:57 Till
Solved
24.10.2011 09:29:38 Till
NotSolved
24.10.2011 09:35:05 Till
NotSolved
24.10.2011 09:51:43 berni
NotSolved
Blau Hilfe bei If- bzw. Case-Anwendung
24.10.2011 12:55:29 Dekor
NotSolved
24.10.2011 13:25:26 Berni
NotSolved
24.10.2011 20:22:11 Till
NotSolved
25.10.2011 08:26:13 Berni
NotSolved
26.10.2011 10:13:43 Berni
NotSolved
26.10.2011 11:44:08 Till
NotSolved
31.10.2011 12:01:15 Berni
NotSolved
02.11.2011 23:50:41 Till
NotSolved
02.11.2011 23:52:22 Till
Solved