per VBA-Script Zeilen einfügen??

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
die Zeilen werden wie gewünscht nach unten verschoben (Insert Shift:=xlDown)
Ein Tastenkombination gibt es nicht. Zeichne ein kurzes Makro auf (mit Tastenkombi), lösche den Code und füge den Code aus meinem Vorschlag ein.
Oder füge dir über die Steuerelement Toolbox einen Button ein.
Im Entwurfsmodus auf Code anzeigen klicken, und dort den Code einfügen, oder Call einfuegen schreiben (dazu muss mein Code komplett im Modul1 stehen).
Dann gilt der Code für das gerade aktive Blatt.
vba-lernen...bin ja selbst noch Lehrling ;-))
Grundlagen bekam ich via Abendkurs, die ich per Herbers Excel-CD, bzw. Forum
(mitlesen, fragen, antworten) nun weiterentwickle. Buchempfehlung hab ich keine.
Gruss Harald

Hi, klaro
zuerstmal. Den Code hab ich getestet und er läuft. Dazu müssen auf dem gerade aktiven Blatt in Spalte A mindestens 4 Einträge sein (da er in Spalte A die letzte gefüllte Zelle sucht und dann noch 3 Zeilen abzieht. Man kann das auch abchecken.
Sub einfuegen()
Dim Lrow As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row 'letzte gefüllte Zelle in Spalte 1 ("A")
if Lrow Range(Rows(Lrow), Rows(Lrow - 3)).Cut
Rows(5).Insert Shift:=xlDown
End Sub
So...Button. Step-by-step
Leg den Button in das Blatt, nicht in die Leiste, dann startet man ihn auch nicht unbeabsichtigt aus einer anderen Mappe (andere Möglichkeiten wären vorhanden, sind aber eher nichts für Beginner).
Steuerelement-Toolbox aufrufen. Button-Werkzeug aufklicken und Button im Blatt platzieren. Entwurfsmodus ist automatisch eingeschaltet. rechte Maustaste auf den Button
Dort steht Code anzeigen. Den Code-Text hinein...sieht dann so aus.


Private Sub CommandButton1_Click()
Dim Lrow As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row 'letzte gefüllte Zelle in Spalte 1 ("A")
if Lrow < 4 then exit sub  'wenn letzte Zeile kleiner 4 dann Abbruch
Range(Rows(Lrow), Rows(Lrow - 3)).Cut
Rows(5).Insert Shift:=xlDown
End Sub

Wenn das Eigenschaftenfenster geschlossen sein sollte, F4 drücken.
Dort kannst Du per Caption den Button mit anderem Text versehen, bzw. Farbe etc. anpassen
Speichern und Entwurfsmodus beenden....fertich ;-))
Gruss Harald

Private Sub CommandButton1_Click() Dim Lrow As Long Cells(1, Columns.Count).End(xlToLeft).Column If Lrow < 4 Then Exit Sub 'wenn letzte Zeile kleiner 4 dann Abbruch Range(Columns(Lrow), Columns(Lrow - 2)).Copy Columns(4).Insert Shift:=xlToLeft Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

per VBA-Script Zeilen einfügen??

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

156 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per VBA-Script Zeilen einfügen??

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

156 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread