Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Makros verbinden"
Start des Makros nach Laden der Arbeitsmappe Makros in Abhängigkeit vom Zellennamen aufrufen
Makros zeitgesteuert aufrufen CommandBar in Abhängigkeit vorhandener Makros erstellen
Makrostart bei Auswahl einer Zelle in Zeile 3 Makros aus einem Standardmodul in ComboBox einlesen
Zellen verbinden und trennen Textdateien verbinden
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen Zellinhalte über VBA verbinden