ich hatte neulich diesen Code erhalten, um aus Zelle B1 was auszulesen.
Nun möchte ich es auf E2 ändern, hierzu habe ich die 1 durch 2 ersetzt und die 2 durch 5.
Die Änderung auf 5 funktioniert, aber die Änderung der 1 auf 2 bringt eine Fehlermeldung, was mache ich falsch?
Dim strMailaddresses As String
With Worksheets("Tabelle1") ' Anpassen !!!
strMailaddresses = Join(Application.Transpose(.Range( _
.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp)).Value), ";")
End With
Vielen Dank für eure Hilfe.
Viele Grüße,
Nico