Hallo zusammen,
ich bin Azubi im ersten Lehrjahr und soll ein bestehendes Makro anpassen. Leider ist der ursprüngliche kollege, der das Makro angelegt hat nicht mehr in der Firma und auch sonst keiner der Kollegen ist im VBA fit :(
Wir kopieren mit dem Makro csv von einem Verzeichnis auf ein Netzlaufwerk, dort liet ein Programm die Daten in die Datenbank einer Software ein.
Nun werden jedoch in der Spalte C die Daten zukünftig in einem anderen Wert geliefert und müssten von uns / 1000 dividiert werden. Ich habe leider nichts gefunden um das selber hin zu bekommen, da ich ungern das komplette Makro abändern möchte. Ich hoffe nun auf Hilfe hier im Forum und möchte mich auch im Vorfeld entschuldigen, falls meine Frage dumm und überflüssig erscheint. Ich habe jedoch bereits versucht und bin gescheitert.
Vielen Dank
Schöne Grüße
Liogh
Hier der Teil im Makro, der mit 1000 dividiert werden sollte, bevor dieser selektiert wird.
Columns("C:C").Select
Selection.NumberFormat = "0"
Hier das Makro
Sub Makro1()
' Variablen erstellen
Dim Rueckgabewert, Text, title, Default, message, MyValue, quelldatei
Dim WB
Probiersnochmal:
message = "Bitte Lagerort der Datei verbrauch.csv öffnen"
title = "Lastgang Rohdaten"
Default = "J:\"
'Open the file in MyValue
MyValue = InputBox(message, title, Default)
quelldatei = MyValue + "\verbrauch.csv"
If Len(Dir(quelldatei)) = 0 Then
MsgBox "Datei nicht gefunden"
GoTo Ende
Else
On Error Resume Next
Set WB = Workbooks.Open(quelldatei, Local:=True)
On Error GoTo Ende
If WB Is Nothing Then MsgBox quelldate & " ist nicht vorhanden", vbCritical
End If
'Workbooks.Open Filename:=MyValue + "\verbrauch.csv", :=Local
'On Error GoTo open_error_Meldung
Columns("A:A").Select
Selection.NumberFormat = "dd.mm.yyyy"
Columns("B:B").Select
Selection.NumberFormat = "hh:mm;@"
Columns("C:C").Select
Selection.NumberFormat = "0"
message = " Daten speichern als" & Chr(13) & "F = Fischergasse" & Chr(13) & "B = Bahnhofstraße" & Chr(13) & "X = Vorgang abbrechen"
title = " Speichern unter"
|