Hallo mal wieder an Alle,
gibt es in EXCEL eine Möglichkeit, das die Eingabe in eine Tabelle immmer in der ersten Zeile erfolgt und somit das Eingegbene nach unten geschoben wird ?
Habe bisher keine Wege dahin gefunden !
Danke schon mal und viele Grüße
Micha
gibt es in EXCEL eine Möglichkeit, das die Eingabe in eine
Tabelle immmer in der ersten Zeile erfolgt und somit das
Eingegbene nach unten geschoben wird ?
Hallo Micha,
Rechtsklick unten auf den Blattnamen, dann „Code anzeigen“, dort den Code einfügen, Editor schließen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row 1 Then Exit Sub
Range(„A1“).Insert
Range(„A1“).Select
End Sub
Gruß
Reinhard
Hallo Reinhard,
danke für die schnelle Antwort, leider funktioniert das bei mir nicht.
Habe die Werte so geändert das es in Zeile 5 laufen soll, passiert aber rein gat nichts. Was mache ich Falsch ?
Danke schon mal für weitere Tips !
Gruß
Micha
Hallo Micha,
danke für die schnelle Antwort, leider funktioniert das bei
mir nicht.
ich hat#s getestet.
Habe die Werte so geändert das es in Zeile 5 laufen soll,
passiert aber rein gat nichts. Was mache ich Falsch ?
K.A. gibt da paar Möglichkeiten.
Zeige mal deinen geänderten Code.
Gruß
Reinhard
Hallo Reinhard,
hier der geänderte Code, der fügt aber in allen Varianten endlos Zellen ein und bringt EXCEL zum Absturz !
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row 5 Then Exit Sub
Range(„A5:smiley:5“).Insert
Range(„A5:smiley:5“).Select
End Sub
Gruß
Micha
Hallo Micha,
hier der geänderte Code, der fügt aber in allen Varianten
endlos Zellen ein und bringt EXCEL zum Absturz !
nicht nachvollziehbar,XL2000, der Code klappt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row 5 Then Exit Sub
Range(„A5:smiley:5“).Insert
Range(„A5:smiley:5“).Select
End Sub
Gruß
Reinhard
Guten Tag,
Versuche es mal damit,
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1).Value = „“ Then Exit Sub
Rows(1).Insert
Range(„A1“).Select
End Sub
Gruß Franz