Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UsedRange.Select aber ohne Zeile 1 ?

UsedRange.Select aber ohne Zeile 1 ?
18.06.2013 14:25:19
rieckmann
Hallo,
nun möchte ich alle Zeilen mit Inhalt automatisch in der Zeilenhöhe anpassen außer
der Zeile 1.
Das sollte doch mit "UsedRange.select" und "Selection.Rows.AutoFit" gehen, oder ?
Nur wie bekomme ich aus den "UsedRange.select" die Zeile 1 raus ?
Also die Zeile 1 soll von der Anpassung der Zeilenhöhe ausgeschlossen werden.
Ein festgelegter Bereich geht hier nicht, da es mehrere unterschiedliche Blätter mit
wachsenden Daten sind.
Jemand eine Idee ?
Gruß
Fred

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UsedRange.Select aber ohne Zeile 1 ?
18.06.2013 14:40:02
Rudi
Hallo,
wozu select?
activesheet.usedrange.offset(1).entirerow.autofit
Gruß
Rudi

AW: UsedRange.Select aber ohne Zeile 1 ?
18.06.2013 14:48:03
rieckmann
Hallo Rudi,
das ist ja super.
Das select hatte ich im Zusammenhang mit UsedRange so gefunden,
und dachte es gehört dazu.
Aber je kürzer, desto besser.
Danke dir
Gruß
Fred

AW: Select
18.06.2013 15:05:19
rieckmann
Das lese ich mir in Ruhe durch.
Danke

[KleinkariertModusEin] : ALLE Zeilen außer Zeile 1
18.06.2013 15:13:59
NoNet
Hallo Rudi,
trotz der Hitze bin ich jetzt mal kleinkariert :
Was ist, wenn in ALLEN Zeilen Inhalte stehen ? - Dann funktioniert activesheet.usedrange.offset(1) natürlich NICHT (das wäre dann 1 Zeile unterhalb des verwendeten Bereiches !)
Daher mein Korrekturvorschlag, der genau das macht, was angefragt wurde (ALLE verwendete Zeilen ausser Zeile 1) :
    Intersect(Rows("2:" & Rows.Count), ActiveSheet.UsedRange).EntireRow.AutoFit

Salut, NoNet

Anzeige
AW: [KleinkariertModusEin] : ALLE Zeilen außer Zeile 1
18.06.2013 15:22:38
Rudi
Hallo,
eigentlich hatte ich an sowas gedacht: 
With ActiveSheet.UsedRange
.Resize(.Rows.Count - 1).OffSet(1).EntireRow.AutoFit
End With

mich dann aber aus Faulheit für die fehlerträchtige Lösung entschieden.
Microkariert:
(das wäre dann 1 Zeile unterhalb des verwendeten Bereiches !)
das ist es sowieso. Schlimmer noch: Das wäre dann 1 Zeile unterhalb des verwendbaren Bereichs.
Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige