Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wert übernehmen

Wert übernehmen
07.12.2016 08:48:46
Zidi
Hallo zusammen,
vielleich kann mir hier jemand helfen, da meine VBA - Kenntnisse eher beschränkt sind.
Ich habe eine Liste in der in A2 immer eine Zahl aktuell eingegeben werden soll, die dann ab B2 fortlaufend aufgelistet werden soll. Das Gleiche in E2 die ab F2 gelistet werden sollte.
Bin für jede Hilfe dankbar

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

Betreff
Datum
Anwender
Anzeige
Mit Worksheet_Change...
07.12.2016 08:55:24
Case
Hallo, :-)
... so (Code gehört in den Codebereich des entsprechenden Tabellenblattes): ;-)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Fin
Application.EnableEvents = False
If Target.Cells(1).Address = "$A$2" Then
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Target.Value
ElseIf Target.Cells(1).Address = "$E$2" Then
Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).Value = Target.Value
End If
Fin:
Application.EnableEvents = True
End Sub
Servus
Case

Anzeige
AW: Mit Worksheet_Change...
07.12.2016 09:00:14
Zidi
Ja, sagenhaft.
Ihr seit's die Besten, vielen Dank :-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige