Diese Arbeitsmappe enthält unten aufgeführten Code.
Dieser Code wird aber nur bis zum 2ten
Rows(i & ":" & i).Select
ausgeführt dann hält er an!
Warum? Meine vermutung ist ja das die Datei einen Fehler hat!
Ich hoffe aber,das ich irgendwelche Einstellungen vergeigt habe!
Ausser auf dem Tabellenblatt Rondo wird keine selectanweisung in der Form mehr angenommen!
Kann mir jemand helfen?
Private Sub CommandButton1_Click()
Application.EnableEvents = False
Application.DisplayAlerts = False
Pfad = Application.GetSaveAsFilename("Bestellung_ttmmjj.xls")
If Pfad = False Then
Else
For i = 11 To 53 Step 13
Sheets("Rondo").Select
Rows(i & ":" & i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
'hier stoppt er!
Rows(i & ":" & i).Select
'hier stoppt er
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next i
For f = 12 To 54 Step 13
Sheets("Rondo").Select
Rows(f & ":" & f).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Rows(f & ":" & f).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next f
Range("A1:B1").Select
Sheets("Tabelle1").Copy
ActiveWorkbook.SaveAs Filename:=Pfad, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
name1 = ActiveWorkbook.Name
a = Workbooks(name1).Worksheets("Tabelle1").Cells(1, 3).Value
Workbooks(name1).Worksheets("Tabelle1").Cells(1, 3).Value = a
a = Workbooks(name1).Worksheets("Tabelle1").Cells(3, 3).Value
Workbooks(name1).Worksheets("Tabelle1").Cells(3, 3).Value = a
a = Workbooks(name1).Worksheets("Tabelle1").Cells(4, 3).Value
Workbooks(name1).Worksheets("Tabelle1").Cells(4, 3).Value = a
a = Workbooks(name1).Worksheets("Tabelle1").Cells(5, 3).Value
Workbooks(name1).Worksheets("Tabelle1").Cells(5, 3).Value = a
a = Workbooks(name1).Worksheets("Tabelle1").Cells(6, 3).Value
Workbooks(name1).Worksheets("Tabelle1").Cells(6, 3).Value = a
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Rondo").Select
End If
Application.EnableEvents = True
End Sub