Hallo!
HAbe den Code ein wenig verändert.
Nun kommt ein fehler „Typen unverträglich“.
Grundsätzlich müssen Variablen in VBA einzeln definiert werden. Eine Mehrfachzuweisung eines Typs wie bspw. in Pascal ist nicht möglich.
Z.B. würde „Dim A,B,C as String“ die Variablen A und B mit dem Typ Variant definieren und nur C als String. Das kann bei der Wertezuweisung zu Problemen führen. In deinem Fall erscheint der Fehler aber, da du einen Wahrheitswert einer String-Variablen zuordnest (sh. nächste Frage).
ich verknüpfe ja Text und Zahl zu einem String.
nein, du verknüpfst nicht sondern Du nutzt die logische Operation AND die einen Wahrheitswert liefert sofern zwei Bedingungen gleichzeitig erfüllt sind (z.B. ergibt 1=1 And 1=2 --> wahr und 101 --> falsch). Um mehrere Textvariablen (beschränkt auch Zahlen) zu verbinden nutze „&“ als Verbinder (text=text1 & text2 oder text = text1 & cstr(zahl)).
Wie kann ich diesen wieder trennen und in einem listenfeld in
zwei spalten ausgeben?
Füge die Werte für die einzelnen Spalten mit einem Semikolon als Trennzeichen zusammen : lst1 = strALKGem & „;“ & intALKFlur
Wenn das Ausgabelistenfeld zweispaltig eingerichtet ist und die Eigenschaft Herkunftstyp im Formularentwurf bereits auf Wertliste eingestellt ist, werden bei Zuweisung über me![lst_diff].rowsource=grp die Werte automatisch getrennt. Aber bedenke, dass Du für jede neue Zeile die Werteliste fortsetzen musst (Me![lst_Diff].RowSource = Me![lst_Diff].RowSource &";" & grp), sonst wird die bestehende Zeile nur ersetzt…
Dim strALKGem, strGemGem, grp, lst1, lst2 As String
Dim intALKFlur, intFlurFlur, intz As Integer
Dim ctllst As Control
On Error GoTo myError
Set ctllst = Me!lst_FlurAlt
strALKGem = Me![lst_FlurNeu].Column(0)
intALKFlur = Me![lst_FlurNeu].Column(1)
strGemGem = Me![lst_FlurAlt].Column(2)
intFlurFlur = Me![lst_FlurAlt].Column(4)
lst1 = strALKGem And intALKFlur
lst2 = strGemGem And intFlurFlur
For intz = 0 To ctllst.ListCount - 1
If lst1 lst2 Then
grp = lst1
Me![lst_Diff].RowSource = grp
Me![lst_Diff].ColumnCount = 2
Me![lst_Diff].ColumnWidths = " 2cm; 1cm "
End If
Next intz
danke enrico
Übrigens wirst Du für einen vollständigen Vergleich die Zeilen beider Listenfelder in einer verschachtelte For-Next-Schleife durchgehen müssen.
So wie oben vergleichst Du nur einen Einzeleintrag mit allen Einträgen des anderen Feldes.
Hoffe die Hinweise helfen, um Deine Funktion fertig zu stellen.
Entschuldige evtl. Schreibfehler. Habe den Text mit „fixen Fingern“ im Blindflug getippt.
Gruß, tester!
