Aaaaaargghhhh
19.01.2006 12:55:42
Harald
...röchel...
ich murks hier rum, dabei sind verbundene Zellen im Zielbereich.
Jeder der verbundene Zellen benutzt, gehört an der höchsten Rah aufgeknüpft.
Pech und Schwefel über den Schöpfer verbundener Zellen bei Microsoft.
Bitte den Mann mit dem Gesicht nach unten beerdigen. Falls er wieder aufwacht, gräbt er in die falsche Richtung.
Hol die Dinger bitte wech und überleg dir was Adäquates per Formatierung (keine bedingte)
Hier noch ein Versuch, wie man noch ans Datum kommt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zeile As Double
If Target.Value = "DATUM" Then Call test
If Not Intersect(Target, Range("D10:D29")) Is Nothing Then
Cancel = True
Range("D10:D29").Interior.ColorIndex = xlNone
Range("I3").Value = Year(Target)
Range("L3").Value = Month(Target)
Range("O3").Value = Day(Target)
Target.Interior.ColorIndex = 6
End If
End Sub
Private Sub test()
Dim zeile As Double
'Application.EnableEvents = False
For zeile = 0 To 19 'Anzahl der einzufügenden Tage
Cells(10 + zeile, 4) = Date + zeile
Next
'Application.EnableEvents = True
End Sub
oh Mann....sobald ich mich an meinem Schreibtisch wieder hochgezogen hab, wanke ich in die Kaffee-Ecke und versuch mich mit Koffein und Nikotin wiederzubeleben.
Gruss Harald