Microsoft Excel

Herbers Excel/VBA-Archiv

Automatisch füllen vba

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

  

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


  

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

.


  

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

.


 

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