Teil vom Makro überspringen
13.06.2016 08:13:42
Andreas
Ich wollte euch nochmals um Hilfe bitten. Ich habe in meiner Datei ein Makro, welches auch hervorragend funktioniert.
In Zelle I24 steht immer ein x.
Wenn dieses nicht eingetragen wird, soll innerhalb des Makros, ein Teil übersprungen werden.
Ich habe das Makro angefügt und den Teil, welcher übersprungen werden soll, eingegrenzt.
Ich hoffe das ist ersichtlich. Vielleicht hat jemand eine Idee und könnte mir dabei helfen, mein Problem zu lösen.
Für jegliche Hilfe wäre ich dankbar.
hier das Makro:
Sub A_neuen_Namen_speichern()
''Abfragebox für sicheres übernehmen
Dim strQuest As String
strQuest = MsgBox(" NAME___DATUM___GERÄTETYP ? ", vbYesNo + vbQuestion, " Datei _
wird gespeichert unter:")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub
'Datum fest übernehmen in Zelle AJ4
Range("AJ4").Select
Selection.Copy
Range("AJ4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'-------------------------ab hier
' Adressdaten übernehmen
Range("BO2:CG2").Select
Selection.Copy
Range("BO2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BO2:CG2").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Open Filename:= _
"Z:\Techniker\_Sprung, Andreas\Kundenadressen\Kundenadressen.xls"
Sheets("WE").Select
Range("A4").Select
' bleibt Makro hier stehen, ist Datei Kundenadressen geöffnet
ActiveSheet.Paste
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("A4").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("M3:M5").Select
'-------------------- bis hier
' Schaltbox löschen
ActiveSheet.Shapes("AutoShape 4").Select
Selection.Cut
' speichern Makro
ActiveWorkbook.SaveAs Filename:="Z:\Werkstatt\Arbeitsscheine\" & Range("I76") & ".xlsm"
End Sub
Andreas