Hallo,

ich suche eine Lösung für folgendes Problem:


ich möchte in Excel auf einer Arbeitsmappe einen Range umbenennen (in Table1), den ich durch einen For/Next Schleife ermitteln möchte, weil sich die Datenbasis ändert (also die Anzahl der Spalten/Zeilen mit Einträgen).

Sub Macro1()
Dim i, j As Long
With wsDaten
.Range("B6").Select

For i = 1 To ActiveSheet.UsedRange.Rows.Count 'letzte Zeile
For j = 1 To ActiveSheet.UsedRange.Cells.Count 'letzte Spalte
Next j
Next i

End With

und jetzt möchte ich dem UsedRange einen Namen geben (Table1):
ActiveSheet.ListObjects.Add(xlSrcRange, Range("HIER MÜSSTE JETZT DER BEREICH STEHEN"), , xlYes).Name = _
"Table1"
Range("Table1[#All]").Select
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium2"
ActiveWindow.SmallScroll Down:=-21
End Sub



Ich würde mich über eure Hilfe freuen
DANKE

oderDie Sache mit UsedRange ist aber ungenau, sobald du ungenutzte leere Zeilen oder Spalten am Ende des Bereichs hast.
Besser ist eine Konstruktion wie:

Oder geht es dir darum einen Namen für den Adressbereich zu definieren?