Liebe Mituser!



Aus einer bestehenden MS Access-Personendatenbank würde ich gern mit den Feldern Nachname und Vorname mittles InString die Initialen der Personen herausziehen und in einem Bericht oder sonstwie speichern. Z.B. Hirsch, Markus --> M.H.



Wie steuert man mit Access-VBA einzelnen Datensätze an? Kann man sie alle einfach mit einer Schleife durchlaufen? Wie leitet man die Ergebnisse in einen Bericht?





Vielen Dank für eure wertvollen Tipps

euer

Streethawk

erstmal würde mir schon reichen, wie man von einer Zeichenkette noch mal den ersten Buchstaben ermittelt

dies Detail hat sich erledigt, geht mit Mid()




Edit by LaMa5:
- hat nichts mit Grundlagen zu tun
-->*moved* (=> VBA)

Sub InitialenExtrahieren()
Dim strNachname As String
Dim i As Integer
Dim strInitialen As String
Dim strVorname As String

For i = 2 To 1028
With Worksheets("BEKANNTE")
strNachname = .Cells(i, 2)
strVorname = .Cells(i, 3)
'Debug.Print strNachname
Worksheets("Initialenergebnis").Cells(i, 2).Value = strNachname
strInitialen = Mid(strVorname, 1, 1) & ". " & Mid(strNachname, 1, 1) & "."
Worksheets("Initialenergebnis").Cells(i, 3).Value = strInitialen
End With
Next i
End Sub