Überspringt einfach die Schleife
16.06.2017 08:11:17
Rene
mein Code führt nur die erste Zeile aus und springt dann gleich zum gruppieren der Reiter, aber die restlichen Überprüfungen führt er nicht aus.
Ich hoffe ihr könnt mir helfen?
Private Sub CommandButton5_Click()
Dim tabname As String
If IsNumeric(Range("M42").Value) And Range("O42").Value = "" Then
Range("O42").ClearContents
End If
If IsNumeric(Range("M43").Value) And Range("O43").Value = "" Then
Range("O43").ClearContents
End If
If IsNumeric(Range("M44").Value) And Range("O44").Value = "" Then
Range("O44").ClearContents
End If
If IsNumeric(Range("M45").Value) And Range("O45").Value = "" Then
Range("O45").ClearContents
End If
If IsNumeric(Range("M46").Value) And Range("O46").Value = "" Then
Range("O46").ClearContents
End If
If IsNumeric(Range("M47").Value) And Range("O47").Value = "" Then
Range("O47").ClearContents
End If
If IsNumeric(Range("M48").Value) And Range("O48").Value = "" Then
Range("O48").ClearContents
End If
If IsNumeric(Range("M49").Value) And Range("O49").Value = "" Then
Range("O49").ClearContents
End If
tabname = Sheets("Plan").Range("Q8").Value
Sheets(Array("Neues_Layout", "Plan")).Select
ChDir "L:\Verpackungsplanung\30_Verpackungsanweisung\30_04_VPA_geprueft"
ActiveWorkbook.SaveAs filename:="L:\Verpackungsplanung\30_Verpackungsanweisung\ _
30_04_VPA_geprueft\" & tabname & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Speichert Excel-VPA im Verzeichnis L:\Verpackungsplanung\30_Verpackungsanweisung\ _
30_04_VPA_geprueft\
ChDir "L:\Verpackungsplanung\30_Verpackungsanweisung\30_07_PDF_fuer_SAP"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
"L:\Verpackungsplanung\30_Verpackungsanweisung\30_07_PDF_fuer_SAP\" & tabname & ".pdf" _
_
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'Speichert PDF-VPA im Verzeichnis L:\Verpackungsplanung\30_Verpackungsanweisung\ _
30_07_PDF_fuer_SAP\
Sheets("Plan").Activate
End Sub
lg
René