|
Hallo Werner,
ja, ich habe das gefunden, allerdings steht das in einem anderen Tabellenblatt:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Farbentest
If ActiveSheet.Name = "Farbentest" And ActiveCell.Row = 1 And ActiveCell.Row = 1 Then
For i = 1 To 57 'Das Farbmuster reicht von 0-56
Cells(i, 1).Value = "Cells(i, 1).Interior.ColorIndex: " & i - 1
Cells(i, 1).Interior.ColorIndex = i - 1
Next i
Columns(1).AutoFit
Columns(1).ColumnWidth = Columns(1).ColumnWidth - (Columns(1).ColumnWidth * 0.15)
End If
End Sub
Kann ich auf dein Code um entsprechend aktives Sheet ergänzt werden? Sorry, ich hab mit Sicherheit zuwenig Ahnung bzgl. VBA um das hier alleine richtig hinzubekommen....
Hier ein Schuss ins Blaue....
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveSheet.Name = "TerminListe"
If Target.Column = 1 Then
If Target.Row > 1 Then
If Not Target.Value = "" Then
Rows(Target.Row).Delete
End If
End If
End If
End Sub
Danke & Gruss,
Karl
|