beim start von excel zellen ansteuern und einfärbe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ' Beim 1. Aufruf ist OldRange noch undefiniert If OldRange = "" Then OldRange = Target.Address OldColorIndex = Target.Interior.ColorIndex ' Setze Hintergrundfarbe der aktiven Selection auf Rot Target.Interior.ColorIndex = 5 Else ' Setze alten Range auf alte Farbe If Range(OldRange).Interior.ColorIndex = 5 Then Range(OldRange).Interior.ColorIndex = OldColorIndex End If OldColorIndex = Target.Interior.ColorIndex ' Merke mir aktuellen Adresse für nächsten Aufruf OldRange = Target.Address ' Setze Hintergrundfarbe der aktiven Selection auf Rot Target.Interior.ColorIndex = 5 End If End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Static OldIndex As Integer Static OldCell As Range On Error Resume Next OldCell.Interior.ColorIndex = OldIndex If Not OldCell Is Nothing Then OldIndex = Target.Interior.ColorIndex End If Target.Interior.ColorIndex = 5 Set OldCell = Target End Sub

hallo erich
wo ich ihn gefunden habe , weiss ich leider nicht mehr.
bei mir funzt er aber, ich habe ihn in "diese arbeitsmappe" eingefügt
und dann lief er.
bei"http://spotlight.de/zforen/mse/t/forum_mse_1.html" habe ich auch die antwort auf mein problem gefunden:
Keine Angabe Re: Wie kann man per Tabulator bestimmte Zellen ansprechen???

Hallo,
in ThisWorkbook:


Private Sub Workbook_Open()
Application.OnKey "{TAB}", "JumpToNextCell"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{TAB}", ""
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

In ein Modul:

Public Sub JumpToNextCell()
If ActiveCell.Address = "$B$3" Then
Range("B7").Select
ElseIf ActiveCell.Address = "$B$7" Then
Range("B11").Select
Else
Range("B3").Select
End If
End Sub

Code eingefügt mit

Wenn es für B3->B7 irgendeine Regel gibt(immer 4 Zeilen) oder so, kannst du natürlich
einen Algorithmus verwenden wie:

Public Sub JumpToNextCell()
If ActiveCell.Column = 2 Then
If ActiveCell.Row Mod 4 = 3 Then
Cells(ActiveCell.Row + 4, 2).Select
Else
Cells(3, 2).Select
End If
End If
End Sub

Grüße,
André

Geschickt von Andre R am 17.09.2003 um 12:20:32
Bezogen auf eine Nachricht von Erich Honig vom 17.09.2003 um 11:36:05

mit ganz viel rumprobieren, habe ich es geschafft.
ich sage nur geil, einfach geil,wie du und die anderen leutz es schaffen probleme wie meines zu lösen und ihr wissen bereitwillig anderen mitzuteilen

danke

andreas

Beliebteste Forumthreads (12 Monate)

beim start von excel zellen ansteuern und einfärbe

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

beim start von excel zellen ansteuern und einfärbe

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread