Makro funktioniert nicht
Verfasst: Sa, 01.07.2023 09:57
Hallo, ich bin Anfänger und übe gerade Makros zu erstellen.
Ich habe eine Tabelle (Name: Tabelle 2) und ein Makro erstellt, d.h. Chat hat den Code erstellt.
Ich möchte, dass in der Spalte D eine fortlaufende Nummerierung von 1-299 stattfindet.
Ich erhalte die Fehlermeldung:Basic-Syntaxfehler, nachdem ich das Makro in der Tabelle ausgeführt habe.
Könnt ihr mal bitte drüberschaun, was könnte der Fehler sein ?
Viele Grüße Bea
Sub EinfügenNummern()
Dim oSheet As Object
Dim i As Integer
' Tabelle "Tabelle2" auswählen (ersetze "Tabelle2" mit dem Namen deiner Tabelle)
oSheet = ThisComponent.Sheets.getByName("Tabelle2")
' Debugging-Anweisung vor der Schleife
MsgBox "Vor der Schleife"
' Nummern von 1 bis 299 in Spalte D einfügen
For i = 1 To 299
oSheet.getCellByPosition(3, i).setValue(i)
Next i
End Sub
Ich habe eine Tabelle (Name: Tabelle 2) und ein Makro erstellt, d.h. Chat hat den Code erstellt.
Ich möchte, dass in der Spalte D eine fortlaufende Nummerierung von 1-299 stattfindet.
Ich erhalte die Fehlermeldung:Basic-Syntaxfehler, nachdem ich das Makro in der Tabelle ausgeführt habe.
Könnt ihr mal bitte drüberschaun, was könnte der Fehler sein ?
Viele Grüße Bea
Sub EinfügenNummern()
Dim oSheet As Object
Dim i As Integer
' Tabelle "Tabelle2" auswählen (ersetze "Tabelle2" mit dem Namen deiner Tabelle)
oSheet = ThisComponent.Sheets.getByName("Tabelle2")
' Debugging-Anweisung vor der Schleife
MsgBox "Vor der Schleife"
' Nummern von 1 bis 299 in Spalte D einfügen
For i = 1 To 299
oSheet.getCellByPosition(3, i).setValue(i)
Next i
End Sub