Hallo Zusammen,
ich möchte mit dem folgenden Code Teil eine Tabelle aus einem festgeletegn Rage heraus erstellen.
Dim tbl As ListObject
Dim rng As Range
Set rng = .Range(.Cells(14, 2), .Cells(LastRow, LastColumn))
Set tbl = .ListObjects.Add(xlSrcRange, rng, xlYes)
tbl.TableStyle = "TableStyleMedium15"
Das erstellen der Tabelle funktioniert an sich, nur egal ob ich den Parameter xlYes oder xlNo oder xlGuess verwende, wird mir stets eine Blanko Zeile Als Tabellenüberschrift erstellt. In dem ausgewählten Range sind allerdings Überschriften bereits enthalten.
Vielen Dank.