Office: In benachbarte Zeile springen

Hallo zusammen,

eigentlich habe ich ein recht simples Problem:
Ich will via Buttonklick von Zelle zu Zelle springen, als ausgangswert ist immer a1 makiert,
dann kommt mein Problem:

combobox1.text=activecell
eine zelle nach recht

textbox1=activecell
eine zelle nach rechts

textbox2=activecell
eine zelle nach rechts

textbox4=activecell
hier kommt aber nun nicht "eine zelle nach rechts", sondern [a2].select.
das obige soll mit einem klick auf den button ausgeführt werden.

anschließend muss die die selbe prozedur für die nachfolgenden zellen durchgeführt werden, wenn der button geklickt wird.

ich habe bereits die codes

Code:

Cells(Selection.Row + 1, Selection.Column).Select

,

Code:

Cells(ActiveCell.Row+1,ActiveCell.Column).Activate

ausprobiert, ohne erfolg.

Ich bitte um eure Hilfe.

 

Hi,

so richtig verstanden habe ich dein Anliegen nicht - weshalb musst du von Zelle zu Zelle springen?
Die Zelle rechts von der aktiven kannst du mit ActiveCell.Offset(0, 1) ansprechen.

Bis später,
Karin

 

Leider habe ich das etwas kompliziert erklärt, aber dein code hat mir sehr weitergeholfen.
wie komme ich nun an den anfang der nächsten zeile?

 

Habe es geschafft

ComboBox1.Text = ActiveCell
Selection.Offset(0, 1).Select
TextBox1 = ActiveCell
Selection.Offset(0, 1).Select
TextBox2 = ActiveCell
Selection.Offset(0, 1).Select
TextBox4 = ActiveCell

Selection.Offset(1, -3).Select

 

Weshalb machst du das so kompliziert? Das geht doch wesentlich einfacher:

Code:

   If ActiveCell.Column = 1 Then
      ComboBox1.Text = ActiveCell
      TextBox1 = ActiveCell.Offset(0, 1)
      TextBox2 = ActiveCell.Offset(0, 2)
      TextBox4 = ActiveCell.Offset(0, 3)
      ActiveCell.Offset(1, 0).Select
   End If

Bis später,
Karin