activecell

Forumthread: activecell
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: activecell

activecell

22.10.2014 17:31:51

thorsten

Hallo zusammen,
ich möchte in einer Tabelle eine Zeile markieren und mit den Inhalten der aktiven Zeile eine automatische Mail schreiben. Das funktioniert auch ganz gut.
ich habe zwei Probleme...
1.Ich möchte prüfen ob eine Zeile markiert ist. Wenn keine markiert ist = MsgBox..
2.Irgendwie merkt er sich immer die "alte ActiveCell" wie kann ich den Wert zurücksetzen.
Weiß jemand Rat?
Gruss Thorsten

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: activecell

22.10.2014 17:37:44

Hajo_Zi
AW: activecell

22.10.2014 18:04:21

thorsten

AW: activecell

22.10.2014 17:37:44

Hajo_Zi

Hallo Torsten,
zu 1

If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet)=1 then

AW: activecell

22.10.2014 18:04:21

thorsten


Private Sub CommandButton2_Click()
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
b = ActiveCell.Row
c = ActiveCell
If b > 0 Then
a = Range("A" & b).Value & "//" & Range("B" & b).Value & Range("C" & b).Value & Range("D" &  _
b).Value & Range("E" & b).Value & Range("F" & b).Value & "//" & _
Range("G" & b).Value & "//" & Range("H" & b).Value & Range("I" & b).Value & Range("J" & b). _
Value & Range("K" & b).Value
With objMail
.GetInspector
.to = ("xy@gmx.de")
.Subject = ("automatische Abmeldung Punkt:") & a
.htmlbody = "" & "automatische Abmeldung" & "

" & "

" & a & .htmlbody
.Display
End With
Else
MsgBox ("Bitte die Zeile auswählen, die abgemeldet werden soll")
End If
End Sub