Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UsedRange.Select aber ohne Zeile 1 ?

Forumthread: 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

Anzeige

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

Anzeige
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige