Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Inhalte von Zeile 1 Spalte L in neue Zeile 2 Spalte A

Forumthread: Inhalte von Zeile 1 Spalte L in neue Zeile 2 Spalte A

Inhalte von Zeile 1 Spalte L in neue Zeile 2 Spalte A
18.10.2024 11:07:35
Mattis Oetjen
Hallo,
ich hätte gerne eine Formel mit der ich den Inhalt von einer Zelle Spalte L in eine neue direkt darunter stehende Zeile in Spalte A auf dem gleichen Tabellenblatt ziehe.

Vielen Dank.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte von Zeile 1 Spalte L in neue Zeile 2 Spalte A
18.10.2024 16:23:25
Yal
Hallo Mattis,

eine Formel in einer Zelle hat nur eine Wirkung auf die eigene Zelle.
Um ein Wert von A nach B zu übertragen, ohne dass die Formel in B vorliegt, musst Du VBA verwenden.

Folgende Code musst Du im Codepane des Blattes, wo Du das Verhalten haben möchtest:
- gehe auf das gewünschte Blatt
- rechtsklicke auf dem Register (unten, da wo "Tabelle1" steht) und wähle "Code anzeigen"
- Copy-paste den Code dorthin
- in das Blatt zurückkehren und testen: irgendwas in Spalte M, dann L, dann N schreiben
- Datei anschliessen als "Excel-Arbeitsmappe mit Makros (.xlsm)" speichern

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub 'nur wenn eine einzige Zelle geändert würde. Also nicht bei Copy-Paste
If Target.Column = 12 Then 'Spalte L ist Column 12
Application.EnableEvents = False
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Target.Value
Application.EnableEvents = True
End If
End Sub


VG
Yal
Anzeige
AW: Inhalte von Zeile 1 Spalte L in neue Zeile 2 Spalte A
18.10.2024 16:26:41
Yal
Hmm... eventuell verlesen. Du meinst: wenn Eingabe in L2 dann A3, Lx dann Ax+1, usw.

Dann diesen Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub 'nur wenn eine einzige Zelle geändert würde. Also nicht bei Copy-Paste
If Target.Column = 12 Then 'Spalte L ist Column 12
Application.EnableEvents = False
Cells(Target.Row + 1, 1) = Target.Value
Application.EnableEvents = True
End If
End Sub


VG
Yal
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige