SOS bei Code Änderung
19.07.2007 08:09:36
ZekA
In Zelle C3 steht 06-07, D3 07-08 usw bis Zelle Z3 da steht 05-06
In Zelle C5 bis Z5 ist es so formatiert dass wenn ich Zellen markiere z.B. C5 - E5 und mit der rechten maustaste klicke, dann werden die Zellen in Farbe markiert und in der Zelle steht dann die Uhrzeit drin, in dem Fall 06:00-09:00.
Wie kann ich die Formatierung ändern dass C5 vier unter Spalten hat und die andern Zellen auch.
So dass wenn ich dann die dritte unterspalte von C5 - E5 markiere, rechts klicke, dass dann 06:45 - 09:00 steht.
Und wenn ich die zweite unterspalte markiere es dann 06:30 - 09:00 steht.
Und wie muss ich dass ganze im Code ändern bzw. erweitern damit dass funktioniert?
Der Code ist:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rC As Range
Dim lCnt As Long
Dim lx As Long
Dim lxF As Long
If Target.Column 26 Or Target.Row 0 And lCnt > 0 Then
ActiveSheet.Cells(Target.Row, lxF).Value = Format(lCnt, "0") & " Stunden"
ActiveSheet.Cells(Target.Row, lxF).Font.ColorIndex = ActiveSheet.Cells(Target.Row, 1).Font. _
ColorIndex
ActiveSheet.Cells(Target.Row, 27) = ActiveSheet.Cells(Target.Row, 27) + lCnt
End If
lCnt = 0
Else
If lCnt = 0 Then lxF = lx
lCnt = lCnt + 1
End If
Next lx
Cancel = True
End Sub
Vielen Dank für die Komplexe Hilfe!!!