Gruppe
Allgemein
Problem
Die Daten aus einer Tabelle sollen in Felder eines benutzerdefinierten Datentyps ein- und von dort ausgelesen werden.
StandardModule: basMain
Type Adresse
Vorname As String
Nachname As String
Strasse As String
PLZ As String
Ort As String
End Type
Sub AdresseEintragen()
Dim iRow As Integer
Dim sAdr As String
Dim MyAddresses(1 To 5) As Adresse
For iRow = 2 To 6
With MyAddresses(iRow - 1)
.Vorname = Cells(iRow, 1)
.Nachname = Cells(iRow, 2)
.Strasse = Cells(iRow, 3)
.PLZ = Cells(iRow, 4)
.Ort = Cells(iRow, 5)
End With
Next iRow
For iRow = 2 To 6
With MyAddresses(iRow - 1)
sAdr = .Vorname & " " & _
.Nachname & vbLf & _
.Strasse & ", " & _
.PLZ & " " & _
.Ort
End With
MsgBox sAdr
sAdr = ""
Next iRow
End Sub