2 kleine Makro fragen.
26.07.2005 14:45:24
Ben
folgendes Makro ist der Ausgangspunkt:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Interior.ColorIndex
Case 15
Target.Interior.ColorIndex = 4
Target.Value = "J"
Cells(1, 1).Select
Case 4
Target.Interior.ColorIndex = 6
Target.Value = "K"
Cells(1, 1).Select
Case 6
Target.Interior.ColorIndex = 3
Target.Value = "L"
Cells(1, 1).Select
Case Else
Target.Interior.ColorIndex = 15
Target.Value = ""
Cells(1, 1).Select
End Select
End Sub
Funktioniert so weit einwandfrei nur würd ich gern wissen:
1. gibts ne Möglichkeit einfach deselect zu sagen anstatt select A1?
Hintergrund ist das er ne Eingabe erwartet nach nem Doppelclick.
2. Wie bring ich es hin das es nur auf eine bestimmte Spalte ab einer
gewissen Zeile funktioniert? HAbs mit 2 if Abfragen auf Target getestet
aber nicht hinbekommen.
Danke
Ben