Microsoft Excel

Herbers Excel/VBA-Archiv

Eingabe

Betrifft: Eingabe von: Bernd
Geschrieben am: 13.10.2014 15:37:33

Hallo Leute!
Ich möchte gerne in die Zelle A1 einen Wert eingeben. Dieser Wert soll nach drücken der Enter Taste in die Zelle A2 geschrieben werden. Nach drücken der Enter Taste soll Zelle A1 leer sein, so das ich einen erneuten Wert in Zelle A1 eingeben kann, welcher dann in A2 eingetragen wird und der Wert aus A2 nach A3 rutscht.

Ist das möglich ohne VBA und wenn ja wie?

Gruß
Bernd

  

Betrifft: AW: Eingabe von: Bastian
Geschrieben am: 13.10.2014 16:07:01

Hallo Bernd,

eine Lösung ohne VBA kann ich mir nicht vorstellen, lasse mich aber gerne eines Besseren belehren.
Mit VBA ginge es z. B. so (der Code muss in das Codefenster des Tabellenblattes):

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Target.Address = "$A$1" Then Exit Sub

Dim lngLSpalte As Long
Dim i As Long

Application.EnableEvents = False

lngLSpalte = Cells(1, Columns.Count).End(xlToLeft).Column

For i = lngLSpalte To 1 Step -1
    Range("A1").Offset(0, i).Value = Range("A1").Offset(0, i - 1).Value
Next i

Range("A1").Value = ""

Application.EnableEvents = True

End Sub
Gruß, Bastian


  

Betrifft: @ Bastian in Spalte A untereinander .-) owT von: Matze Matthias
Geschrieben am: 13.10.2014 16:27:05




  

Betrifft: AW: Eingabe von: Bastian
Geschrieben am: 13.10.2014 18:35:38

Option Explicit
 
 Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Not Target.Address = "$A$1" Then Exit Sub
 
 Dim lngLZeile As Long
 Dim i As Long
 
 Application.EnableEvents = False
 
 lngLZeile = Cells(Rows.Count,1).End(xlUp).Row
 
 For i = lngLZeile To 1 Step -1
     Range("A1").Offset(i, 0).Value = Range("A1").Offset(i - 1, 0).Value
 Next i
 
 Range("A1").Value = ""
 
 Application.EnableEvents = True
 
 End Sub
Danke für den Hinweis.
So müsste es passen.

Gruß, Bastian


  

Betrifft: AW: Eingabe von: Bernd
Geschrieben am: 13.10.2014 18:42:14

Danke für die Hilfe!!


 

Beiträge aus den Excel-Beispielen zum Thema "Eingabe"