ich habe ein Makro, das eine Textdatei vom SAP im Excel bearbeitet. Am Ende soll per Messagebox die Frage kommen "Nochmals konvertieren?"
Ich kriegs nicht hin - kann mir jemand bitte helfen?
Das Ende sieht so aus - per Messagebox frage ich, ob die Sachnummer erstellt werden soll. Klicke ich auf JA, läuft das Makro bis zum Schluß durch. Klicke ich auf NEIN, wird das Makro beendet.
Hier der Code vom Ende
.
.
.
a = MsgBox("SACHNUMMER ERSTELLEN", 'Abfrage,ob Sachnummer vervollständigt werden soll
If a = vbNo Then Exit Sub
Range("H2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-4],FIND("" "",RC[-4]))"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-1],RC[-5])"
Range("J2").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=LEFT(RC[-4],FIND("" "",RC[-4])-1)"
Range("H2").Select
Selection.Copy
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("G:J").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
'_______________Spalten A bis F werden angepasst, Markierung auf A1______________
Columns("A:F").EntireColumn.AutoFit
Range("A1").Select
End Sub
Der Anfang sieht so aus
.
.
Sub Stueli_Standard()
'Formartiert TXT-File vom SAP (ZSTLF) und speichert die Stückliste als xlsx im Pfad "G:\DATENAUSTAUSCH_HELIX-ACAD\Stückliste" ab!
' Letzte Änderung: 20.01.2018
MsgBox ("KOPF- und FUßZEILE anpassen!!!!")
Dim oFileDialog As FileDialog
Dim strStartPath As String
strStartPath = "G:\DATENAUSTAUSCH_HELIX-ACAD\Stückliste"
Set oFileDialog = Application.FileDialog(msoFileDialogOpen)
With oFileDialog
.Title = "Hola, que tal? Welche Textdatei soll geöffnet werden?"
.InitialFileName = strStartPath & "\*.txt"
.AllowMultiSelect = False
If .Show = True Then
path = oFileDialog.SelectedItems(1)
End If
Workbooks.Open Filename:=path
End With
'_____________________Hier werden die Spaltenbreiten erstellt_____________________
Workbooks.OpenText Filename:=path, Origin:=28591, _
StartRow:=1, DataType:=xlFixedWidth, FieldIn................................
Ich hoffe ich hab es verständlich gemacht.
Danke mal