Udtag nummer?

Kunde = split(combobox,"(")
Kunde1 = split(Kunde,")")
KundeNr = kunde1(0)

Kunde = split(combobox,"(")
Kunde1 = split(Kunde(1),")")
KundeNr = kunde1(0)

en rettelse

Skal der Ikke mere til?

Den siger noget med array?

hvis du altid har parenteser omkring kundenummer og ikke andre steder, så skulle det ikke gå galt.

combobox er selvfølgelig navnet på din combobox

Dim Kunde  As String
Dim kunde1 As String
Dim KundeNr  As String

Kunde = Split(cboKundeValg.Text, "(")
kunde1 = Split(Kunde(1), ")")
KundeNr = kunde1(0)

Det er nok en god ide at Dim'e variablene Kunde og Kunde1.

Dim Kunde As String()
Dim kunde1 As String()
Dim KundeNr As String

Samme fejl endnu!

Expectede array

Dim Kunde  As variant
Dim kunde1 As variant
Dim KundeNr  As long

Så siger den bare:
Subscript out of range

har du altid parenteser, det akal der være

Dim Kunde  As Variant
Dim kunde1 As Variant
Dim KundeNr  As Long

Kunde = Split(cboKundeValg.Text, "(")
kunde1 = Split(Kunde(1), ")")
KundeNr = kunde1(0)

det var i din cboKundeValg.Text, jeg mente

Oki... lavede lige en:

On error resume next, så kører det!

POINT?

du kan teste med denne

Dim Kunde  As Variant
Dim kunde1 As Variant
Dim KundeNr  As Long

Kunde = Split(cboKundeValg.Text, "(")
If IsArray(Kunde) Then
kunde1 = Split(Kunde(1), ")")
Else
MsgBox " der er ikke en ( i teksten"
End If

If IsArray(kunde1) Then
KundeNr = kunde1(0)
Else
MsgBox " der er ikke en ( i teksten"
End If

lidt smartere

Dim Kunde  As Variant
Dim kunde1 As Variant
Dim KundeNr  As Long

Kunde = Split(cboKundeValg.Text, "(")
If IsArray(Kunde) Then
kunde1 = Split(Kunde(1), ")")
Else
MsgBox " der er ikke en ( i teksten " & vbCrLf & cboKundeValg.Text
End If

If IsArray(kunde1) Then
KundeNr = kunde1(0)
Else
MsgBox " der er ikke en ( i teksten " & vbCrLf & cboKundeValg.Text
End If