Makro beim verlassen von Zelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Makro beim verlassen von Zelle
von: Stefan
Geschrieben am: 25.06.2002 - 10:18:29

Ich möchte beim Verlassen der Spalte D mittels der Tab-Taste, unmittelbar darunter eine definierte Zeile einfügen.
Normal verwende ich für das das Einfügen folgendes Makro:

Sub Einfügen()
ActiveSheet.Unprotect ""
Selection.Insert Shift:=xlDown
Rows(1).Copy ActiveCell
ActiveSheet.Protect ""
End Sub

von Markus habe ich liebenswerterweise schon folgende Hilfe erhalten:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim iColumn As Integer
iColumn = Target.Cells(1, 1).Column

If iColumn = 6 Then
ActiveSheet.Unprotect ""
Selection.Insert Shift:=xlDown
'Rows(1).Copy ActiveCell 'Hier musst Du selbst nochmal
'schauen habe leider keine Zeit mehr
ActiveSheet.Protect ""
End If
End Sub

Ich komme damit aber nicht ganz zurecht, woran kann's liegen?

Wie kriege ich XL dazu, dies beim verlassen der Spalte D zu tun?
Kann mir da jemand weiterhelfen?
Vielen Dank, Stefan


nach oben   nach unten

mit intersect....
von: Otto Ecker
Geschrieben am: 25.06.2002 - 11:04:07

Hallo Stefan,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target.Cells, Range("a1:a100")) Is Nothing Then Exit Sub
MsgBox "lksdnfkjsdh"
End Sub

Gruß Otto

nach oben   nach unten

Re: mit intersect....
von: Stefan
Geschrieben am: 25.06.2002 - 11:29:05

Hallo Otto

ich werd's nachher gleich mal probieren.

Vielen Dank vorerst mal.

Grüsse


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro beim verlassen von Zelle"