VPA Zellhöhe verbundener Zeilen anpassen

Hallo,
vorab: Ich bin erst vor kurzem mit der Schule fertig geworden und verfüge noch nicht über weitreichende Excel/VBA-Kenntnisse. Bin jedoch jung und jederzeit bereit dazuzulernen.
Mein Problem ist folgendes, ich mache gerade in einer Firma ein Praktikum. Gewisse Formblätter wurden mit (horizontal) verbundenen Zeilen erstellt, jedoch funktioniert ja (wie ich bereits recherchiert habe) der automatische Zeilenumbruch in verbundenen Zellen nicht. Weshalb verbundene Zellen gemieden werden sollten.
Da es aber sehr, sehr viele Formblätter sind, die ich neu strukturieren müsste, suche ich nach einer VPA Lösung. Das Skript von Herrn Herber funktioniert auch einwandfrei, jedoch vergrößert es ja nur die Zellen.
Um es auf den Punkt zu bringen: Ich kann mit Hilfe des Makros die Zeilen vergrößern, jedoch hätte ich gerne ein Makro das im Falle von 'zu wenig Platz' die Zelle vergrößert UND im Falle von 'zu viel Platz' die Zelle vergrößert.
Ich hoffe ich habe mich klar genug ausgedrückt ;) Falls nicht, wäre ich um Rückmeldung diesbezüglich erfreut!
Ich hoffe ihr könnt mir helfen.. Komme da absolut nicht weiter allein.
Mit Freundlichen Grüßen
Philipp

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Function Zeilenhoehe(wks As Worksheet, Zeile As Long, Spalte_A As Long, Spalte_E As Long) As _ Double 'Ermittelt die Zeilenhöhe für zu verbindende Zellen bei überlangem Text und _ formatiert die Zellen 'Spalte_A = 1. SPalte der ggf. zu verbindenende Zellen 'SPalte_E = letzte Spalte der ggf. zu verbindenden Zellen Dim MinHoehe As Double, bolMerge As Boolean, lngHAlihnment As Long, dblHoehe As Double Application.ScreenUpdating = False With wks 'Zellbereich formatieren ohne Zeilenumbruch und Linksbündig formatieren, MinHoehe _ ermitteln With .Range(.Cells(Zeile, Spalte_A), .Cells(Zeile, Spalte_E)) .HorizontalAlignment = xlHAlignLeft .WrapText = False If .MergeCells = True Then .UnMerge With .EntireRow .AutoFit MinHoehe = .RowHeight End With 'Format auf über Spalten centrieren setzen und Optimale Zeilenhoehe .WrapText = True .HorizontalAlignment = xlCenterAcrossSelection .EntireRow.AutoFit 'Zellen Formatieren If MinHoehe

Nachtrag:
Ich habe den Code jetzt für meine Tabelle eingetragen (Im VBA Manager einen Doppelklick auf meine Tabelle).
Zu erst deinen zweiten Code und dann die Zeile "hier dein code" mit dem oberen functionscript ersetzt.
habe dann hier
With .Range(.Cells(Zeile_1, Spalte_A), .Cells(Zeile_3, Spalte_E))
noch die 1 und die 3 ergänzt. Ist das richtig? Der Befehl "Worksheet_change" ist das Auslöseereignis für das Makro oder? Also wenn ich die Zellen bearbeite aktiviert es sich automatisch? Jedenfalls erhalte ich beim ändern der Zellen eine Fehlermeldung:
Fehler beim Kompilieren
End Su b erwartet
Hier nun mein vollständiger code, der " --> " ist die Stelle die mir der Debugger anzeigt
Private


Sub Worksheet_Change(ByVal Target As Range)
Dim Hoehe As Double
On Error GoTo ErrorHandler
Application.EnableEvents = False
-->

Function Zeilenhoehe(wks As Worksheet, Zeile As Long, Spalte_A As Long, Spalte_E As Long) As _
Double
'Ermittelt die Zeilenhöhe für zu verbindende Zellen bei überlangem Text und _
formatiert die Zellen
'Spalte_A = 1. SPalte der ggf. zu verbindenende Zellen
'SPalte_E = letzte Spalte der ggf. zu verbindenden Zellen
Dim MinHoehe As Double, bolMerge As Boolean, lngHAlihnment As Long, dblHoehe As Double
Application.ScreenUpdating = False
With wks
'Zellbereich formatieren ohne Zeilenumbruch und Linksbündig formatieren, MinHoehe _
ermitteln
With .Range(.Cells(Zeile_1, Spalte_A), .Cells(Zeile_3, Spalte_E))
.HorizontalAlignment = xlHAlignLeft
.WrapText = False
If .MergeCells = True Then .UnMerge
With .EntireRow
.AutoFit
MinHoehe = .RowHeight
End With
'Format auf über Spalten centrieren setzen und Optimale Zeilenhoehe
.WrapText = True
.HorizontalAlignment = xlCenterAcrossSelection
.EntireRow.AutoFit
'Zellen Formatieren
If MinHoehe 


With Target

If .Row > 20 And .Row 
And .Column = 2 And .Cells.Count = 1 Then

Hoehe = Zeilenhoehe(wks:=Me, Zeile:=Target.Row, Spalte_A:=3, Spalte_E:=6)

End If

End With

Application.EnableEvents = True

Exit Function

ErrorHandler:

MsgBox "Fehler"

Application.EnableEvents = True

End Function

Beliebteste Forumthreads (12 Monate)

VPA Zellhöhe verbundener Zeilen anpassen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

29 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VPA Zellhöhe verbundener Zeilen anpassen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

29 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread