Microsoft Excel

Herbers Excel/VBA-Archiv

in zelle C springen | Herbers Excel-Forum


Betrifft: in zelle C springen von: Ralf
Geschrieben am: 09.01.2010 15:59:30

Hallo anbei habe ich ein Makro das mir ganz gut gefällt jetzt möchte ich es nur so abändern , das es nicht immer in A1 spingt Range("A1").Select
sondern in der jeweiligen reihe wo man in den gesperrten bereich betreten möchte in dei zelle C

also wenn ich in reihe 18 den gesperrten bereich einteren möchte soll er in C 18 springen

hoffe es ist verständlich

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'**************************************************
'* H. Ziplies                                     *
'* 08.01.03                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://home.media-n.de/ziplies/ *
'*                                                *
'**************************************************
'   ein bestimmter Bereich darf nicht ausgewählt werden
    Dim RaBereich As Range, RaZelle As Range
    ' Bereich der Wirksamkeit
    Set RaBereich = Range("i13:l27")
'    ActiveSheet.Unprotect
    For Each RaZelle In Range(Target.Address)
        If Intersect(RaZelle, RaBereich) Is Nothing Then
        Else
            Range("A1").Select
            Exit For
        End If
    Next RaZelle
'    ActiveSheet.protect
End Sub

  

Betrifft: AW: in zelle C springen von: Hajo_Zi
Geschrieben am: 09.01.2010 16:04:19

Hallo Ralf,

Range("C1" & ActiveCell.Row).Select

GrußformelHomepage


  

Betrifft: AW: in zelle C springen von: Ralf
Geschrieben am: 09.01.2010 16:15:28

Hallo

Danke für die schnelle Hilfe
Habe das makro umgeändert aber jetzt springt es wenn ich den gesperrten bereich in reihe 21 betreten möchte in 121 C

also immer + 100 woran kann das liegen ?


  

Betrifft: AW: in zelle C springen von: Hajo_Zi
Geschrieben am: 09.01.2010 16:23:13

Hallo Ralf,

das hätte Dir auch auffallen können es war die 1 stehen geblieben.

Gruß Hajo


  

Betrifft: Range("C" & ActiveCell.Row).Select von: robert
Geschrieben am: 09.01.2010 16:15:37




  

Betrifft: So klappt es Danke super von: Ralf
Geschrieben am: 09.01.2010 16:19:03

Ach so die 1 war bei C1 wohl zu viel Danke jetzt klappt es super Danke an euch beiden


Beiträge aus den Excel-Beispielen zum Thema "in zelle C springen"