Hallo Mr. K.
ich habe bereits meine benötigten Felder zugeordnet.
Allerdings bekomm ich jedesmal direkt ab der ersten Zeile eine Fehlermeldung:
"Laufzeitfeher '1004: Anwendungs- oder objektdefinierter Fehler" =(
Sub Kategorienamen_auslesen()
Set Suchrng = Sheets("Import Sheet").Columns("F4:F1000").SpecialCells(xlCellTypeComments)
Set VglSpalte = Sheets("Makros").Columns("E4:E77")
Suchrng.Cells(1).EntireColumn.Insert
For kat = 1 To VglSpalte.Cells(Rows.Count, 1).End(x1Up).Row
For Each c In Suchrng.Cells
If InStr(c.Comment.Text, VglSpalte.Cells(kat)) > 0 Then
c.Offset(0, -1) = VglSpalte.Cells(kat)
End If
Next c
Next kat
End Sub
|