Set
objExcel = CreateObject(
"Excel.Application"
)
Set
objWorkbook = objExcel.Workbooks.Open(
"C:\Users\" & strCurrentUser & "
\AppData\Roaming\Microsoft\Templates\Kontaktdaten.xlsx")
Set
objWorksheet = objWorkbook.sheets(
"Tabelle1"
)
objExcel.Visible =
False
spalte = 5
zeile = objWorkbook.sheets(
"Tabelle1"
).UsedRange.Columns(spalte).Rows.Count
For
i = 1
To
zeile
If
objWorksheet.Cells(i, spalte) = strCurrentUser
Then
strName = objWorksheet.Cells(i, spalte - 4)
strTel = objWorksheet.Cells(i, spalte - 3)
strFax = objWorksheet.Cells(i, spalte - 2)
strMail = objWorksheet.Cells(i, spalte - 1)
Else
End
If
Next