probleme mit combobox
10.09.2006 22:02:43
aga
bei dem ich nicht weiterkomme
habe eine combobox in einer userform, welche ich aus einem tabellenblatt versuche aufzufüllen,bei aktiven worksheet "diagramm" mittels
Private Sub UserForm_Initialize()
Dim rngSource As Object
l = ActiveWorkbook.Sheets("adresse").Range("b2").End(xlDown).Row
Set rngSource = Worksheets("adressen").Range("a2:a" & l) ' Datenbereich
ComboBox1.RowSource = rngSource.Address
Set rngSource = Nothing
End Sub
hier sind emailadressen vorhanden
nun versuche ich mittels dem code
Private Sub CommandButton1_Click()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "betreff" & vbCrLf
.Item.To = TextBox1.Value
.Item.Subject = "Das Diagramm"
.Item.Send
End With
End Sub
ein diagramm aus tabellenblatt "diagramm" zu versenden an die adresse welche ich in der combobox auswähle und an eine textbox übergebe.
jedoch nimmt die combobox bei aktivem tabellenblatt "diagramm" nicht die adressen auf die im Tabellenblatt "adressen" vorhanden sind.
wie kann ich das realisieren?
info:ich will auch diagramme aus anderen tabellenblättern verschicken,also muß der code allgemein gültig sein
gruß
aga