Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1392to1396
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

Neuen Datensatz einfügen über VBA

Neuen Datensatz einfügen über VBA
26.11.2014 09:51:57
Tom
Hallo,
ich benötige eine kleine Anpassung des Codes.
Durch den Doppelklick soll immer die Zeile 10.000 als Grundlage für die neue Zeile unten angehängt werden und nicht die darüber liegende. Grund dafür wenn die User die Formatierung der bereits eingefügten Zeilen durch copy-past ändern, wird nicht mehr die richtige Formatierung in die neue Zeile kopiert.
Des Weiteren dürfen auch nur Zeilen unterhalb der Zeile 10.000 eingefügt werden. Oberhalb dieser Zeile darf nichts passieren.
Gruß Tom
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Target.Column = 1 Then
On Error GoTo Notausgang
With ActiveCell
.EntireRow.Copy
.EntireRow.Offset(1, 0).Insert shift:=xlDown
.EntireRow.Offset(1, 0).PasteSpecial
.EntireRow.Offset(1, 0).SpecialCells(xlCellTypeConstants).ClearContents
.Offset(1, 0) = Date
.Offset(1, 0).Select
End With
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Notausgang:
Cancel = True
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Neuen Datensatz einfügen über VBA
26.11.2014 10:05:22
Daniel
Hi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 10000 Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error GoTo Notausgang
With ActiveCell
Rows(10000).Copy
.EntireRow.Offset(1, 0).Insert shift:=xlDown
Der Rest dann wie gehabt

Gruß Daniel

AW: Neuen Datensatz einfügen über VBA
26.11.2014 10:13:51
Tom
hi,
ok danke
gruß tom
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige