Makros verbinden

Bild

Betrifft: Makros verbinden von: gio
Geschrieben am: 31.03.2005 11:28:33

Hallo,

habe 2 Makros die mir dort wo ich gerade bin zwei Zellinhalte reinkopieren.
Wie kann ich beide Makros verbinden, sodass in der Zeile wo ich gerade bin
der 1. Teil reinkopiert wird also makro1 wie bisher und zwei Zellen drunter den 2. Teil reinkopiert bzw. makro 2 startet?
Ablauf: Start Makro1 - dann 2 Zellen tiefer und Start Makro 2
Besten Dank im voraus
gio



Sub BildArbeitsschritte()
'
' AArbeitsschritte Makro
    tabname = ActiveSheet.Name
    Sheets("Format").Select
    Range("A19:B19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(tabname).Select
    ActiveSheet.Paste
End Sub


Sub neuArbeitsschritt()
'
' Cneu Makro
'
    tabname = ActiveSheet.Name
    Sheets("Format").Select
    Range("A3:B3").Select
    Selection.Copy
    Sheets(tabname).Select
    ActiveSheet.Paste
End Sub

Bild


Betrifft: AW: Makros verbinden von: u_
Geschrieben am: 31.03.2005 11:53:13

Hallo,
kurz und schmerzlos:
Sub Arbeitsschritte()
  With Sheets("Format")
    .Range("A19:B19").Copy Destination:=Selection
    .Range("A3:B3").Copy Destination:=Selection.Offset(2, 0)
  End With
End Sub

Gruß


Bild


Betrifft: AW: Makros verbinden von: Harald E
Geschrieben am: 31.03.2005 11:57:34

Hi Gio

ActiveCell.Offset(2, 0).Select
call neuArbeitsschritt

ans Ende des ersten Makro

Gruß
Harald


Bild


Betrifft: AW: Makros verbinden von: gio
Geschrieben am: 31.03.2005 12:04:10

Möchte mich bedanken!
Gruss gio


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makros verbinden"