28. März 2024, 21:30
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0401
  E03: Nachname von Vorname trennen
 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
[ VB-/VBA-Forum | Archiv 0401 | Archiv-Übersicht ]
 Antworten
E03: Nachname von Vorname trennen - deraufderleitungsteht 29. Oktober 2007 um 15:32:20
Re: Nachname von Vorname trennen - Gerd 31. Oktober 2007 um 23:10:02

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum