Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile einfügen

Forumthread: Zeile einfügen

Zeile einfügen
06.08.2003 09:56:58
Richard
Hallo Leute,
wie kann ich über VBA bei einer Änderung des Zellinhaltes in Spalte A eine Leerzeile einfügen.. Nehme jeden Lösungsvorschlag dankend an.
Richard
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile einfügen
06.08.2003 10:11:56
Ivan


hi Richard
gib diesen code
mit alt+f11
in die tabbelle wo es geschehen soll!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Target.Column = 1 Then
    Rows("40000:40000").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
End If
Application.ScreenUpdating = True
End Sub
gruss
ivan

Anzeige
AW: Zeile einfügen
06.08.2003 10:14:39
Stephan
Hi Richard !
Versuch mal das: Code im Klassenmodul der Tabelle einfügen

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, ActiveSheet.Columns(1)) Is Nothing Then
Exit Sub
Else
Target.Rows.Insert xlDown
End If
End Sub


Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige