Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige