Hallo,
habe folgendes Problem.
Ich lese mit diesem Code aus der Tabelle "Stückliste" Daten ein.
Nun möchte ich diese Tabelle auf einem Server ablegen,sodas mehrere Benutzer darauf zugreifen können. Der Pfad ist"C:\Users\ht\Documents\materialwirtschaft\db"
Kann mir hier jemand den Code ändern.
Ich bedanke mich schon mal im voraus.
Heino
Private Sub TextBox1_Change()
On Error Resume Next
Dim varRow
Dim rZellen As Range
Dim i As Integer
If TextBox1 <> "" Then
With Sheets("Stückliste")
varRow = Application.Match(TextBox1, .Columns(1), 0)
If IsNumeric(varRow) Then
i = 1
For Each rZellen In .Cells(varRow, 2).Resize(, 33)
i = i + 1 'Zähler für TextBox bis TextBox26
Me("TextBox" & i) = rZellen
Next rZellen
End If
End With
End If
If i < 2 Then
For i = 2 To 57
Me("Textbox" & i) = ""
Next i
End If