|
Hallo ich brauche nochmal eure Hilfe und zwar folgendes Szenario.
Ich kopiere mit hilfe eines Codes bei dem mir gestern bereits hier im Forum super geholfen wurde alle Tabellenblätter auf ein Gesamtblatt.
Die Tabellenblätter enthalten Tabellen die immer wieder erweitert oder verkleinert werden.
Mit Hilfe des nachfolgenden VBA Codes erzeuge ich dann aus den Daten, die in das Gesamtblatt übernommen wurden, wieder eine Tabelle.
Sub MakroTabelle()
'
' MakroTabelle Makro
'
'
Range("A1:E7").Select
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:E7"), , xlYes).Name = _
"Tabelle4"
Range("Tabelle4[#All]").Select
ActiveSheet.ListObjects("Tabelle4").TableStyle = "Tabellenformat 1"
Range("B7").Select
End Sub
Leider komm ich nicht dahinter, wie ich nun Range variabel gestalten kann, dass er immer die gesamten Daten zu einer Tabelle zusammenfügt und eben nicht nur den definierten Bereich.
Ich hoffe mir kann da jemand dabei helfen
Liebe Grüße
Max
|