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
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
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Streethawk“ () aus folgendem Grund: noch was eingefallen