verzweifelt...
16.10.2004 11:51:51
bent
die verarbeitung klappt auch. nun das problem!
möchte einen range in ne neue mappe kopeieren
mein versuch sieht so aus:
variablen sind entsprechend deklariert...
Range(Cells(cnt1 - lauf + 1, 1), Cells(cnt1 - 1, 6)).Select
Set Bereich = Sheets("Tabelle1").Range(Cells(cnt1 - lauf + 1, 1), Cells(cnt1 - 1, 6))
Bereich.Copy
' hier soll er die neue mappe anlegen und ddie kopierte range einfügen
Application.SheetsInNewWorkbook = 7
Workbooks.Add
ActiveWorkbook.SaveAs ("C:\0callumbus\rechnungsmakros\Rechnungen\" & Kunde1)
'hier legt er ne excelmappe z.b. abartz.xls an oben kunde1
Sheets("Tabelle1").Activate
Range("A1").Select
Range("A2").Select
'Selection.Copy
Bereich.Paste
das alles funktioniert bis Range("A2").Select
beim einfügen gibt er dann ne fehlermeldung debuggen.. aus
seit 5 stunden häng ich do und seh kein land.
bestimmt für die cracks von euch nicht der rede wert
danke im vorraus, der verzweifelte