Zeile erzeugen
11.01.2016 15:00:26
Fra
ich habe ein vorhandenes Excel, bei dem durch Doppelklick auf bestimmet Zellen eine Zeile eingefügt wird, klappt auch alles prima. Aktuell wird der Inhalt bzw. Format von der Zeile eingefügt auf die ich dpppeklicke, jetzt soll aber der Inhalt bzw Format der Zeile oberhalb der Zeile eingefügt werde, auf die ich doppelklicke. Könnt Ihr mir da helfen wie ich die Routine modifiziere ?
Weiterhin interessiert mich wie ich aus einer RGB Farbe die Target.Interior.ColorIndex rausbekomme, also ich möchte nur wissen, welge RGB Wert (255,255,255) der Target.Interior.ColorIndex enstpricht.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
_
_
As Boolean)
' Einfügen von Zellen, Zeile, usw. je nach Farbe und Sheet
Dim myRow, myCol As Integer
' Dim i As Integer
myRow = Target.Row
myCol = Target.Column
' Einfach die aktuelle Zeile eines nach untern kopieren und alles bis auf Formeln löschen
If Target.Interior.ColorIndex = 40 Then
Cancel = True
Target.EntireRow.Copy
Cells(myRow + 1, 1).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
On Error Resume Next
Cells(myRow + 1, 1).EntireRow.SpecialCells(xlCellTypeConstants, 23).Value = ""
Cells(myRow + 1, myCol).Select
End If
End Sub
Vielen Danke für Eure Hilfe
Fra