automatischer eintrag bei mausklick

Bild

Betrifft: automatischer eintrag bei mausklick
von: harry
Geschrieben am: 03.11.2003 10:46:18

Hallo liebes forum

wie weiter unten von Pesi schon angesprochen
hätte auch ich gerne beim mausklick auf eine zelle einen automatischen eintrag
aber ich hätte gerne ein x statt linien

Danke Harry

Bild


Betrifft: AW: automatischer eintrag bei mausklick
von: chris-ka
Geschrieben am: 03.11.2003 10:48:43

Hallo

WANN(irgenwelche bedingungen??) ->wo (welche Zellen??)
bitte besser beschreiben
Gruß
Christian


Bild


Betrifft: AW: automatischer eintrag bei mausklick
von: harry
Geschrieben am: 03.11.2003 10:52:13

bei zelle a1,b1,c1,d1 in Zeile 3-1000

vobei jeweils der eintrag der anderen drei zellen gelöscht werden soll

(wenn ich zb. auf Zelle A1 klicke und in zelle B1,c1 oder d1 steht bereits ein x
soll dieses automatisch gelöscht werden)

danke


Bild


Betrifft: AW: automatischer eintrag bei mausklick
von: chris-ka
Geschrieben am: 03.11.2003 11:03:12

Hallo


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:d1")) Is Nothing Then
Exit Sub
Else
Range("a1:d1").Clear
Target.Value = "x"
End If
End Sub


nur was meinst du mit zeile 3-1000?

Gruß
Christian

p.s das makro kommt in "dieses Tabellenblatt"


Bild


Betrifft: AW: automatischer eintrag bei mausklick
von: harry
Geschrieben am: 03.11.2003 11:17:49

ich habe bereits


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'   erstellt von Hajo.Ziplies@web.de 03.09.03
' http://home.media-n.de/ziplies/
'   im Bereich A bis C nur eine Diagonale, Diagonale wird durch Doppelklick in der
'   aktiven Zelle nicht entfernt, Diagonalen erst ab Zeile 2
'    ActiveSheet.Unprotect
'   im Bereich D bis F nur eine Diagonale, Diagonale wird durch Doppelklick in der
'   aktiven Zelle nicht entfernt, Diagonalen erst ab Zeile 2
    If Target.Column > 7 And Target.Column < 12 And Target.Row > 5 Then
        Cancel = True
        With Range("H" & Target.Row & ":K" & Target.Row)
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
        End With
        With Target
            .Borders(xlDiagonalDown).LineStyle = xlContinuous
            .Borders(xlDiagonalDown).Weight = xlThick
            .Borders(xlDiagonalUp).LineStyle = xlContinuous
            .Borders(xlDiagonalUp).Weight = xlThick
        End With
    End If
'    ActiveSheet.Protect
End Sub


das sind diagonale linien
ich hätte gerne x


Bild


Betrifft: AW: automatischer eintrag bei mausklick
von: chris-ka
Geschrieben am: 03.11.2003 11:24:41

Hallo einfach umändern :-)


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'   erstellt von Hajo.Ziplies@web.de 03.09.03
' http://home.media-n.de/ziplies/
'   im Bereich A bis C nur eine Diagonale, Diagonale wird durch Doppelklick in der
'   aktiven Zelle nicht entfernt, Diagonalen erst ab Zeile 2
'    ActiveSheet.Unprotect
'   im Bereich D bis F nur eine Diagonale, Diagonale wird durch Doppelklick in der
'   aktiven Zelle nicht entfernt, Diagonalen erst ab Zeile 2
    If Target.Column >= 1And Target.Column < 5 And Target.Row > 3 Then
        Cancel = True
        With Range("H" & Target.Row & ":K" & Target.Row)
            .value=""
        End With
        With Target
            .value="x"'was auch immer
        End With
    End If
'    ActiveSheet.Protect
End Sub

Gruß
Christian


Bild


Betrifft: AW: automatischer eintrag bei mausklick
von: Mac4
Geschrieben am: 03.11.2003 10:50:19

Hallo Harry,

bei einem Mausklick in eine beliebige Zelle wird ein x eingetragen:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = "x"
End Sub


Marc


Bild


Betrifft: und das immer :-) __Ot
von: chris-ka
Geschrieben am: 03.11.2003 10:52:02




Bild


Betrifft: AW: und das immer :-) __Ot
von: Mac4
Geschrieben am: 03.11.2003 11:03:01

Hallo Chris,

wenn ich mir seine Antwort auf Deine Frage ansehe, muß ich zugegeben, das Deine Nachfrage mehr als berechtigt war!

Marc


Bild

Beiträge aus den Excel-Beispielen zum Thema " automatischer eintrag bei mausklick"