Zeile/Spalte markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not ToggleButton1 Then Exit Sub Dim Zelle As Range Set Zelle = ActiveCell Application.EnableEvents = False Union(Zelle.EntireRow, Zelle.EntireColumn).Select Zelle.Activate Application.EnableEvents = True End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim arr As Variant, arrSplit As Variant Dim lRow As Long, lColumn As Long, sName As Variant If Selection.Cells.Count > 1 Then Exit Sub arr = Target.Address arrSplit = Split(arr, "$") lRow = Target.Row lColumn = Target.Column sName = arrSplit(1) Range(sName & lRow & "," & lRow & ":" & lRow & "," & sName & ":" & sName).Select End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim arr As Variant, arrSplit As Variant Dim lRow As Long, lColumn As Long, sName As Variant Static AN As Boolean If Target.Address(0, 0) = "A1" Then AN = Not AN If AN = False Then Target.Select Exit Sub End If If Selection.Cells.Count > 1 Then Exit Sub arr = Target.Address arrSplit = Split(arr, "$") lRow = Target.Row lColumn = Target.Column sName = arrSplit(1) Range(sName & lRow & "," & lRow & ":" & lRow & "," & sName & ":" & sName).Select End Sub

Hallo Hilmar,
gesamten Code entsprechend einfügen.
Im Kontextmenu der Zelle kannst du dann die Funktion Ein/Ausschalten.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Activate()
createMenuEntry
End Sub

Private Sub Workbook_Deactivate()
deleteMenuEntry
End Sub

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If pblnAction Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Union(Target.EntireRow, Target.EntireColumn).Select
        Target.Activate
        Application.EnableEvents = True
    End If
End If
End Sub

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public pblnAction As Boolean

Sub createMenuEntry()
Dim objCommandbarButton As CommandBarButton

deleteMenuEntry

Set objCommandbarButton = Application.CommandBars("Cell").Controls.Add(msoControlButton)

With objCommandbarButton
    .Style = msoButtonIconAndCaption
    .Caption = IIf(pblnAction, "Markierung Aus", "Markierung Ein")
    .FaceId = IIf(pblnAction, 2991, 2993)
    .OnAction = "Markierung"
    .Tag = "markierung"
End With

Set objCommandbarButton = Nothing
End Sub

Sub deleteMenuEntry()
On Error Resume Next
Application.CommandBars("Cell").FindControl(Tag:="markierung").Delete
On Error GoTo 0
End Sub

Sub markierung()
Dim objCBCntrl As CommandBarControl

pblnAction = Not pblnAction

Set objCBCntrl = Application.CommandBars("Cell").FindControl(Tag:="markierung")

If Not objCBCntrl Is Nothing Then
    With objCBCntrl
        .Caption = IIf(pblnAction, "Markierung Aus", "Markierung Ein")
        .FaceId = IIf(pblnAction, 2991, 2993)
    End With
End If

Set objCBCntrl = Nothing
End Sub

Gruß Sepp

Option Explicit Dim Kreuz As Boolean Private Sub Workbook_Activate() ''Wenn es schon beim Öffnen/Aktivieren passieren soll Kreuz = True End Sub Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As _ _ Boolean) Kreuz = Not Kreuz If Not Kreuz Then Target.Cells(1).Select End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Kreuz Then If Target.Count = 1 Then Application.Union(Target.EntireRow, Target.EntireColumn).Select Target.Activate End If End If End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile/Spalte markieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread