AW: Formate mitnehmen z.B. Zeilenhöhe, Druckbereic
22.02.2006 14:30:29
petra
Hallo Joseph,
dein tipp hat mir weitergeholfen. allerdings hat er ein kleines problem. Und zwar funktioniert der makro solange bis i = 49 ist.
Danach kommt der debugger, der mir anzeigt, dass der Kopiervorgang nicht durchgeführt werden kann.
gibt es da eine begrenzung an durchläufen?
bzw. wie kann ich das problem lösen, dass mir der makro komplett durchläuft?
hier der makro:
Public
Sub Auswertung()
Dim oldWB As Workbook, newWB As Workbook
Dim bFound As Boolean
bFound = False
Application.ScreenUpdating = False
Set oldWB = ActiveWorkbook
For i = 1 To 65535
If oldWB.Sheets(1).Cells(i, 4).Value = "" Then Exit For
oldWB.Sheets(1).Cells(3, 1).Value = oldWB.Sheets(1).Cells(i, 4).Value
szName = oldWB.Sheets(1).Cells(i, 4).Value
If i = 1 Then
For x = 1 To Workbooks.Count
If Workbooks(x).Name = "191-060214-RB Personaleinsatz je Filiale.xls" Then
bFound = True
Exit For
End If
Next x
If Not bFound Then
MsgBox "Ergebnisdatei nicht öffen bzw. nicht gefunden! Bitte öffnen/erstellen!"
Exit Sub
Else
Set newWB = Workbooks(x)
End If
Else
'newWB.Sheets.Add after:=newWB.Sheets(newWB.Sheets.Count)
'newWB.Sheets(newWB.Sheets.Count).Name = szName
End If
' an der stelle kannst du den makro aufrufen
oldWB.Sheets(1).Cells(3, 1).Value = szName
Application.CalculateFull
' damit wird das change event des entsprechenden sheets ausgelöst
' und die daten werden aktualisiert
' der das ausgabesheet befüllt
oldWB.Sheets(3).Copy after:=newWB.Sheets(newWB.Sheets.Count)
newWB.Sheets(newWB.Sheets.Count).Name = szName
newWB.Sheets(newWB.Sheets.Count).Cells.Copy
newWB.Sheets(newWB.Sheets.Count).Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
newWB.Sheets(newWB.Sheets.Count).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
newWB.Save
newWB.Close
Application.ScreenUpdating = True
End Sub
wenn i = 49 ist
hält er hier an
oldWB.Sheets(3).Copy after:=newWB.Sheets(newWB.Sheets.Count)
warum? bzw. wie kann ich das ändern?
lg
petra