zellen Nach unten springen

[Luffy]

Hi,

also so wie ich das verstanden habe:

Eingabe in Zeile 4 BSP

A4 = 5
Dann kommt in A5 = 5

C4= 4
Dann kommt in C5 = 5 und der Wert 5 (von A5) wird in A6 verschoben, 
und so geht das die ganze Tabelle entlang nach unten.

[IchBinIch]

Hi Luffy,

das kann so sein. Ich habe es anders verstanden.
Deswegen meine Nachfrage :32:.

Gruß
Ich

[SimbaTonic]

Hi,

also eine Leerzeile einfügen oder wie ist das zu verstehen?
Oder die Die gerade in Zeile 4 vorgenommenen Änderungen auch mit nach unten kopieren?

Gruß
Ich

Und noch was...
Wird der Bereich unter dem "Eingabebereich" immer länger? Müssen also auch die alten Einträge noch verfügbar sein oder
sind nur die jeweils letzten 10/11 Einträge interessant?

Hallo danke Danke erstmal für die Interesse.
Die eingegebe Zahl soll/muss auch nach untenspringen. So wie alle anderen dadrunter.
Mir sind immer die letzten 10 zahlen wichtig. 


Gruß 

SimbaTonic

[SimbaTonic]

Hi,

also so wie ich das verstanden habe:

Eingabe in Zeile 4 BSP

A4 = 5
Dann kommt in A5 = 5

C4= 4
Dann kommt in C5 = 5 und der Wert 5 (von A5) wird in A6 verschoben, 
und so geht das die ganze Tabelle entlang nach unten.

[quote pid='49569' dateline='1471354570']
Hallo luffy,
Ich habe mal versucht mit hilfe von Tabellen  darzustellen wie ich es mir vorstelle. 
Ich hoffe es ist deutlich genug.  Ansonsten könnteich es telefonisch erklären.  

Gruß SimbaTonic
[/quote]

[Luffy]

Hi,

ich hab schon verstanden wie du das möchtest, ich kann es dir aber nicht realisieren da ich, wie schon gesagt mich nicht gut mit VBA auskenne, dafür bin ich hier noch zu kurz dabei :S Tut mir leid, einfach bisschen Geduld hier sind Helfer die haben das bestimmt bald :)

[schauan]

Hallöchen,

eventuell geht es mit diesem Code. Die Daten werden um 1 nach unten geschoben, die Eingabe steht dann in Zeile 5. Eine Zahl in Zeile 14 wird dabei überschrieben.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  'Wenn der Eintrag in genau eine Zelle in Zeile 4 erfolgt, dann
  If Target.Row = 4 And Target.Cells.Count = 1 Then
    'Eintraege dieser Spalte zeile 4 bis 13 kopieren
    Range(Cells(4, Target.Column), Cells(13, Target.Column)).Copy
    'kopierte Werte in Zeile 5 bis 14 einfuegen
    Range(Cells(5, Target.Column), Cells(14, Target.Column)).PasteSpecial Paste:=xlValues
  'Ende Wenn der Eintrag in genau eine Zelle in Zeile 4 erfolgt, dann
  End If
End Sub

Der Code gehört in das Codemodul der Tabelle.

[SimbaTonic]

Hallöchen,

eventuell geht es mit diesem Code. Die Daten werden um 1 nach unten geschoben, die Eingabe steht dann in Zeile 5. Eine Zahl in Zeile 14 wird dabei überschrieben.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 'Wenn der Eintrag in genau eine Zelle in Zeile 4 erfolgt, dann
 If Target.Row = 4 And Target.Cells.Count = 1 Then
   'Eintraege dieser Spalte zeile 4 bis 13 kopieren
   Range(Cells(4, Target.Column), Cells(13, Target.Column)).Copy
   'kopierte Werte in Zeile 5 bis 14 einfuegen
   Range(Cells(5, Target.Column), Cells(14, Target.Column)).PasteSpecial Paste:=xlValues
 'Ende Wenn der Eintrag in genau eine Zelle in Zeile 4 erfolgt, dann
 End If
End Sub

Der Code gehört in das Codemodul der Tabelle.

Hallo,  
Ich habe davon keine Ahnung, wie und wo ich diesen Code eingeben soll. 
Ich habe sogut wie keine ahnung von excel . Es wäre super nett  wenn du mir diesen Code in die tabel einsetzt. mit der Hoffnung das es endlich klappt. 
Darüber würde ich micht sehr freuen.

Gruß  SimbaTonic

[Ego]

Hallo Simba,

so wie in der Anlage?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 'Wenn der Eintrag in genau eine Zelle im Bereich A3:B3 erfolgt und eine Zahl ist, dann
If Not Intersect(Target, Range("A3:C3")) Is Nothing Then
    If Intersect(Target, Range("A3:C3")).Cells.Count = 1 Then
       If IsNumeric(Intersect(Target, Range("A3:C3")).Value) Then
       'kopiere Werte aus Zeile 4 bis 13
        Range(Cells(4, 1), Cells(13, 3)).Copy
       'kopierte Werte in Zeile 5 bis 14 einfuegen
        Range(Cells(5, 1), Cells(14, 3)).PasteSpecial Paste:=xlValues
       'Werte in zeile 4 löschen
        Range(Cells(4, 1), Cells(4, 3)).Value = ""
       'den eingegebenen wert nach unten kopieren
        Intersect(Target, Range("A3:C3")).Cells.Offset(1, 0) = Intersect(Target, Range("A3:C3")).Value
       'den Text "Eingabe" in die Zelle schreiben
        Intersect(Target, Range("A3:C3")).Value = "Eingabe"
       End If
    End If
End If
End Sub

[SimbaTonic]

Hallo Simba,

so wie in der Anlage?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 'Wenn der Eintrag in genau eine Zelle im Bereich A3:B3 erfolgt und eine Zahl ist, dann
If Not Intersect(Target, Range("A3:C3")) Is Nothing Then
    If Intersect(Target, Range("A3:C3")).Cells.Count = 1 Then
       If IsNumeric(Intersect(Target, Range("A3:C3")).Value) Then
       'kopiere Werte aus Zeile 4 bis 13
        Range(Cells(4, 1), Cells(13, 3)).Copy
       'kopierte Werte in Zeile 5 bis 14 einfuegen
        Range(Cells(5, 1), Cells(14, 3)).PasteSpecial Paste:=xlValues
       'Werte in zeile 4 löschen
        Range(Cells(4, 1), Cells(4, 3)).Value = ""
       'den eingegebenen wert nach unten kopieren
        Intersect(Target, Range("A3:C3")).Cells.Offset(1, 0) = Intersect(Target, Range("A3:C3")).Value
       'den Text "Eingabe" in die Zelle schreiben
        Intersect(Target, Range("A3:C3")).Value = "Eingabe"
       End If
    End If
End If
End Sub

Hallo Ego,
Es funktioniert  einwandfrei. 1000 Dank für die hilfe.
Wäre es möglich das die zahlen einfach weiter runter springen. Ohne das sie ab der Zeile 14 verschwinden.

[Ego]

Hallo Simba

In einem Beitrag hattest du geschrieben, dass dich nur die 10 letzten Werte interessieren daher der Vorschlag.

Wenn du den zu kopierenden Bereich nur erweitern willst, kannst du das selbst im Programm machen:
Alle Stellen, an denen im Programm 13 oder 14 steht, die Ziffer um den gewünschten Wert erhöhen.

Ansonsten benötigen wir noch Vorgaben wie mit den hinteren Zellen umzugehen ist.