Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

jede zweite Zelle in Spalte durch Doppelklick mark

jede zweite Zelle in Spalte durch Doppelklick mark
02.05.2009 13:05:13
mike49
Hallo,
wie kann man das lösen?
Ich möchte in meinem Spaltenbereich A13:A145 erreichen, dass durch Doppelklick ein "X" in die Zelle gesetzt wird und bei erneutem Doppelklick wieder verschwindet. Dies soll aber nur in jeder zweiten Zelle möglich sein. Also in A13, A15, A17 usw. bis einschl. A145.
Wie müsste das Makro lauten?
Gruß
mike49

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: jede zweite Zelle in Spalte durch Doppelklick mark
02.05.2009 13:31:52
ransi
HAllo
DA kannst du so rangehen:
' **********************************************************************
' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A13:A145")) Is Nothing Then Exit Sub
If Target.Row Mod 2 = 0 Then Exit Sub
Cancel = True
If Target = "x" Then
    Target = ""
    Else:
    Target = "x"
End If
End Sub

ransi
Anzeige
AW: jede zweite Zelle in Spalte durch Doppelklick mark
02.05.2009 13:42:58
Gerd
Hallo Mike,
noch ein Spielzeug.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If Not Intersect(.Cells, Range(Cells(13, 1), Cells(145, 1))) Is Nothing Then
If .Row Mod 2 = 1 Then
Cancel = True
.Value = IIf(.Value = "X", "", "X")
End If
End If
End With
End Sub


Gruß Gerd

Danke euch für die Hilfe. Es funzt
02.05.2009 13:56:50
mike49
Gruß
mike49
AW: jede zweite Zelle in Spalte durch Doppelklick mark
02.05.2009 13:43:38
Tino
Hallo,
ich habe es mal so gemacht.
kommt als Code in Tabelle1
Option Explicit 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Dim Bereich As Range 
Static Is_X As Boolean 
 
Set Bereich = Range("A13:A145") 
 
    If Not Intersect(Target, Bereich) Is Nothing Then 
        Cancel = True 
         
        If Not Is_X Then 
         Bereich.FormulaR1C1 = "=IF(MOD(ROW(),2)=" & IIf(Target.Row Mod 2 = 1, 0, 1) & ",""X"","""")" 
         Bereich.Value = Bereich.Value 
        Else 
         Bereich.Value = "" 
        End If 
      
        Is_X = Not Is_X 
    End If 
 
End Sub 
 


Gruß Tino

Anzeige
habe Frage falsch verstanden. ;-| oT.
02.05.2009 13:49:17
Tino

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige