MATTHIAS G Zeileninhalt autom. löschen
07.09.2006 01:45:22
Peter
Ich möchte in die Zeilen A1 -A20 meine Zahlen eintragen die dann mit deinem Code bearbeitet(alle ausser aktuelle werden gelöscht) werden. Da es sich aber um eine Menge Zahlen handelt muss ich immer wieder weiterscrollen und würde mir wünschen daß der code dann nicht bei A21 weitermacht sonder bei B1-B20 und weiter beiC1-C20 usw. damit alles übersichtlich nebeneinander abläuft. Also : der Code sollte nicht ins unendliche in der Spalte A verwendet werden können sonder sollte sich immer nach recht in die benachbarten Spalten verschieben ohne natürlich die vorangegangenen Spalten ausser Acht zu lassen.
Ich hoffe du kannst was anfangen damit.
Danke im Voraus saxometer@gmx.at
Hallo zusammen!
Ich möchte in der Spalte A1-A20 Werte eintragen und wobei sich doppelte Werte oberhalb des aktuellen Eintrags automatisch löschen aber ohne daß die Zeile verschwindet. Sie sollte nur leer werden und weiters : wenn bei A20 angekommen sollte es bei B1 wieder weiter gehen bis B20 usw. Ich habe eine Formel die nur die Spalte A überwacht bräuchte aber das Problem dringend gelöst.
Private Sub Worksheet_Change(ByVal Target As Range)
Const Spalte = 1 'überwacht Spalte A
Dim z As Range
If Target.Count = 1 Then
If Target.Column = Spalte And Target.Row > 1 And Target.Value <> "" Then
Do
Set z = Columns(Spalte).Find(What:=Target.Value, lookat:=xlWhole, After:=Cells(Rows.Count, Spalte))
If z.Row = Target.Row Then Exit Do
Application.EnableEvents = False
z.EntireRow.ClearContents
Application.EnableEvents = True
Loop Until 1 = 2
End If
End If
End Sub