Thema Datum  Von Nutzer Rating
Antwort
05.12.2022 08:57:48 ulli
NotSolved
05.12.2022 22:22:05 ralf_b
NotSolved
05.12.2022 22:36:48 Gast34433
NotSolved
05.12.2022 23:14:48 ulli
NotSolved
06.12.2022 02:27:58 ralf_b
NotSolved
06.12.2022 07:50:59 Gast34428
NotSolved
06.12.2022 13:52:14 ralf_b
Solved
06.12.2022 15:39:23 ulli
NotSolved
06.12.2022 16:17:23 ulli
NotSolved
06.12.2022 16:36:34 ralf_b
NotSolved
06.12.2022 22:38:01 Ulli
NotSolved
07.12.2022 09:14:00 ulli
NotSolved
09.12.2022 10:44:18 ulli
NotSolved
09.12.2022 11:30:24 ralf_b
NotSolved
09.12.2022 13:14:26 Gast12378
NotSolved
09.12.2022 14:20:48 ralf_b
NotSolved
09.12.2022 15:29:52 ralf_b
NotSolved
09.12.2022 23:28:17 ulli
NotSolved
09.12.2022 23:36:42 ralf_b
NotSolved
10.12.2022 11:05:56 ulli
NotSolved
10.12.2022 15:49:46 ralf_b
NotSolved
10.12.2022 18:15:44 ulli
NotSolved
10.12.2022 18:39:40 ralf_b
NotSolved
Blau Blau update
10.12.2022 19:00:34 Gast95702
NotSolved

Ansicht des Beitrags:
Von:
Gast95702
Datum:
10.12.2022 19:00:34
Views:
193
Rating: Antwort:
  Ja
Thema:
update

Hallo, ja ist ein bisschen zu lang

Ist ja auch eher ein Projektbetreung von Dir.  DANKE.

Das toogeln funktioniert.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address(0, 0) = "B20" Then
    If Target.Value = "0" Then
        Target.Value = "1"
    Else
        Target.Value = "0"
    End If
End If
End Sub

'Funktioniert nicht Zeile If ist rot markiert
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' If Target.Address(0, 0) = "B20" Then Target = CInt(Target.Value = 0) * -1: Cancel = True
'End Sub

 


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
05.12.2022 08:57:48 ulli
NotSolved
05.12.2022 22:22:05 ralf_b
NotSolved
05.12.2022 22:36:48 Gast34433
NotSolved
05.12.2022 23:14:48 ulli
NotSolved
06.12.2022 02:27:58 ralf_b
NotSolved
06.12.2022 07:50:59 Gast34428
NotSolved
06.12.2022 13:52:14 ralf_b
Solved
06.12.2022 15:39:23 ulli
NotSolved
06.12.2022 16:17:23 ulli
NotSolved
06.12.2022 16:36:34 ralf_b
NotSolved
06.12.2022 22:38:01 Ulli
NotSolved
07.12.2022 09:14:00 ulli
NotSolved
09.12.2022 10:44:18 ulli
NotSolved
09.12.2022 11:30:24 ralf_b
NotSolved
09.12.2022 13:14:26 Gast12378
NotSolved
09.12.2022 14:20:48 ralf_b
NotSolved
09.12.2022 15:29:52 ralf_b
NotSolved
09.12.2022 23:28:17 ulli
NotSolved
09.12.2022 23:36:42 ralf_b
NotSolved
10.12.2022 11:05:56 ulli
NotSolved
10.12.2022 15:49:46 ralf_b
NotSolved
10.12.2022 18:15:44 ulli
NotSolved
10.12.2022 18:39:40 ralf_b
NotSolved
Blau Blau update
10.12.2022 19:00:34 Gast95702
NotSolved