vba schreibt in Bereich aber ich weiss nicht wo un

Private Sub Auto_Open()
Connect_Click
End Sub

Private Sub OPCConnect()

'Bei err GoTo Connect_Error

Dim ProgID As String, Node

'Verbindungsversuch

Set oServer = New OPCServer

oServer.Connect ActiveSheet.[ProgID], ActiveSheet.[Server]

'Verb ok, generiere browser und tag gruppen

[Status] = "Connected"

Set TagGroups = oServer.OPCGroups

TagGroups.DefaultGroupIsActive = True

Set TagGroup = TagGroups.Add("Tags")

TagGroup.UpdateRate = 1000

TagGroup.IsSubscribed = True

Set Tags = TagGroup.OPCItems

Tags.DefaultIsActive = True

Set OPCEvents = New OPCEvents

Set OPCEvents.Server = oServer

Set OPCEvents.LiveGroups = TagGroups

Set OPCEvents.LiveGroup = TagGroup

AddTags

Dim tst As Long, stst As String

stst = oServer.GetErrorString(tst)

Call Ausw

Exit Sub

Connect_Error:

[Status] = Err.Description

stst = stst

End Sub

Private Sub DisconnectOPC()

Set OPCEvents = Nothing

Set Tags = Nothing

Set TagGroup = Nothing

Set TagGroups = Nothing

Set oServer = Nothing

[Status] = ""

' mzi anzeigen löschen

Dim j%

For j = 2 To 20 'iAnzTags + 1

Cells(j, 9) = "Disconnected"

Cells(j, 10) = ""

Cells(j, 11) = ""

Cells(j, 12) = ""

Next j

'

End Sub

Private Sub AddTags()

Dim NoofRequests%, Tag() As String, Tagno() As Long, k%, j%, c% 'mzi % = as int

c = [tagname].Column

k = [Validity].Column

Range(Cells(2, k), Cells(10000, [Quality].Column)).ClearContents

NoofRequests = Application.CountA(Columns([tagname].Column)) - 1

If NoofRequests = 0 Then Exit Sub

ReDim Tag(NoofRequests), Tagno(NoofRequests)

For j = 2 To NoofRequests + 1

Tag(j - 1) = Cells(j, c)

Next

Tags.Validate NoofRequests, Tag(), TagErrors()

NoofTags = 0

For j = 2 To NoofRequests + 1

If TagErrors(j - 1) = 0 Then

NoofTags = NoofTags + 1

Cells(j, k) = "VALID"

Tag(NoofTags) = Cells(j, c)

Tagno(NoofTags) = j

Else

Cells(j, k) = "INVALID"

End If

Next j

iAnzTags = NoofTags

If NoofTags > 0 Then Tags.AddItems NoofTags, Tag(), Tagno(), TagServerHdl(), TagErrors()

End Sub