AW: benutzerdefinierte Datentyp in Collection
15.09.2005 17:39:56
Stefan
Hallo Fred,
habe ich, trotzdem keinen Erfolg!
Anbei mein Modul. Wo liegt der Fehler?
Option Explicit
Public Type ABIT
strKontonummer As String
bytKontoart As Byte
sngBruttoford As Single
sngkorrZinsen As Single
sngNettoford As Single
sngBlanko As Single
sngEWB_VJ As Single
sngZuführung As Single
sngAuflösung As Single
sngVerbrauch As Single
sngUmsetzung As Single
sngEWB_neu As Single
vntEWB_Konto As Variant
End Type
Public
Sub Datenvergleich_ABIT_KRM()
' erstellt Stefan Krähe / 15.09.2005
' geändert Stefan Krähe / 15.09.2005
' Führt die Fehlerbehandlung für das Projekt durch
Dim Datensammlung As Collection
Dim vntDatenfeld() As Variant
Dim strDatenzeile() As String
Dim lngZeile As Long
Dim udtDatensatz As ABIT
'Daten in Range lesen
Worksheets("ABITDAT").Select
ActiveSheet.UsedRange.Select
vntDatenfeld = Selection
'Daten in Collection lesen
For lngZeile = 1 To UBound(vntDatenfeld, 1)
strDatenzeile = Split(vntDatenfeld(lngZeile, 1), " ")
If UBound(strDatenzeile, 1) = 12 Then
With udtDatensatz
.strKontonummer = strDatenzeile(7)
.bytKontoart = strDatenzeile(12)
.sngBruttoford = strDatenzeile(0)
.sngkorrZinsen = strDatenzeile(10)
.sngNettoford = strDatenzeile(11)
.sngBlanko = strDatenzeile(1)
.sngEWB_VJ = strDatenzeile(2)
.sngZuführung = strDatenzeile(3)
.sngAuflösung = strDatenzeile(4)
.sngVerbrauch = strDatenzeile(5)
.sngUmsetzung = strDatenzeile(8)
.sngEWB_neu = strDatenzeile(6)
.vntEWB_Konto = strDatenzeile(9)
End With
Datensammlung.Add Item:=udtDatensatz, key:=udtDatensatz.strKontonummer
End If
Next lngZeile
End Sub