mein Code:
Sub Blaetter_zaehlen()
' Blätter_zählen Makro
' Makro am 20.09.2004 von XXX aufgezeichnet
Dim wks As Worksheet
Dim intCounter As Integer
Dim Diagrammdaten As Range
For Each wks In Worksheets
intCounter = intCounter + 1
Next wks
If intCounter = 1 Then
MsgBox "Die aktive Arbeitsmappe hat 1 Arbeitsblatt!"
Else
Set Diagrammdaten = Range("C130"):
With Diagrammdaten.Value = " &intCounter& "
End With
MsgBox "Die aktive Arbeitsmappe hat " & _
intCounter & " Arbeitsblätter!"
End If
End Sub
Die schleife funktioniert gut, bis auf die Ablage des Wertes in der Zelle C130.
Was hab ich falsch gemacht, oder was habe ich vergessen ?
Danke für euere Hilfe.
Grüße Rainer