3
« am: September 16, 2018, 15:45:10 Nachmittag »
Habe was Probiert läuft er nicht so wie ich es mir Denke
Private Sub CommandButton_Audit_Click()
Dim i As Integer
Dim mySheet As String
mySheet = ComboBox1.Value
For i = 1 To 3
If Me.Controls("Audit" & i).Text Then
With Worksheets(mySheet)
.Cells(8, Cells(8, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
End With
End If
Next i
For i = 4 To 6
If Me.Controls("Audit" & i).Text Then
With Worksheets(mySheet)
.Cells(14, Cells(14, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
End With
End If
Next i
End Sub
bin ich mit den Code einigermaßen auf de richtigen weg oder???