custom strings

[white_flag]

Hello I like to do somethnig like this via VBA:

so I like an code that will do this (create text in the following order):

AAbmk11, BBbmk11, CCbmk11 CCbmk12 CCbmk13 CCbmk14 CCbmk15 CCbmk16
AAbmk12, BBbmk12, CCbmk17 CCbmk18 CCbmk19 CCbmk20 CCbmk21 CCbmk22
AAbmk13, BBbmk13, CCbmk23 CCbmk24 CCbmk25 CCbmk26 CCbmk27 CCbmk28 etc

my not working logic is looking like this

    For i = 11 To 20
           Name:="AAbmk" & i
           Name:="BBbmk" & i
        For j = 1 To 16
           Name:="CCbmk" & i + j - 1
        Next
    Next

 

[Sektor]

And what is "Name:="? Actually, it's a named parameter, but in your code there's no passing this parameter to Sub or Function.

 

[Weaver]

This will create the strings and insert them into the current worksheet.

Start off with a fresh worksheet before you run it.

Sub xxx()
    Dim s As String
    Application.ScreenUpdating = False
    k = 11
    For i = 11 To 20
           s = "AAbmk" & i & ", "
           s = s & "BBbmk" & i & ", "
        For j = 1 To 6
           s = s & "CCbmk" & k & ", "
           k = k + 1
        Next
        Cells(i - 10, 1) = Left(s, Len(s) - 2)
    Next
End Sub

 

[white_flag]

The Name:= is not immportant just the algorith is. This is not an complet sub, function etc ..

 

[Sektor]

Name:="AAbmk" & i is nonsense.

 

[white_flag]

Weaver, thx

I like to apply this to word:

but I do not know how to define this or where to put the s-string:

        For j = 1 To 6
            With ActiveDocument.Bookmarks
                .Add Range:=Selection.Range, Name:="CCBmk" & k + 1
            End With
        Next

 

[white_flag]

        For j = 1 To 6
            With ActiveDocument.Bookmarks
                .Add Range:=Selection.Range, Name:="CCBmk" & k
                k = k + 1
            End With
        Next

so, Weaver one more time thx