Copy ohne Formeln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Copy ohne Formeln

08.02.2003 15:36:20

Boris

Re: Copy ohne Formeln

08.02.2003 15:43:59

Wolfgang

Re: Copy ohne Formeln

08.02.2003 15:59:46

Boris

Re: Copy ohne Formeln

08.02.2003 16:07:36

Wolfgang

Re: Copy ohne Formeln

08.02.2003 16:16:04

Boris

Re: Copy ohne Formeln

08.02.2003 16:32:25

Wolfgang

Offen

08.02.2003 16:58:25

Boris

Re: Copy ohne Formeln

08.02.2003 19:35:21

Hans W. Hofmann

Re: Copy ohne Formeln

08.02.2003 20:03:15

Boris

Re: Copy ohne Formeln

08.02.2003 20:33:45

Hans W. Hofmann

Hallo Boris,
Danke dafür. Meine Idee war einen Dateinamen automatisch vorzugeben, ohne InputBox. Das gesamte Makro ist als email-Versand gedacht. Die Datei soll beim Absender nur erstellt nicht aber gespeichert werden. Widerrum soll immer der gleiche Dateiname beim Empfänger ankommen. Ich poste Dir mal den gesamten Code:
Sub EmailVersand()
Dim rng1 As Range
Dim rng2 As Range
Dim sAddress As String
Dim sMonat As String
Application.ScreenUpdating = False
'Hier wird der aktuelle Monat für die Betreffzeile eingestellt
sMonat = Range("M1")
'Hier wird die angegebene emailadresse eingestellt
sAddress = Range("E21").Value
'Hier werden die Werte aus Übergabe Tabelle1 eingestellt
Set rng = Worksheets("Tabelle1").Range("D6:G300")
'Hier werden die Wert aus Übergabe Tabelle2 eingestellt
Set rng2 = Workscheets("Tabelle2").Range("D6:D300")
'Legt eine neue Arbeitsmappe an und kopiert die Zellen aus rng in diese
Workbooks.Add
rng1.Copy
Range("A1").PasteSpecial (xlPasteValues)
rng2.Copy
Range("A5").PasteSpecial (xlPasteValues)
Columns.AutoFit
ActiveWorkbook.SendMail sAddress, "Monatsdaten für Monat " & sMonat
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

Ich hoffe Du hast meine Frage richtig verstanden?
Gruß
Wolfgang

Hallo zusammen,

das mit copy ist das selbe wie mit select.
Copy/Paste ist ein typisches Relict der Tabellenuser und passt nicht in ein Programmierparadigma. Programmtechnisch ist unter Kopieren eine Zuweisung zu verstehen. Z.B bei einer Integer würde niemand auf die Idee kommen davon ein Kopie mit copy/paste anzulegen, sondern
EineKopie = Original
eine Zuweisung formulieren, um eine Kopie anzulegen. Mit einem Range dagegen ist man wohl gerne mit copy/paste dabei, weil mans in der Tabellenarbeit so gelernt hat.
Der Programmierer sollte aber objektorientiert, direkter und schneller per Zuweisung arbeiten:

Range("B1:C1000").Value = Range("B1:B100).Value

und erzeugt eine Kopie der Werte. Schließlich verfügt das Range-Objekt über einen Zuweisungsoperator. Mit Formula analog.

Was ist Jungs, lieber Hans, nicht mal ein Workshop dazu
und nieder mit copy/paste!

Gruß HW

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread