---

Hallo Leute,

ich würde gerne Zeilen in mein Arbeitsblatt einfügen und zwar genau so viele wie der Benutzer bei einem bestimmten Textfeld eingibt. Das Makro dafür kann ich mehr oder weniger schreiben, aber wie starte ich das Makro durch die Veränderung dieser Zelle. Bei Textfeldern ist das etwas einfacher, da ich jedoch die excell Datei später automatisch auslesen möchte (ohne mögliche falsche Eingaben des Benutzers) sollte alles Über die Zellen gesteuert werden.

Über jede Hilfe wäre ich sehr dankbar

Giani

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend Giani,

bin mir nicht ganz sicher, ob ich Dich richtig verstanden habe.
Mal langsam zum rantasten, sowas in der Art?

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    If Selection.Count = 1 Then
      If IsNumeric(Target.Value) Then
        Rows(Target.Row & ":" & Target.Row + Val(Target.Value) - 1).Insert
      End If
    End If
  End If
End Sub

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Liebe Nancy,

das ist ja toll, wenn ich die Zahl wieder lösche, dann bekomme ich zwei Zeilen gratis. 

Selection.Count = Target.Count

Wenn Target leer, dann:

IsNumeric(Target.Value) = True

IsNumeric(Target.Text) = False

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Lieber Nepumuk,

soso 'gratis' moagst also nix hobn?;-)
Nene, mal im Ernst, ich hab da nun keinen bis aufs Letzte ausgeknobelten
Errorhandler eingebaut, war eigentlich erstmal nur zum antesten,
-sozusagen ein Rohentwurf- um rauszufinden, auf was Giana da eigentlich hinauswill;-)
ABER - your're right - im Falle eines Falles kanns in die Hosen gehen;-)

10 Points!

lg Nancy 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy und Nepumuk,

danke für eure Hilfe.

Eigentlich müsste eure Ideen mein Problem beheben, aber irgendwie funktioniert das noch nicht so richtig. Ich kann ja nochmal etwas genauer beschreiben was ich machen will:
Im Grunde will ich das bei der Änderung einer Zelle die z.B. Anzahl von Werken angibt, danach für 2 oder 3 oder sonwieviele Werke Eintragungen gemacht werden können. Ein Werk gibt es immer daher kopiere ich die Zeilen einfach und trage sie ein.

Im Grunde müsste das funktionieren mit Nacys Vorschlag, aber irgendwie wird die Funktion Worksheet_change nie ausgeführt. Muss ich in den optionen noch irgendetwas anpassen, so wie "immer neu berechnen" oder so?
Ich wundere mich sehr. In der Hilfe gibt es so ein ähnliches Beispiel wo nur einfach der eingegeben Text blau gefärbt wird, aber auch das funktioniert nicht bei mir. 

lg Giani

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Leute,

Sorry - ich war nur zu blöd und hab den Text nicht in das richtige Arbeitsblatt kopiert.

Vielen Danke für eure Hilfe

lg Giani 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP