wiederholung

Forumthread: wiederholung
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: wiederholung

wiederholung

23.10.2008 16:26:40

Rolf

Hallo Leute!
Wer konnte ein kleines Makro schreiben das
den Wert aus A2 nach A3 verschiebt (die ganze Reihe (ausgenommen A1) ein Schritt nach unten)
so das nach verschiebung in A2 ein neuer Wert geschrieben werden kann.
Gruß
Rolf

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: wiederholung

23.10.2008 16:30:41

Chris
AW: wiederholung

23.10.2008 17:19:00

Rolf
AW: versteh ich nicht !...

23.10.2008 17:48:00

Chris
AW: versteh ich nicht !...

23.10.2008 18:56:21

Rolf
AW: kann ich ohne Dtaei nichts zu sagen! owT

23.10.2008 21:10:00

Chris

AW: wiederholung

23.10.2008 16:30:41

Chris

Servus,
so:


Sub Makro2()
Range("A2").Insert Shift:=xlDown
End Sub

verschiebt Zellen unter A1 um 1 nach unten.
Gruß
Chris

AW: wiederholung

23.10.2008 17:19:00

Rolf

Hallo Chris!
Also es stimmt-die Reihe wird genau auf ein Schritt verschoben.
Da Du bestimmt schon erfahren bist könntest Du dieses Makro
nicht laufen lassen bevor in A2 eine Änderung auftritt so das keine
Werte verloren gehen?Also abhängig von Änderung in A2.
Grüße
Rolf

AW: versteh ich nicht !...

23.10.2008 17:48:00

Chris

... meinst du so?
Wenn in A2 ein Wert eingegeben und anschließend die Zelle verlassen wird soll das Ganze um 1 nach unten verschoben werden ?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Application.EnableEvents = False
Range("A2").Insert Shift:=xlDown
Application.EnableEvents = True
End If
End Sub

kommt in das entsprechende Tabellenmodul
Gruß
Chris