Hallo, ich bin neu in Makros, VBA und Kutools.

Ich führe ein Makro aus, um Text und dann Zahlen in separaten Zellen zu extrahieren. Die Kutools funktionieren gut, wenn ich sie ausführe, aber wenn ich denselben Prozess befolge, um ein Makro zu erstellen, erhalte ich eine Fehlermeldung:

Windows("KutoolsHelper.xlam").Visible = True

Anscheinend tritt hier der Fehler beim Debuggen auf.

Ich habe Kutoolsforexcel in Extras/Referenz hinzugefügt


Unter ConvetYardsToMiles()
'
' ConvetYardsToMiles-Makro
'

'
Spalten("I:I").Auswählen
Auswahl.Kopieren
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = Falsch
Auswahl.Kopieren
Selection.Insert Shift:=xlToRight
Spalten ("J:J").Auswählen
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = False
Spalten("K:K").Auswählen
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = False
ActiveWindow.SmallScroll ToRight:=1
Bereich ("L2").Auswählen
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Bereich ("L2").Auswählen
Selection.AutoFill Destination:=Range("L2:L832")
Bereich ("L2:L832").Auswählen
Spalten("L:L").Auswählen
Selection.NumberFormat = "0.00 Meilen"
Spalten("L:L").Auswählen
Spalten("L:L").GesamteSpalte.AutoFit
Selection.ColumnWidth = 14.91
Bereich ("L1").Auswählen
ActiveCell.FormulaR1C1 = "Meilen gefahren"
Bereich ("L2").Auswählen
ActiveWindow.SmallScroll ToRight:=-1
Spalten("H:K").Auswählen
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-4
Spalten("L:L").Auswählen
Mit Auswahl
.HorizontalAlignment = xlGeneral
.Vertikale Ausrichtung = xlCenter
.Ausrichtung = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = Falsch
Ende mit
Mit Auswahl
.HorizontalAlignment = xlCenter
.Vertikale Ausrichtung = xlCenter
.Ausrichtung = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = Falsch
Ende mit
Zeilen ("1:1").Auswählen
Bereich ("C1").Aktivieren
Selection.Font.Bold = Falsch
Selection.Font.Bold = True
Mit Selection.Font
.Name = "Arial"
.Durchgestrichen = Falsch
.Hochgestellt = Falsch
.Index = Falsch
.OutlineFont = Falsch
.Schatten = Falsch
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Ende mit
Mit Selection.Font
.Name = "Arial"
.Größe = 12
.Durchgestrichen = Falsch
.Hochgestellt = Falsch
.Index = Falsch
.OutlineFont = Falsch
.Schatten = Falsch
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Ende mit
Mit Auswahl
.HorizontalAlignment = xlCenter
.Vertikale Ausrichtung = xlCenter
.WrapText = Falsch
.Ausrichtung = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = Falsch
Ende mit
End Sub