BeforeDoubleClick Target bei geschützter Zellle

Computer: Software & Programmierung Visual Basic
#1

Hallo,

Folgendes Makro funktioniert einwandfrei.

Es trägt in Zellen in Spalte A bei Doppelklick ein „X“ ein oder löscht es.

Aber wenn ich ausversehen auf eine geschützte Zelle irgendwo anders im Blatt klicke ändert sich die zuletzt aktive Zelle, weil die Variable „Target“ bei geschüzter Zelle nicht übernommen wird. Die Abfrage „If Target.Column = 1“ Then nützt dann nichts - bei ungeschüztem Blatt kein Problem.

Kann man das irgendwie abfangen, z.B. Position des Mauszeigers
abfragen?

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

If Target.Column = 1 Then

If ActiveCell.Value = „“ Then
ActiveCell.Value = „X“
Else
ActiveCell.Value = „“
End If

End If

End Sub

______ !!! Kann mir mal jemand sagen, wie ich Leerzellen an den Zeilenanfang bekomme?!!!

Besten Dank im Voraus
Bernd

#2

Hallo,

Hi,
kann dein erstes Problem nicht reproduzieren. Bei mir funktioniert es scheinbar. Oder ich hab’s falsch verstanden.
Zu deinem zweiten Problem:
ActiveCell.Value = "’ "
Gruß.Timo

#3

Danke für die schnelle Antwort.

2.Problem bezog sich auf den Artikel, ich wollte die IF THEN Struktur hervorheben und es klatschte mir immer alles an den Zeilenanfang.

Gruß Bernd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hallo Bernd,

2.Problem bezog sich auf den Artikel, ich wollte die IF THEN
Struktur hervorheben und es klatschte mir immer alles an den
Zeilenanfang.

wenn Du den Beitrag schreibst, sieh mal das Fenster genau an, da steht ein Link: ‚Hilfe zur Anwendung der HTML-Tags‘
Da steht, was wie geht. Du hättest den pre-Tag gebraucht.

Gruß, Rainer