Office: Daten als Tabelle formatieren VBA

Guten Abend ,
besteht die Möglichkeit ein Tabellenblatt mit einem VBA-Code als Tabelle zu formatieren ? Die Tabelle hat immer unterschiedliche viele Zeilen .
Ich habe es mit dem Makrorecorder probiert nur mein Problem ist wenn die Tabelle unterschiedlich viele Zeilen hat .

Hier mein Versuch:

Sub Makro2()
'
' Makro2 Makro
'

'
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$C$42"), , xlYes).Name = _
"Drucken"
Range("Drucken[#All]").Select
ActiveSheet.ListObjects("Drucken").TableStyle = "TableStyleMedium1"
End Sub

Danke

:)

 

benutze usedrange

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo Hajo ,

wo muss ich das einfügen beziehungsweise einsetzten .
Bin leider in VBA nicht wirklich fit.

Danke schon mal für die Unterstützung

 

Hi,
das sollte so reichen:
Code:

Selects sind in aller Regel entbehrlich, der Makro-Rekorder produziert da ziemlich viel überflüssiges.

 

Danke ReginaR funktioniert super.
Zum Select bin ich gerade am üben wie ich sowas vermeiden kann .
Es wäre schön wenn du oder egal wer sich meinen kompletten Code mal
ansehen könnte was ich da verbessern kann .
Wie gesagt VBA interessiert mich, bin aber noch im Recorder Modus .

Danke

Werde eine neues Thema erstellen .

 

Hi,
kannst Du gerne mal zeigen ...
Der Rekorder zeichnet eben jeden Klick auf. Beispiel: Will der User etwas in A1 geschrieben haben und klickt vorher die Zelle an, zeichnet der Rekorder auf:

Code:

reichen würde:
Code:

Also Select testweise wegnehmen und gucken was passiert, meistens das erwünschte.