Excel 2010 VBA: Makro um Bereich in Tabelle zu konvertieren

Question

Hallo Forumler,

ich möchte in einem Arbeitsblatt mit Hilfe eines Makros einen Bereich in eine Tabelle umwandeln und diese mit einem Namen versehen. Aufgrund fehlender VBA-Kenntnisse (Anfänger) komme ich nicht weiter, daher die Frage an Euch Spezialisten.

Den Bereich der umgewandelt werden soll rufe ich mit

"Sheets("Tabelle1").Range("A11").CurrentRegion.Copy" auf.

Kann mir bitte jemand weiterhelfen?

Answer 1

Hallo,

das folgende Makro gehört ein Standard-Modul deiner Arbeitsmappe:

Sub tabelle()
Dim strTabelle As String
Dim loTabelle As ListObject
Dim lngZaehler As Long

'Adresse der gewählten Tabelle in Variable schreiben
strTabelle = ActiveCell.CurrentRegion.Address

'Für Nummerierung der Tabelle prüfen, wieviele Tabellen es bereits im Arbeitsblatt gibt
For Each loTabelle In ActiveSheet.ListObjects
lngZaehler = lngZaehler + 1
Next
'Zähler für neue Tabelle um 1 erhöhen
lngZaehler = lngZaehler + 1

'ausgewählten Bereich in Tabelle umwandeln
ActiveSheet.ListObjects.Add(xlSrcRange, Range(strTabelle), , xlYes).Name = "Tabelle" & lngZaehler

End Sub

Du musst den Cursor nur in eine Zelle des Bereichs setzen, der in eine Tabelle umgewandelt werden soll und das Makro ausführen.

Gruß

M.O.