Durch Druck auf Button in nächste Zelle springen

Question

Guten Abend

 , wen durch drücken eines Buttons die aktive Zelle gefüllt ist , kann dann automatisch ohne Maus und Pfeiltasten in die nächste Zelle gesprungrn werden z.B:

Zelle A1 wird duch Druck auf Button gefüllt

aktive Zelle springt auf B1

Zelle B2 wird durch Druck auf Button gefüllt

aktive Zelle springt auf C1

das gleiche mit A2 B2 C2 usw aber immer nur 3 zellen nebeneinander

MfG

Answer 1

Hallo,

ich nehme mal an, du hast einen CommandButton aus den ActiveX-Steuerelementen:

Private Sub CommandButton1_Click()

With ActiveCell
 If .Column < 3 Then
    .Value = "Hallo"
    .Offset(0, 1).Select
 End If
  If .Column = 3 Then .Value = "Hallo"
End With
End Sub

Das Makro funktioniert nur in den Spalten A bis C. Nach der Eingabe in Spalte C erfolgt kein Zeilenwechsel. Ich hoffe, ich habe dich richtig verstanden.

Gruß

M.O.

Answer 2

Hallo

woran erkenne ich in dem Makro das es nur in den Spalten A bis C funktioniert

und we kann ich die Spalten ändern

z.B:Spalte D , H und L

MfG

Answer 3

Hallo,

mit den IF-Abfragen

If .Column < 3 Then
..

If .Column = 3 Then .Value = "Hallo"

werden die Spalten festgelegt.

Für die Spalten D, H und L könnte der Code so aussehen:

Private Sub CommandButton1_Click()

With ActiveCell
   'Spalte D
   If .Column = 4 Then
      .Value = "jetzt bin ich in Spalte D"
      .Offset(0, 4).Select
   End If
   'Spalte H
   If .Column = 8 Then
      .Value = "jetzt bin ich in Spalte H"
      .Offset(0, 4).Select
   End If
   'Spalte L
   If .Column = 12 Then .Value = "und jetzt in Spalte L"
End With

End Sub

Gruß

M.O.

Answer 4

Hallo

Danke für die Erläuterung des Makros

So lernt man dazu

MfG

Answer 5

Hallo

Das Makro habe ich soweit verstanden . Besten Dank dafür

Wnn das Makro noch einen Zeilenumbruch könnte , wäre es für mich perfekt.

MfG