Änderung eines Makros
05.03.2009 16:38:37
Dirk
habe ein kleines Problem...hoffe ich!! Folgendes Makro habe ich geschrieben bekommen, alles funzt!! So nun möchte ich die Datei (OP-Liste) die auf dem lokalen Server liegt auf dem Server verfrachten Pfad:
\\Logi-srv\d\Logisped
Wie muss dieses Makro abgeändert werden, hatte versucht den Pfad zuändern ohne erfolg...VIELEN DANK im voraus DIRK
*************************************************************
' StartDateneingabe in OP-Liste Makro
' Makro am 09.07.1997 von ADV aufgezeichnet
'
'
Dim i As Integer
Dim k As Integer
Dim Rechnungsnr As String
Dim Rechnungsdatum As Date
Dim Endbetrag As Currency
Dim Rechnungsempfänger As String
Dim Positionsnummer As String
Dim PLZ As String
Dim Ort As String
Dim Strasse As String
Dim Kundennummer As String
Sub Start_Dateneingabe()
'Zuweisen der Zellinhalte an die Variablen
Rechnungsnr = Range("F20").Value
Rechnungsdatum = Range("G20").Value
Endbetrag = Range("F48").Value
Rechnungsempfänger = Range("A11").Value
Positionsnummer = Range("A28").Value
PLZ = Range("A14").Value
Ort = Range("B14").Value
Strasse = Range("A12").Value
Kundennummer = Range("H20").Value
'Wechsel auf OP-Liste
Const LW = "c:\"
Const Pfad = "c:\logisped"
ChDrive LW
ChDir Pfad
Workbooks.Open "OP-Liste"
Workbooks("OP-Liste").Activate
'Einlesen der Zähler aus der Liste
i = Range("O1").Value
k = Range("O2").Value
If i
'
Sub SuchenDialogAnzeigen()
'Set frm = UserForm1
'With frm
' .TextBox7.SetFocus
' .TextBox1.Enabled = False
' .TextBox2.Enabled = False
'.TextBox3.Enabled = False
'.TextBox4.Enabled = False
'.TextBox5.Enabled = False
' .TextBox6.Enabled = False
' .Show
'End With
'End Sub
Sub MehrereSpaltenInEine()
Dim s As String
Sheets("Tabelle1").Activate
Range("A1").Select
Do Until ActiveCell.Value = ""
s = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value
ActiveCell.Value = s
ActiveCell.Offset(1, 0).Select
Loop
Range("B:B").Clear
End Sub