Zellen einfügen

Forumthread: Zellen einfügen

Zellen einfügen

Volker

Hallo,
mit dem Makrorecorder habe ich diesen Code aufgezeichnet:

Sub Makro1()
Range("A23:J23").Select
Selection.Insert Shift:=xlDown
End Sub

Ich möchte aber, dass wenn ich in der Spalte A irgendwo anklicke, z.B. A50, dann den Button klicke, hier in dem Breeich, A:J, Zellen eingefügt werden.
Also müsste Range("A23:J23").Select abgeändert werden, so dass immer die aktive Zeile gemeint ist.
Ich hoffe ich habe mich klar gebug ausgedrückt.
Gruß Volker

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zellen einfügen

Ramses
Danke o.w.t.

Volker

AW: Zellen einfügen

15.02.2010 12:04:21

Ramses

Hallo

Sub Makro1()
with Selection
.Insert Shift:=xlDown
end With
End Sub

Gruss Rainer

Danke o.w.t.

15.02.2010 12:09:48

Volker

Forumthread: Zellen einfügen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread