Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilenhöhe und Breite automatisch mit VBA anpassen


Betrifft: Zeilenhöhe und Breite automatisch mit VBA anpassen von: mirko
Geschrieben am: 19.04.2017 14:59:12

Hallo Excelisten

ich möchte per VBA die Zeilenhöhe in der Spalte H automatisch anpassen, Z.B. wenn der in der Spalte H eingegebene Text darüber hinaus geht, soll Excel mir automatisch die Zeilenhöhe anpassen, bzw. erweitern mit Zeilenumbrüche.
Evtl. Spaltenbreite fixieren und wenn diese erreicht ist, macht der Excel Zeilenumbruch solange es Text reicht?

Ist das möglich?

mirko

  

Betrifft: AW: Zeilenhöhe und Breite automatisch mit VBA anpassen von: Werner
Geschrieben am: 19.04.2017 15:18:33

Hallo Mirko,

die gewünschte Spaltenbreite vorher einfach einstellen.
Folgenden Code ins CodeModul des Blattes, auf dem er sich auswirken soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Makro startet, sobald in Spalte H eine Eingabe vorgenommen wird.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
    Columns("H:H").WrapText = True
End If
End Sub
Gruß Werner


  

Betrifft: Zeilenhöhe und Breite automatisch mit VBA anpassen von: mirko
Geschrieben am: 19.04.2017 15:26:35

Hallo Werner

habe versucht, leider wird die Zeilenhöhe nicht automatisch angepasst.

Gruss
mirko


  

Betrifft: Rows.AutoFit..owT von: Max2
Geschrieben am: 19.04.2017 15:34:12




  

Betrifft: AW: Zeilenhöhe und Breite automatisch mit VBA anpassen von: Werner
Geschrieben am: 19.04.2017 15:52:50

Hallo Mirko,

bei mir schon. Mehr kann ich dazu nicht sagen, weil ich deine Datei nicht kenne.

Gruß Werner


  

Betrifft: Zeilenhöhe und Breite automatisch mit VBA anpassen von: mirko
Geschrieben am: 19.04.2017 16:03:59

Hallo Werner

bei mir in der neue Mappe funktioniert auch fehlerfrei.

In der betroffene Mappe (Tabelle 1)habe ich schon eine Prozedur mit:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Ist das vielleicht die Ursache?

mirko


  

Betrifft: AW: Beispielmappe hochladen von: Werner
Geschrieben am: 19.04.2017 16:09:18

Hallo Mirko,

da kann ich wieder nur sagen "kann sein". Ich kenne deine Datei immer noch nicht und deinen Code auch
nicht.
Lade doch mal eine Beispielmappe, ggf. mit anonymisierten Daten hoch.

Gruß Werner


  

Betrifft: AW: Beispielmappe hochladen von: mirko
Geschrieben am: 19.04.2017 16:22:53

Hallo Werner

anbei noch die Beispieldatei:

https://www.herber.de/bbs/user/112980.xlsm

gruss
mirko


  

Betrifft: AW: Beispielmappe hochladen von: Werner
Geschrieben am: 19.04.2017 16:44:32

Hallo Mirko,

wenn du jetzt noch dein Makro-Passwort raus machen würdest, dann könnte ich mir das auch ansehen.

Gruß Werner


  

Betrifft: AW: Beispielmappe hochladen von: mirko
Geschrieben am: 19.04.2017 16:49:08

Hallo Werner

Entschuldigung, jetzt ist es frei.


https://www.herber.de/bbs/user/112986.xlsm

gruss
mirko


  

Betrifft: AW: Beispielmappe hochladen von: Werner
Geschrieben am: 19.04.2017 19:47:41

Hallo Mirko,

musste noch ein Autofit mit rein machen, warum kann ich nicht sagen, bei mir ging es auch ohne.

https://www.herber.de/bbs/user/112989.xlsm

Gruß Werner


  

Betrifft: AW: Beispielmappe hochladen von: mirko
Geschrieben am: 19.04.2017 20:32:57

Hallo Werner

wo genau muss der Autofit in meinem Codes noch anpassen?

gruss
mirko


  

Betrifft: AW: Beispielmappe hochladen von: Werner
Geschrieben am: 19.04.2017 20:37:00

Hallo Mirko,

Das ist doch in der Datei, die ich dir wieder hochgeladen habe, schon drin. Im Worksheet_Change ganz unten.

Gruß Werner


  

Betrifft: AW: Beispielmappe hochladen von: mirko
Geschrieben am: 19.04.2017 20:44:05

Hallo Werner

ich finde es in diese Datei einfach nicht?
Entweder bin für VBA "zu blöd" oder was?

mirko


  

Betrifft: AW: Beispielmappe hochladen von: Werner
Geschrieben am: 19.04.2017 20:53:29

Hallo Mirko,

Rechtsklick auf den Blattreiter von Tabelle1 - Code anzeigen
Oder im Makroeditor Doppelklick auf Tabelle1
und dort dann im Worksheet_Change Code ganz unten

Gruß Werner


  

Betrifft: AW: Beispielmappe hochladen von: mirko
Geschrieben am: 19.04.2017 21:18:41

hallo Werner

endlich funkttioniert es wie gewünscht.

Danke für die Hilfe und vor allem für der Geduld.

Gruss
mirko


  

Betrifft: AW: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 19.04.2017 21:37:00




Beiträge aus den Excel-Beispielen zum Thema "Zeilenhöhe und Breite automatisch mit VBA anpassen"