Hallo an die Experten,
ich habe in Excel einen Schulungsplan entwickelt und stehe nun vor einem kleinen Problem. Ich habe den Code unten geschrieben. Dieser soll bewirken, dass ein ausgewählter Bereich in einem neues Excel-Dokument geöffnet und gleichzeitig das neue Dokument in einem variablen Pfad (lt. Zelle K2) gespeichert wird. Wenn es den Dateinamen in diesem Pfad bereits gibt, soll eine Nummer angehangen werden. Das klappte auch alles. Nun habe ich aber irgendwas gecrasht/verschlimmbessert, sodass mir ein "End With" Fehler angezeigt wird. Ich finde aber den Fehler nicht, vielleicht kann mir jemand helfen?
CodeTags korrigiert ~VaporiZed
ich habe in Excel einen Schulungsplan entwickelt und stehe nun vor einem kleinen Problem. Ich habe den Code unten geschrieben. Dieser soll bewirken, dass ein ausgewählter Bereich in einem neues Excel-Dokument geöffnet und gleichzeitig das neue Dokument in einem variablen Pfad (lt. Zelle K2) gespeichert wird. Wenn es den Dateinamen in diesem Pfad bereits gibt, soll eine Nummer angehangen werden. Das klappte auch alles. Nun habe ich aber irgendwas gecrasht/verschlimmbessert, sodass mir ein "End With" Fehler angezeigt wird. Ich finde aber den Fehler nicht, vielleicht kann mir jemand helfen?
Visual Basic-Quellcode
- Sub speicher1()
- Dim Pfad As String
- Dim sFileSave As String
- Dim i As Integer
- Range("k1").Copy
- Range("K2").Value = _
- Replace(Replace(Range("K1").Text, Chr(10), ""), Chr(13), "")
- Workbooks.Add
- With ThisWorkbook.Sheets("Teilnehmerliste")
- .Range("A2:G100").Copy
- With Range("A1")
- .PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- .PasteSpecial Paste:=xlValues
- .PasteSpecial Paste:=xlPasteFormats
- End With
- Application.CutCopyMode = False
- ActiveSheet.Name = .Name
- Pfad = "F:\81 Projekte & Innovation Lab\41 Schulungskonzept\07 Schulungsprotokolle\" & .Range("K2").Value
- i = 1
- If Dir(Pfad & ".xlsx") <> "" Then
- sFileSave = Pfad & "_" & i & ".xlsx"
- Do While Dir(sFileSave) <> ""
- i = i + 1
- sFileSave = Pfad & "_" & i & ".xlsx"
- Loop
- ActiveWorkbook.SaveAs sFileSave
- MsgBox "Die Teilnehmerliste wurde wie folgt abgelegt: " & sFileSave
- Else
- ActiveWorkbook.SaveAs Filename:=Pfad & ".xlsx"
- MsgBox "Die Teilnehmerliste wurde wie folgt abgelegt: " & Pfad & ".xlsx"
- End With
- End Sub
CodeTags korrigiert ~VaporiZed
