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.