Office: (Office 2010) Excel Tabellengröße an Inhalt anpassen

Hallo,

ich habe eine Frage zu den Tabellen in Excel. Es gibt dort ja die schöne Möglichkeit, Tabellen einzufügen.

Nun habe ich dabei aber das Problem, dass die Größen variabel sind. Ich kann also die Tabelle "größer" machen als den darin befindlichen Inhalt.
Sprich:
Die Tabelle geht von A1:E10, der Inhalt entspricht ebenfalls A1:E10.
Nun kann ich die Tabelle ja auch händisch auf A1:E15 vergrößern.
Das kommt meinem VBA-Code aber mal so gar nicht entgegen, da dieser sich leider immer auf die Tabellengröße bezieht. Gibt es da eine Möglichkeit, diese Tabelle immer an den Inhalt anzupassen?

Vielen Dank im Voraus

:)

 

Hi,

ja!?
Wo ist das Problem?

 

es geht um VBA?
MsgBox Sheets(1).UsedRange.address

 

Vielleicht stehe ich ja auch auf dem Schlauch, aber ich frag mal einfach: Wie mache ich das?

 

Hi,

Wenn wir nur wüssten wie du das machst. *Smilie

Für was brauchst du das?
Wie sieht dein Code aus?

Generell was willst du erreichen?
Suchst du den letzten Eintrag einer Spalte, Zeile die Adresse des benutzten Bereiches, den Range eines Bereiches, den benutzen Bereich innerhalb eines definierten Bereiches, usw, usw,

Wenn wir helfen sollen wäre es klar von Vorteil wenn wir wüssten was du jetzt genau benötigst.

 

Ich habe gehofft, dass es dabei eine einfache Lösung in Excel gibt, ohne VBA, daher nur die Kurzfassung. Ich wollte eigentlich nicht den Code verändern.
Die Tabelle ist ebenfalls in Excel erstellt worden und nicht mit VBA.

In meinem Tabellenblatt mit dieser Tabelle ist ein Commandbutton, der eine Userform öffnet. Dort kann ich neue Daten für diese Tabelle eingeben:
Private Sub CommandButton1_Click()
i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value "" Then
Cells(i + 1, 1).Value = TextBox1.Value & Label1.Caption & TextBox2.Value & " " & R.Caption & TextBox3.Value & " " & TextBox4.Value & _
" " & TextBox5.Value & " " & TextBox6.Value
Cells(i + 1, 2).Value = TextBox7.Value
Cells(i + 1, 3).Value = TextBox8.Value
Cells(i + 1, 4).Value = TextBox9.Value
End If

End Sub

So viel dazu. Wichtig ist ja, wie er zählt, aber das funktioniert ja nur solange, wie die Tabellengröße auch angepasst ist.
Ich weiß leider auch nicht, wie ich die Problemstellung umgedreht lösen kann.

 

Hi,

wird mit einem Listobject gearbeitet? (Als Tabelle formatieren)

Wenn ja findest du die erste freie Zelle in A damit

Code:

bei Dir im Code eingebaut

Code:

 

Super, das funktioniert bestens!

Vielen Dank!