Makro Fehler Warum?

Sub ZeileEinfuegen() Dim z, y, x y = InputBox("Welche Zeile soll kopiert werden?", "Zeilenabfrage") z = InputBox("Wie oft soll die Zeile kopiert werden?", "Zeilen Einfügen", 1) For x = 1 To z Rows(y).Select Selection.Copy Selection.Insert Shift:=xlDown Next Application.CutCopyMode = False Cells(y, 1).Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ZeileEinfuegen() Dim z As Variant, y As Variant y = Application.InputBox("Welche Zeile soll kopiert werden?", "Zeilenabfrage", Type:=1) If y = False Then Exit Sub End If z = Application.InputBox("Wie oft soll die Zeile kopiert werden?", "Zeilen Einfügen", 1, Type:=1) If z = False Then Exit Sub End If Rows(y).Copy Rows(y).Resize(z).Insert Application.CutCopyMode = False End Sub

So, nach der Rückmeldung von Werner habe ich meinen Code nochmals angepasst (verschönert). Jetzt hab ich manchmal eine Fehlermeldung hier: Rows(y).Resize(z).Insert
Manchmal aber auch nicht - ist aber immer die gleiche Tabelle. *argh


Sub ZeileEinfuegen()
Dim z As Variant, y As Variant
'InputBox mit Dialogfeld
y = Application.InputBox("Welche Zeile soll kopiert werden?", "Zeilenabfrage", Type:=1)
'Prüfen, ob etwas eingetragen wurde
If y = "" Then
'kein Eintrag
MsgBox "Bitte die Zeile, die kopiert werden soll eintragen"
End If
'Prüfen, ob der Wert richtig ist
If y = False Then
Exit Sub
DoEvents
Else
'es wurde etwas eingetragen
MsgBox "Folgende Zeile wird kopiert:" & vbNewLine & y
z = Application.InputBox("Wie oft soll die Zeile kopiert werden?", "Zeilen Einfügen", 1, Type:=1)
'Prüfen, ob der Wert richtig ist
If z = False Then
Exit Sub
End If
DoEvents
'rows Gibt ein Range-Objekt zurück, das alle Zeilen im angegebenen Arbeitsblatt darstellt.
Rows(y).Copy
Rows(y).Resize(z).Insert
Application.CutCopyMode = False
End If
End Sub

Sub ZeileEinfuegen() Dim z As Variant, y As Variant y = Application.InputBox("Welche Zeile soll kopiert werden?", "Zeilenabfrage", Type:=1) If y = False Then Exit Sub z = Application.InputBox("Wie oft soll die Zeile kopiert werden?", "Zeilen Einfügen", 1, Type:=1) If z = False Then Exit Sub If CLng(y) y Or CLng(z) z Then Exit Sub If y Rows.Count - z Then Exit Sub Rows(y).Copy Rows(y).Resize(z).Insert Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Fehler Warum?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread