Dim Variable in DCount

[reiner60]

Hallo Leute
ich weiß nicht weiter mit DCount

Dim PersonSpalte1 As String

Dim PersonKKwert11 As Byte
       
       
  PersonSpalte1 = DLookup("[Spalte1]", "DebekaUnterSetzenBlatt1")

  PersonKKwert11 = DCount("[Kurzbezeichnung]", "KKTempAbfrageKKwert1", "[Kurzbezeichnung] = 'PersonSpalte1'")
       
   MsgBox PersonKKwert11



MsgBox  müßte 2 sein   
zeigt aber 0

was mache ich falsch mit  PersonSpalte1 

Danke Reiner

[Beaker s.a.]

Hallo Reiner,
Versuche:

Code [Auswählen] Erweitern

PersonKKwert11 = DCount("[Kurzbezeichnung]", "KKTempAbfrageKKwert1", "[Kurzbezeichnung] = '" & PersonSpalte1 & "'")
hth
gruss ekkehard

[reiner60]

Hallo Ekkehard

danken für deine schnelle Hilfe   
klappt gut 
gruß reiner