Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 21:22:24
In vorhandener Formel Jahreszahl mit einbeziehen
08.05.2024 21:15:37
Koordinaten im XY-Diagramm per Cursor ändern.
08.05.2024 19:10:09
doppelte Zeile gem. mehrerer Bedingungen löschen?
08.05.2024 17:16:08
Randomize, RND, Timer() , (@Onur, Opawinni)
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wiederholung

wiederholung
23.10.2008 14: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
Anzeige
AW: wiederholung
23.10.2008 14: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 15: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 15: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

Anzeige
AW: versteh ich nicht !...
23.10.2008 16:56:21
Rolf
Hallo Chris!
Danke sehr!
Jedoch arbeitet bei mir change Ereigniss nicht.
Habe keine idee was Ursache sein könnte.
Grüße
Rolf
AW: kann ich ohne Dtaei nichts zu sagen! owT
23.10.2008 19:10:00
Chris
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige