Hallo,
habe folgendes Problem.
Mit dem aufgeführten Code lese ich Daten aus dem Sheet"Stückliste" ein.
Momentan liegt dieses Blatt mit in der Datei.
Ich möchte dieses Blatt, da mehrere User darauf zugreifen können auf dem Server ablegen.
Und zwar auf: U\ablage\ht\db\Stückliste
Komme einfach nicht weiter.
Kann mir hier jemand den Code dafür schreiben oder mir einen Tip geben.
Sage schon mal Danke
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
|