Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

activecell

Betrifft: activecell von: thorsten lazarski
Geschrieben am: 22.10.2014 15:31:51

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

  

Betrifft: AW: activecell von: Hajo_Zi
Geschrieben am: 22.10.2014 15:37:44

Hallo Torsten,

zu 1

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

GrußformelHomepage


  

Betrifft: AW: activecell von: thorsten lazarski
Geschrieben am: 22.10.2014 16:04:21

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