Hilfe!!! bei kleinem Problem Schleife



Excel-Version: 97
nach unten

Betrifft: Hilfe!!! bei kleinem Problem Schleife
von: Steffen
Geschrieben am: 10.04.2002 - 14:59:54

Nochmal Hallo,

ich hab noch ein Problem also ich hab eine Liste

diese hat von mal zu mal unterschiedlich viele einträge, nun
möchte ich in einer freien Spalte eine Formel einfügen (wenn(a1=0;0;1),
welche ich bis zum Ende der Liste per Malro automatsich ausfüllen lassen möchte
(bis lezter Datensatz erreicht ist)

Bitte helft mir mal dabei, ich steh wie schon so oft auf der Leitung :-)

Danke schonmal Steffen

nach oben   nach unten

Re: Hilfe!!! bei kleinem Problem Schleife
von: sam
Geschrieben am: 10.04.2002 - 18:05:00

hi steffen,

versuchs mal damit:


Private Sub Worksheet_Change(ByVal Target As Range)
  'Angenommen, die Formel soll in Spalte C ausgefüllt werden
  If Target.Column <> 3 Then Exit Sub
  Application.EnableEvents = False
  Range(Target, Cells(Target.CurrentRegion.Rows.Count, Target.Column)).Formula = Target.Formula
  Application.EnableEvents = True
End Sub

Gruß,
Sam

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Hilfe!!! bei kleinem Problem Schleife"