Formel in VBA integrieren
03.10.2014 10:43:12
Angelika
Hallo,
ich hab mal wieder ein Problem.
In meinem Tabellenblatt "Bestellungen" wird in Zelle "B15" der WindwosAnmeldename angezeigt. Z.B. Josef Müller.
Nun zum Problem : in Zelle D15 soll dann folgendes erscheinen Müller@test.de
leider klappt das nicht (Fehler 1004 Andwendung oder Objektdefinierter Fehler )
Ich bitte um Hilfe. vielen Dank im voraus
und zwar habe ich folgenden Code
Private Sub Workbook_Open()
'**********zählt den NummernkreisinTabelle "Auswahldaten" aus O2 hoch
'** Dimensionierung der Variablen
Dim DName As String, Dateiname As String, Pfad As String, strName As String
Dim Jahr As Integer
Dim frtlNr As Integer
Dim sFilename As String
Jahr = Worksheets("Auswahldaten").Range("P2")
frtlNr = Worksheets("Auswahldaten").Range("O2")
If Jahr <> Year(Date) Then
frtlNr = 0
Jahr = Year(Date)
Worksheets("Auswahldaten").Range("P2") = Jahr
End If
frtlNr = frtlNr + 1
Worksheets("Auswahldaten").Range("O2") = frtlNr
Worksheets("Bestellung").Range("B15") = Environ("UserName") 'trägt Windows Anmeldename in _
Zelle B15" ein
Worksheets("Bestellung").Range("D15").FormulaLocal = "=links(""B15""; Finden("";""B15"")-2)&""@" _
_
_
_
" ""test.de"""
'hier soll im Formular "Bestellung" Zelle "D15" der Nachname mit Emailadresse(in diesem Fall _
test.de) angezeigt werden
End Sub
Angelika