asterix2 - Profil - Administrator

Asterix2

Ich freue mich auf euer Feedback

Neue Kommentare

Wie füge ich der Mail einen Text hinzu? am 23.01.2013

Hallo Dieter, sorry das mich erst jetzt melde, aber ich gebe nicht gerne im Internet bekannt zu welchem ...

Wie füge ich der Mail einen Text hinzu? am 13.01.2013

Hallo didi1954, sorry, das hab ich anders verstanden. Also die Adressen wären in Zelle A1 usw. als Hyperlinks ...

Wie füge ich der Mail einen Text hinzu? am 12.01.2013

Hallo didi1954, Danke für deine Hilfe. @edit Funktioniert mit meiner Idee leider nicht, weil keine Datei angehängt werden ...

Wie füge ich der Mail einen Text hinzu? am 11.01.2013

Hallo nappermann, Danke für deine Antwort. Werde mir das mal zu Gemüte führen. Solange hoffe ich das vielleicht ...

Alle Kommentare

Asterix2 am 11.01.2013MicrosoftMicrosoft Office

Wie füge ich der Mail einen Text hinzu?

Dim Epfänger As String Dim arrTo As Variant arrTo = Array(Range("A83").Value, Range("A1").Value, Range("A2").Value, Range("A3").Value, Range("A4").Value, Range("A5").Value) ActiveWorkbook.SendMail Recipients:=arrTo, Subject:="Ich bin eine Mail" & "_" &

Asterix2 am 08.01.2013MicrosoftMicrosoft Office

Wenn Schriftfarbe rot dann Zelle gesperrt

Wenn die Schriftfarbe in einer Zelle rot ist, so soll diese gesperrt sein. Das war es dann eigentlich auch schon. Ich hoffe ihr habt eine

Asterix2 am 07.01.2013MicrosoftMicrosoft Office

Aus Excel201 E-mail an mehrere Empfänger senden.

ActiveWorkbook.SendMail Recipients:=Range("A83"), Subject:="Mail" & "_" & strFile

Asterix2 am 31.12.2012VB for ApplicationsEntwicklung

Datei per VBA unter xlsx speichern

Public Sub SpeichernUnter() 'Quelle: Melanie Breden Const strPath As String = "D:\" 'Pfad anpassen Dim strFile As String strFile = ActiveSheet.Range("A2").Value If Dir(strPath) = ""

Asterix2 am 24.12.2012VB for ApplicationsEntwicklung

Nach kopieren einer Tabelle, Makro löschen

Um folgenden Code dreht sich meine Frage: Private Sub CommandButton1_Click() Dim strDateiName As String Dim strVerzeichnisPfad As String Dim strSaveDatei As String Dim bSpeichernDialog As