Makro bei verlassen einer Zelle



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Makro bei verlassen einer Zelle
von: Stefan
Geschrieben am: 25.06.2002 - 08:16:22

Ich möchte beim Verlassen einer Zelle mit 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

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

nach oben   nach unten

Re: Makro bei verlassen einer Zelle
von: M@rkus
Geschrieben am: 25.06.2002 - 08:51:36



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

Markus

nach oben   nach unten

Re: Makro bei verlassen einer Zelle
von: stefan
Geschrieben am: 25.06.2002 - 09:26:53

Hallo M@arkus

Vielen Dank für deine Hilfe.
Sobald ich dazu komme, werd ich's versuchen!

Gruss Stefan


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro bei verlassen einer Zelle"