ich habe eine Exeltabelle, in der ich durch anklicken einer Zelle eine Userform aufrufe. Das klappt alles auch gut. Die Datei liegt auf einem Netzwerkserver. Bei 4 Clientrechnern klappt das auch so, bei 2 anderen aber nicht. Das es ein Netzwerkproblem ist glaube ich nicht, da die Datei ja fehlerfrei geladen wird.
Klicke ich in der geöffneten Datei auf eine entsprechende Zelle kommt die Fehlermeldung
"Fehler beim kompilieren" Projekt oder Bibliothek nicht gefunden! und [b4:h128] ist im Debugger blau unterlegt. Ich kenn mich zugegebenermaßen nicht so wirklich doll aus und bewerkstellige das meiste durch suchen und probieren und kopieren. Vieleicht kann mir jemand helfen. Vielen Dank
Die Syntax sieht folgendermaßen aus:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [b4:h128]) Is Nothing Then
lngZeile = Target.Row ' aktiveZeile in globale Variable schreiben
With Userform1
'.TextBox1 = Target.Offset(0, 0) ' Textbox 1 mit Wert aus Spalte a
'.TextBox2
.TextBox1 = Target.Offset(0, 18) ' Textbox 6 mit Wert aus Spalte a
.Show
End With
End If
If Not Intersect(Target, [k4:q128]) Is Nothing Then
lngZeile = Target.Row ' aktiveZeile in globale Variable schreiben
With UserForm2
'.TextBox1 = Target.Offset(0, 0) ' Textbox 1 mit Wert aus Spalte a
'.TextBox2
.TextBox1 = Target.Offset(0, 17) ' Textbox 6 mit Wert aus Spalte a
.Show
End With
End If
End Sub