Suche VBA Befehl
10.03.2004 08:45:16
Ralf
ich möchte aus dem aktiven Tabellenblatt verschiedene Zellbereiche in ein neues Tabellenblatt kopieren und dies per eMail verschicken.
Ich habe ein Makro mit dem makrorecorder aufgezeichnet und den eMail-Block aus einem anderen Forumsthema kopiert. Alles funktioniert, nur möchte ich das Makro auf mehreren Tabellenblättern verwenden. Ich brauche einen Befehl um vom aktiven Tabellenblatt zu kopieren nicht von einem speziellen.
Sheets("GP 1").Select soll durch ActiveSheet ..... ersetzt werden.
Kann mir jemand den richtigen nennen. Kenne mich damit nicht aus.
Muß der Befehl vor jedem zu kopierenden Zellenblock gestellt werden, oder reicht dies einmal am Anfang des Makros aus?
Außerdem suche ich den Sprungbefehl um nach ausführen des Makros zum aktiven Tabellenblatt zurück zu springen.
Gruß
Ralf
Sub tippzettel_eMail()
Sheets("GP 1").Select
Range("D6:D14").Select
Selection.Copy
Sheets("eMail").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("GP 1").Select
Range("K6:K14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("eMail").Select
Range("E4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Dim blatt As Integer
Sheets("eMail").Copy
ActiveWorkbook.SendMail "test@test.de", "F1"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub