Office: (Office 2010) VBA: UsedRange ohne Header

Hi,

mit dem Statement "ActiveSheet.UsedRange.Select" kann ich ja auf einem Arbeitsblatt genau die - UsedRange, also den befüllten Bereich markieren, egal wie groß der ist. Genau das, was ich brauche - bis darauf, dass ich das auf zwei Sheets mache, die ich dann kombinieren will, d.h. beim zweiten Kopiervorgang will ich die Header-Zeile nicht mitnehmen.
Wie nehm ich denn die aus der UsedRange raus?
Danke vielmals!
Gruß,

Officer_Bierschnitt

:)

 

Hi,

check this out:
Code:

 

Hallo,

im Prinzip so:

Public Sub Test()
With ActiveSheet.UsedRange
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Select
End With
End Sub

Aber Select ist zum Kopieren nicht notwendig.

 

Moin!
Code:

Sehr viel besser ist aber ein Tabellen-Objekt (Strg+t)!
Denn da haben alle möglichen Dinge einen Namen …
Hier speziell den DataBodyRange
https://www.thespreadsheetguru.com/b...t-excel-tables

Gruß Ralf

 

Cool! So schnell hätte ich nicht gedacht. Da wird - Scheiß-Autokorrektur, kann keine Umgangssprache - ich mal ausprobieren, eine dieser Lösungen wird sicher funktionieren.
Danke!

 

Die funktionieren natürlich alle! *cool.gif*

 

Hallo zusammen,

mal eine doofe Frage dazu ... wie lasse ich Excel bei dieser Aktion entscheiden, ob über dem Bereich ein Überschrift steht, oder nicht ?
Natürlich habe ich keine Strg-T Tabelle, sondern einen ganz normalen Datenbereich in einem Tabellenblatt. *wink.gif*

Habe da schon mal ein wenig mit StrComp und StrConv herumexperimentiert, aber alles nichts gescheites ...

Wie macht M$ das mit dem ... Header:=xlGuess ...

Sabina

 

Hallo Sabina,

ich denke, M$ macht das an der Formatierung fest.

 

Moin auch von mir!
Zustimmung zu Nepumuk!

Alles als Standard formatiert:

• Wenn 1. Zeile Text und Daten Zahl (oder umgekehrt) -> Überschrift erkannt.
• Wenn alle Zellen vom gleichen Datentyp, wird die Überschrift nicht erkannt (logisch).

Formatiert man die erste Zeile Fett (oder/und mit Hintergrund), wird die Überschrift erkannt.

Gruß Ralf

 

Grüazi,

es war tatsächlich noch einfacher als alle Eure Vorschläge: Ein simples "ActiveSheet.UsedRange.Offset(1,0).Select" tut's schon.
Vielen Dank!
Gruß,

Officer_Bierschnitt