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

zeilen einfügen

Forumthread: zeilen einfügen

zeilen einfügen
24.05.2003 16:37:38
Peter
Hallo an alle,

in einer Tabelle habe ich ein Schaltfläche (Name:Zeile einfügen), die in der Datei wenn notwendig ist eine neue Zeile eifügt. Der Makro dafür habe ich

Sub neue_Zeile()
Rows("11:11").Select
Selection.Insert Shift:=xlDown
Range("A10:Z10").Select
Selection.Copy
Range("A11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A10:Z10").Select
Range("Z10").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("A10").Select
End Sub


nun mein Problem. Diese Schaltfläche kann man ja in Makro auch ein und ausblenden, das würde ich ja noch hinkriegen, aber

in dem Blatt sind 10 Zeilen zur Texteingabe vorgesehen, erst wenn diese 10 Zeilen beschrieben wurden, soll diese Schaltfläche auf dem Blatt erscheinen (auf Dauer erscheinen), vorher nicht


Das Problem bekomme ich nicht gelöst.


Gruß Peter

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: zeilen einfügen
24.05.2003 21:43:23
andre

hallo peter,
nimm mal das als ansatz:

Private Sub Worksheet_Change(ByVal Target As Range)
  For Each c In Range("a1:a10")
    If IsEmpty(c.Value) Then Exit Sub
  Next
  MsgBox "ja"
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16


gruss andre

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige