Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen automatisch erweitern

Forumthread: Zellen automatisch erweitern

Zellen automatisch erweitern
28.07.2003 08:15:56
Chris
Guten Morgen zusammen,
habe ein Problem!
Ich habe ein Makro erstellt, welches mir Werte in einen Zellbereich ("A16:F42") reinkopiert!
Das Problem hierbei ist nur, dass die Zelle sich nicht automatisch an die kopierten Bereich anpasst! (Die Zelle ist meist zu klein)
Gibt es ein Makro, welches mir die Zellbreite unverändert lässt(muss aber nicht unbedingt sein), aber die Zellhöhe der Eingabe entsprechend anpasst?
Wäre klasse, wenn mir jemand helfen könnte!
LG Chris
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen automatisch erweitern
28.07.2003 08:22:17
andreas e
hallo chris,
schreib ans edne nachstehenden code
Rows("16:42").Select
Rows("16:42").EntireRow.AutoFit
gruß
andreas e
http://www.skripteundaufgaben.de
viele kostenlose downloads zu excel und mehr

AW: Zellen automatisch erweitern
28.07.2003 08:28:48
WernerB.
Hallo Chris,
mein Vorschlag:

Sub ZeilenHoehe()
Dim i As Byte
Application.ScreenUpdating = False
For i = 16 To 42
Sheets("Tabelle2").Rows(i & ":" & i).RowHeight = _
Sheets("Tabelle1").Rows(i & ":" & i).RowHeight
Next i
Application.ScreenUpdating = True
End Sub

Gruß WernerB.

Anzeige
DANKE!!
28.07.2003 08:37:36
Chris
Ich danke Euch für Eure schnelle Hilfe!
Euch noch nen schönen Tag!
LG Chris

;

Beliebteste Forumthreads (12 Monate)

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