Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1524to1528
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

Wenn dann neue zeile

Wenn dann neue zeile
24.11.2016 11:52:31
Andre
Hallo,
kann mir jemand erklären was soll ich machen damit folgender Code nur in einer Spalte und nicht _
für die ganze Tabelle gilt?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NextLine As Long
With Target
If IsDate(.Value) Then
NextLine = .Row + 1
If WorksheetFunction.CountA(Cells(NextLine, 1).Resize(1, Columns.Count)) Then
Rows(NextLine).Insert Shift:=xlDown
End If
End If
End With
End Sub

Danke im Voraus!

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn dann neue zeile
24.11.2016 12:15:15
MCO
Moin!
Nur eine kleine Änderung in der If-Bedingung
Du kannst natülich auch schreiben

if Target.Column  2 then exit sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NextLine As Long
With Target
If IsDate(.Value) And Target.Column = 2 Then '(für Spalte "B")
NextLine = .Row + 1
If WorksheetFunction.CountA(Cells(NextLine, 1).Resize(1, Columns.Count)) Then
Rows(NextLine).Insert Shift:=xlDown
End If
End If
End With
End Sub
Gruß, MCO
AW: Wenn dann neue zeile
24.11.2016 12:31:22
Andre
Super! Vielen Dank!
Anzeige

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige