Hallo zusammen,
Ich habe ein WordDokument mit 1000 aufgelisteten Spielen (Titel "Arial" und Regeln "Calibri"). In demselben Dokument habe ich eine Tabelle eingefügt.
Alle diese Spiele will ich nun mit meinem Makro1 in diese Tabelle einfügen: Jedes Spiel in eine eigene Zeile, den Titel in der Spalte1 und dessen Regeln in die Spalte2.

Mein Makro:
-Wählt den "Arial"-Titel aus, schneidet ihn aus und fügt diesen in die Zelle (1,1)
-...nun wird der "Calibri"-Text ausgewählt, schneidet ihn aus und fügt diesen in die Zelle (1,2)
-...usw.

Leider gibt's noch einen Fehler zu beheben: Bereits wenn die Variable den Wert 2 (Zeile 2) bekommen sollte, wird im Makro der Variablen ColonnaTab und der Variable RigaTab nicht der richtige Wert übergeben.
Was mache ich falsch?
Grazie Berni

Sub Macro1()
'
' Macro1 Macro
   
Dim RigaTab As Integer
Dim ColonnaTab As Integer
Dim TestoTagliato As String
   
ColonnaTab = 1
RigaTab = 1
TestoTagliato = "Berni"

Do While TestoTagliato <> ""
    
    If ColonnaTab = 3 Then
        ColonnaTab = 1 & RigaTab = RigaTab + 1
        GoTo Avanti
        Else
        
Avanti:

        With Selection
            'Evidenziare tutto finché cambia il carattere
            .SelectCurrentFont
            'TestoTagliato = .SelectCurrentFont
            TestoTagliato = Selection
      
            'Tagliare quello che è stato evidenziato
            Selection.Cut
        End With
        
            'Inserire il testo nella 1 Tabella nella prima cella del documento attivo
            If ActiveDocument.Tables.Count >= 1 Then
        
                With ActiveDocument.Tables(1).Cell(RigaTab, ColonnaTab).Range
                    .Delete
                    .InsertAfter Text:=TestoTagliato
                End With
        
            End If
        
        End If
        
ColonnaTab = ColonnaTab + 1

Loop

End Sub