habe ein kleines Problem.
Ich möchte Daten über ein UF in eine Tabelle einfügen, ändern oder löschen. Klappt auch ganz gut, nur möchte ich das Tabellenblatt in einer externen Excel-Datei und in einem anderen Verzeichnis ablegen und entsprechend bearbeiten. Das Datenblatt soll sich auf dem Server unter W:\Dispo\ befinden, das UF in einer Excel-Datei auf einem
Client.
Grüße Dirk
Hier der momentane Code, mit dem es lokal klappt :
Sub CommandButton1_Click() 'AuftragsNr Suchen
Application.ScreenUpdating = True ' Bildschirmupdate Ausschalten
Set Frm1 = DatensatzAendern
With Frm1
Sheets("NWTabelle_aktuell").Select
Range("A:A").Select
On Error GoTo Fehler
Selection.Find(What:=.TBA.Value, _
after:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False).Activate
.TBA.Value = ActiveCell.Offset(0, 0).Value
.TBB.Value = ActiveCell.Offset(0, 1).Value
.TBC.Value = ActiveCell.Offset(0, 2).Value
.TBD.Value = ActiveCell.Offset(0, 3).Value
.TBE.Value = ActiveCell.Offset(0, 4).Value
.TBF.Value = ActiveCell.Offset(0, 5).Value
.TBG.Value = ActiveCell.Offset(0, 6).Value
.TBH.Value = ActiveCell.Offset(0, 7).Value
.TBI.Value = ActiveCell.Offset(0, 8).Value
.TBJ.Value = ActiveCell.Offset(0, 9).Value
.TBK.Value = ActiveCell.Offset(0, 10).Value
.TBL.Value = ActiveCell.Offset(0, 11).Value
.TBM.Value = ActiveCell.Offset(0, 12).Value
.TBN.Value = ActiveCell.Offset(0, 13).Value
'.TextBox15.Value = ActiveCell.Offset(0, 14).Value
'.TextBox16.Value = ActiveCell.Offset(0, 15).Value
'.TextBox17.Value = ActiveCell.Offset(0, 16).Value
'.TextBox18.Value = ActiveCell.Offset(0, 17).Value
'.TextBox19.Value = ActiveCell.Offset(0, 18).Value
'.TextBox20.Value = ActiveCell.Offset(0, 19).Value
'.TextBox21.Value = ActiveCell.Offset(0, 20).Value
'.TextBox22.Value = ActiveCell.Offset(0, 21).Value
'.TextBox23.Value = ActiveCell.Offset(0, 22).Value
'.TextBox24.Value = ActiveCell.Offset(0, 23).Value
'.TextBox25.Value = ActiveCell.Offset(0, 24).Value
'.TextBox26.Value = ActiveCell.Offset(0, 25).Value
'.TextBox27.Value = ActiveCell.Offset(0, 26).Value
'.TextBox28.Value = ActiveCell.Offset(0, 27).Value
'.TextBox29.Value = ActiveCell.Offset(0, 28).Value
Exit Sub
Fehler:
MsgBox "Die Lagernummer " & _
.TBA.Value & " konnte nicht gefunden werden !"
End With
End Sub