Makro Code - Erweiterung If - Abfrage

Question

Hallo

Ich nutze seit kurzem das hier gefundene Makro

Private Sub Command Button_Click()
With ActiveCell
   .Value = T18.Caption
   .Offset(0, 1) = 54
   If .Column < 6 Then
     .Offset(0, 2).Select
    Else
     .Offset(1, -4).Select
   End If
End With

End Sub

jetzt wollte ich das Makro erweitern , was mir aber durch fehlende VBA - Kenntnisse nicht gelungen ist .

wie kann man den Code erweitern das das neben den ersten 3 Zeilenpaaren noch ein viertes Zelle J und K ,ein fünftes Zelle L und M und ein sechstes Zelle N und O bei Eingabe aktiviert werden und danach erst der Zeilenumbruch erfolgt

Danke

Answer 1

Hallo,

meinst du das so:

Private Sub CommandButton1_Click()
With ActiveCell
   .Value = T18.Caption
   .Offset(0, 1) = 54
   
Select Case .Column
  Case Is < 6
     .Offset(0, 2).Select
  Case Is = 6
     .Offset(0, 4).Select
  Case 9 To 12
      .Offset(0, 2).Select
  Case Is = 14
      .Offset(1, -12).Select
End Select
   
End With
End Sub

Gruß

M.O.