Zahlen nach Eingabe nach unten rücken

[Peter83]

Hallo zusammen,

ich habe mich soeben registriert, weil ich nach tagelanger Suche nichts gefunden habe. Dazu ist zu sagen, dass ich auch nur das in Excel beherrsche, was man zum überleben braucht.

Ich würde mich sehr freuen, wenn ihr mir helfen könntet!

Ich möchte Roulette Permanenzen in Excel tippen und möchte, dass nach einer Eingabe, die vorherigen Zahleneingaben insgesamt immer eine Zelle tiefer rückt.

Beispiel:

Eingabe "5"

5

Jetzt gebe ich "32" ein

Die 32 rückt nun mit der 5 eine Zelle tiefer.

32
5

nun z.b. die "17"

Die 17 rückt nun mitsamt der 32 und 5 eine Zelle tiefer.

17
32
5

Das Zahlenpaket soll wie gesagt, nach Eingabe der neuesten Zahl immer um eine Zelle nach unten rücken.

Grüße

Peter

[Willie017]

hallo

die eingabe muss in A2 erfolgen. Den Code in das Modul der Tabelle kopieren, nicht in ein Allgemeines Modul

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) <> "A2" Then Exit Sub
  Application.EnableEvents = False
 
  Target.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
  Target.Offset(-1).Select
 
  Application.EnableEvents = True
End Sub

[Peter83]

Hallo,

vielen Dank, das ging ja schnell. Leider ist bei rechtsklick auf die Arbeitsmappe "Code anzeigen" ausgegraut.



Grüße

Peter

[WillWissen]

Hallo Peter,

dann probier es mal mit Alt-F11; damit kommst du auch in den VBA-Editor.

[Peter83]

hallo,

ich habe excel neu installiert, selbst ALT F11 ging nicht.

Habe den Code jetzt eingegeben und es funktioniert einwandfrei! 1000x mal Danke! Dass es nun doch so schnell und problemlos funktioniert ist ne echte Überraschung!

Grüße

Peter

[schauan]

Hallöchen,

Code:

Leider ist bei rechtsklick auf die Arbeitsmappe "Code anzeigen" ausgegraut

Nur mal als Frage / Hinweis: Du meinst sicher den Reiter vom Tabellenblatt.

[Peter83]

ja richtig!

Es gibt jetzt doch ein Problem, der =zählewennbereich verrutscht nun nach jeder Eingabe auch eine Zelle nach unten und das soll er natürlich nicht.

Grüße

Peter

[schauan]

Hallöchen,

dann könntest Du z.B. die Formel neu auf den gewünschten Bereich setzen. Im Prinzip übernimmst Du sie erst, dann verschiebst Du, dann setzt Du neu. Alles in Deinem Change-Makro.

MeineFormel=Range("Z1").Formula
'Verschieben
'...
'...
Range("Z1").Formula = MeineFormel

[Peter83]

hallo,

puh, da komm ich leider nicht mit. Es war grad sowieso das erste mal, dass ich einen Code benutze. Inwieweit der jetzt geändert werden muss....ich glaub da wachsen mir Hörner ;)

Grüße

Peter

[schauan]

Hallöchen,

dann mal so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MeineFormel As String
  If Target.Address(0, 0) <> "A2" Then Exit Sub
  Application.EnableEvents = False
  MeineFormel=Range("Z1").Formula  
  Target.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
  Target.Offset(-1).Select
  Range("Z1").Formula = MeineFormel  
  Application.EnableEvents = True
End Sub

Statt Z1 gibst Du dann die Zelladresse ein, wo Deine Formel mit ZÄHLENWENN steht.