Blätter anzahl ermitteln
08.10.2004 09:09:39
Martin
Ich habe ein für euch kleineres oder größeres problem ich habe in eier Excelmappe den bereich von A2:J2 horizontal und vertikal variert von mal zu mal.
Ich brauchte nun eine Makro das die Gesamtanzahl der Werte in der Spalte I ermittelt. Die Anzahl soll von I2 bis zum letzten wert der in Spale I steht ermittelt werden.
Die Anzahl soll anschließen durch 26 Dividiert werden.
Das ergebniss das Rauskommt soll die anzahl sein, für die Blätter die eingefügt werden sollen nach den folgenden Code
Sub cmd_Blätter_einfügen()
Dim iCounter As Integer
Dim iCount As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 40 Hier soll den die anzahl der benötigten blätter stehen an stelle der 40 die ermittelte anzahl
iCount = Worksheets.Count
Worksheets(iCount).Visible = True
Worksheets(iCount).Copy after:=Worksheets(iCount)
ActiveSheet.Name = "Page_" & iCounter + 1
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
.Properties("_CodeName").Value = ActiveSheet.Name
End With
Next iCounter
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub
Gruß sacht der Martin