Verweise fehlen!
04.06.2015 15:52:49
Andreas
mir fehlen zwei Verweise:
nicht vorhanden: Microsoft Windows Common Control
nicht vorhanden: Microsoft Word 14.0 Object Library
Somit funktioniert auch nicht mein Makro, was E-Mail Adreesen nach Word kopiert.
Was kann man machen?
Hier noch mein Makro:
Private Sub CommandButton49_Click()
Sheets("Test").Select
Application.Run _
"DieseArbeitsmappe.Anzeigen_Alles_für_die_Listenerstellung_etc" ActiveSheet. _
Unprotect
Selection.AutoFilter Field:=76, Criteria1:="x"
Application.Run _
"DieseArbeitsmappe.E_Mail_Word"
Sheets("Test).Select
Application.Run _
"DieseArbeitsmappe.Anzeigen_Alle"
Application.Run _
"DieseArbeitsmappe.Sortieren_Vorname"
Application.Run _
"DieseArbeitsmappe.Sortieren_Name"
Range("A4").Select
End Sub
Sub E_Mail_Word()
Dim wObj As Word.Application
On Error Resume Next
Set wObj = GetObject(, "Word.Application")
If Err 0 Then
Set wObj = CreateObject("Word.Application")
End If
wObj.Documents.Add
With wObj.Selection
For Each ze In Range("O5:O1000")
If Not IsNumeric(ze.Value) And Rows(ze.Row).Hidden = False Then
.TypeText Text:=ze & ", "
End If
Next
End With
wObj.Activate
wObj.Visible = True
Set wObj = Nothing
End Sub
Gruß Andreas
Anzeige