Eigenschaft/Methode
06.01.2004 10:15:54
Jürgen
ich habe hier ein Makro das bisher immer funktionierte, jetzt kommt aufeinmal der Fehler -438- in der Zeile 3.
Die Value-Eigenschaft findet Excel nicht mehr,
kann mir jemand helfen??
Jürgen
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("J1") = Calendar1.Value
Dim Datum1 As Date ' Variablen deklarieren.
Dim Ausgabe As String
For Each zelle In Range(Cells(3, 11), Cells(3, 89))
zelle.Offset(-1, 0).Value = "Q " & DatePart("q", zelle)
Next
Unload Me
Datumlinien.Linienformat
Sheets("Ansicht").Select
Dausrichten.Dschleife
Farbe.LinienAnsicht
Sheets("BW").Select
End Sub
Anzeige