- #1
B
Billy
Guest
hi all
hab mal eine kleine Verständnis frage. Nämlich: wieso geht dieser Code nicht
welchen ich mit
abrufe?
danke für helfende Hilfe
mfg Billy / FiRe-X
hab mal eine kleine Verständnis frage. Nämlich: wieso geht dieser Code nicht
Code:
Function myFunction(x_start, x_ende, y_start, y_ende, n_kurz, n_Führer)
Dim a_führer As Long, Spalte As String, ws As Worksheet
'Dim x_start As Long, x_ende As Long, y_start As Long, y_ende As Long
a_führer = 0
MsgBox (x_start & - & x_ende & - & y_start & - & y_ende)
For x = x_start To x_ende
For y = y_start To y_ende
If Cells(y, x).Value = n_kurz Then
If a_führer = 0 Then
Spalte = Cells(y, x).Address(rowabsolute:=False, Columnabsolute:=False)
Else
Spalte = Spalte & , & Cells(y, x).Address(rowabsolute:=False, Columnabsolute:=False)
End If
a_führer = a_führer + 1
If a_führer >= 2 Then
->Call Fehlermeldung(n_Führer, a_führer, Spalte)
x = x_ende + 1
End If
a_führer = 0
Spalte =
Next
Next
End Function
welchen ich mit
Code:
Private Sub WorkSheet_Change(ByVal Target As Excel.Range)
Call myFunction(2, 58, 12, 48, schulze, Schulze)
End Sub
danke für helfende Hilfe
mfg Billy / FiRe-X