Zeilen über Inputbox einfügen (variabel) | Herbers Excel-Forum

Sub Makro3() ' Makro3 Makro ' Tastenkombination: Strg+z Dim intAnz As Integer Worksheets("Tabelle1").Select Dim myRange As Range On Error Resume Next Set myRange = Application.InputBox(Prompt:="Bitte wählen Sie die Zeile ab wo eingefügt wird" _ _ _ , _ Title:="Zeilenauswahl", Type:=8) intAnz = Application.InputBox _ ("Wieviel Zeilen sollen eingefügt werden?", Title:="Zeilenanzahl") Rows(myRange + intAnz).Select Selection.Insert Shift:=xlDown Range(myRange).Select Selection.AutoFill Destination:= _ Range(myRange + intAnz), Type:=xlFillDefault End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Makro3() ' Makro3 Makro ' Tastenkombination: Strg+z Dim intAnz As Long Dim myRange As Range Worksheets("Tabelle1").Select On Error Resume Next Set myRange = Application.InputBox(Prompt:="Bitte wählen Sie die Zeile ab wo eingefügt _ wird", _ Title:="Zeilenauswahl", Type:=8) intAnz = Application.InputBox _ ("Wieviel Zeilen sollen eingefügt werden?", Title:="Zeilenanzahl") Rows(myRange.Rows + intAnz).Insert Shift:=xlDown Range(myRange.Address).AutoFill Destination:= _ Range(myRange + intAnz), Type:=xlFillDefault On Error GoTo 0 End Sub

Sub Makro3() ' Makro3 Makro ' Tastenkombination: Strg+z Dim intAnz As Integer Worksheets("F").Select Dim myRange As Range On Error Resume Next Set myRange = Application.InputBox( _ Prompt:="Bitte wählen Sie die Zeile ab wo eingefügt wird", _ Title:="Zeilenauswahl", _ Type:=8) On Error GoTo 0 If Not myRange Is Nothing Then intAnz = Application.InputBox( _ Prompt:="Wieviel Zeilen sollen eingefügt werden?", _ Title:="Zeilenanzahl", _ Type:=1) If intAnz > 0 Then Rows(myRange.Row + 1).Resize(intAnz).Insert Shift:=xlDown Rows(myRange.Row).AutoFill Destination:=Rows(myRange).Resize(intAnz + 1), _ Type:=xlFillDefault End If End If End Sub

...Hajo,
ich löse Probleme, wenn ich sie selber habe, auch selber. Außerdem ist's schietegal wie herum, Hptsache ist doch das es fkt. Ich hatte da nicht vor, all zuviel Mühe zu investieren, noch dazu von einem Linux-PC aus. Dein wenig profihafter Ausrutscher neulich mit der Addition von Zahlen auf ein Objekt war ja nun wahrlich auch kein Ruhmesblatt... :->
Außerdem biete ich keine halbfertigen und unausgegorenen Codes an wie du bspw mit dem alten Versuch von bst zur Ermittlung der aktuellen (bedingten) Formatierung (mitsamt aller Testkommentare!)... Bernd würde das höchstwahrscheinlich nicht tun!
Außerdem habe ich nie behauptet, ein „echter“ Profi zu sein. Von denen hört man nämlich solche Sprüche wie man sollte nicht alles machen, was möglich ist (O-Ton eines Systemprogrammierers und interessanterweise auch unseres Fahrradhändlers und -reparateurs!)... ;-)
Wenn das auch ein Profikennzeichen ist, bin nicht nur ich keiner, sondern viele Helfer und einige, von denen es keiner vermutet, sind dann viell die wahren Profis... ;-)
Gruß Luc :-?

...Ewald,...
Du verwendest ja offensichtlich die InputBox-Methode. Da kann man das so machen. Aber gibt der Nutzer das dann auch so ein wie erforderlich? Im VBE-Hilfe-Bsp wird ein Bereichsname verwendet, aber der Nutzer wird hier doch wohl eher nur eine (Zeilen-)Nr eintragen! Ich weiß nicht, ob das dann reicht, um ein Range-Objekt zu setzen. Mit einer 2.InputBox(-Methode) fragst du dann höchst nutzerunfreundlich noch die Zeilenanzahl ab. Dabei hast du wohl übersehen, dass in der Hilfe steht, ohne Type gibt die Methode Text zurück. Ich weiß ja nicht, ob hier die automatische Umwandlung in einen Integer-Wert (Long wäre sinnvoller!) fktt. Wenn das aber doch alles fktn sollte, kommt der „dicke Hund“ anschließend. Da wird erst eine Zeile „ausgewählt“, deren Nummer sich aus der Addition eines Objekts (!) und einer Zahl ergeben soll! Dann wird die Einfügezeile ausgewählt (vorausgesetzt Set hat geklappt!) und soll auf den angeblichen Einfügebereich, der ebenfalls durch Addition von Objekt und Zahl bestimmt wdn soll, übertragen wdn...! So steht das nicht in den VBE-Hilfe-Bspp! Falls das aber wider Erwarten doch fktn sollte, siehst du evtl deshalb nichts, weil du eine leere Zeile auf leere Zeilen überträgst...!?
Übrigens kann keine Fehlermeldung kommen, denn du hast am Anfang On Error Resume Next geschrieben. Das unterdrückt sie. So etwas ist meist nur bei udFktt sinnvoll. Bei Subroutinen sollte man dann schon eher eine ordentliche Fehlerbehandlung pgmieren (On Error GoTo...). Und die PgmSyntax scheint formal i.O. zu sein, so dass sich auch der Compiler nicht meldet...
Gruß Luc :-?

Sub Makro1() ' Makro1 Makro ' Tastenkombination: Strg+ Dim intAnz As Integer Worksheets("Tabelle1").Select intAnz = Application.InputBox _ ("Wieviel Zeilen sollen eingefügt werden?") Rows("11:" & 10 + intAnz).Select Selection.Insert Shift:=xlDown Range("D10").Select Selection.AutoFill Destination:= _ Range("D10 : D" & 10 + intAnz), Type:=xlFillDefault End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen über Inputbox einfügen (variabel) | Herbers Excel-Forum

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen über Inputbox einfügen (variabel) | Herbers Excel-Forum

31 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread