Von |
deraufderleitungsteht |
Am |
29. Oktober 2007 um 15:32:20 |
Frage |
moin leute
- mein zusammengeklauter code funktioniert halbwegs, überspeichert aber den ersten vornamen mit dem zweiten vornamen. Welchen höchst dämlichen fehler mache ich?
Sub Makro1()
Dim LineOfText As String Dim i, j As Integer Dim aryTextFile() As String Dim strVorname As String
For j = 1 To 800
LineOfText = Cells(1 + j, 2).Formula aryTextFile = Split(LineOfText, " ")
If UBound(aryTextFile) > 0 Then i = 0 Cells(1 + j, 6).Formula = aryTextFile(i) ' Nachname End If
strVorname = " " If UBound(aryTextFile) >= 1 Then For i = 1 To UBound(aryTextFile) strVorname = strVorname & " " & aryTextFile(i) ' Vorname Cells(1 + j, 7).Value = aryTextFile(i) Next i End If
Next j
End Sub |
|