Makros verbinden

Forumthread: Makros verbinden
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makros verbinden

Makros verbinden

31.03.2005 13:28:33

gio

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makros verbinden

31.03.2005 13:53:13

u_
AW: Makros verbinden

31.03.2005 13:57:34

Harald E
AW: Makros verbinden

31.03.2005 14:04:10

gio

AW: Makros verbinden

31.03.2005 13: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ß

AW: Makros verbinden

31.03.2005 13:57:34

Harald E

Hi Gio
ActiveCell.Offset(2, 0).Select
call neuArbeitsschritt
ans Ende des ersten Makro
Gruß
Harald

AW: Makros verbinden

31.03.2005 14:04:10

gio

Möchte mich bedanken!
Gruss gio

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!