Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Automatisch füllen vba

Automatisch füllen vba
30.04.2015 10:03:03
Peter
Hallo,
Ich steh auf dem Schlauch.
Mein Code:
Sub worksheet_ActiveSheet.Shapes
Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Mit diesem code markiere ich z.b. A8 und B8 drück auf meinen Code (button) dann wird eine leere Zeile eingefügt.
Ich möchte meinen code gerne erweitert und er soll mir automatisch die B füllen. Mit dem text der in B1 steht.füllen. A8 soll aber leer bleiben
Kann man das hinzufügen
Hoffe ihr könnt mir helfen
Gruß Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisch füllen vba
30.04.2015 10:19:59
Michael
Hallo Peter!
So?
Sub ZeileUndWertAusB1()
Dim AktZeile As Long
AktZeile = Selection.Row
Selection.Insert shift:=xlDown, copyorigin:=xlFormatFromLeftOrAbove
Cells(AktZeile, 2).Value = Cells(1, 2).Value
End Sub
LG
Michael

einfach Perfekt. danke
30.04.2015 10:40:56
Peter
.

Gerne, Danke für die Rückmeldung, owT
30.04.2015 10:45:49
Michael
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige