AW: Formular befüllen und drucken
24.02.2010 09:35:49
Reinhard
Hallo Leo,
in ein Standard modul z.B. Modul1, Kill kannst du in der Testphase benutzen um Blätter KundeX zu löschen.
Die X sind die Zeilennummern in Tabelle1.
Sub Auswerten()
Dim Zei As Long, Z As Long, wksF As Worksheet, wksK As Worksheet
On Error GoTo Hell
Application.ScreenUpdating = False
Set wksF = Worksheets("MUSTER XXXXXX")
Set wksK = Worksheets("Tabelle1")
With wksK
Zei = .Cells(Rows.Count, 1).End(xlUp).Row
For Z = 2 To Zei
wksF.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Kunde" & Z
With Worksheets("Kunde" & Z)
.Range("A3") = wksK.Cells(Z, 1)
.Range("A4") = wksK.Cells(Z, 2)
.Range("A6") = wksK.Cells(Z, 3)
End With
Next Z
End With
Hell:
Application.ScreenUpdating = True
End Sub
Sub kill()
Dim wks
Application.DisplayAlerts = False
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "Kunde*" Then wks.Delete
Next wks
Application.DisplayAlerts = True
End Sub
Gruß
Reinhard