Automatisch füllen vba

Bild

Betrifft: Automatisch füllen vba
von: Peter
Geschrieben am: 30.04.2015 10:03:03

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

Bild

Betrifft: AW: Automatisch füllen vba
von: Michael (migre)
Geschrieben am: 30.04.2015 10:19:59
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

Bild

Betrifft: einfach Perfekt. danke
von: Peter
Geschrieben am: 30.04.2015 10:40:56
.

Bild

Betrifft: Gerne, Danke für die Rückmeldung, owT
von: Michael (migre)
Geschrieben am: 30.04.2015 10:45:49
.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Automatisch füllen vba"