Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilenhöhe verkleinern und vergössern

Forumthread: Zeilenhöhe verkleinern und vergössern

Zeilenhöhe verkleinern und vergössern
11.10.2024 19:02:35
Milan
Hallo Leute,

ich versuche etwas zusammen zu meistern aber bin nicht der Sache gewachsen und bitte um eure Hilfe.
Nach Umbau von meinen Mappen die auf verschiedene Windowsskalierung öffnen sollen habe ich problem auch beim drücken auf bestimmte Bläter oder eine Serie von blätter.
Wenn ich ein Blatt erstelle unter z.B 3840x2160 und Windowsskalierung 100% dann drückt natürlich genau aber wenn ich dann die Windowsskalierung vergrössere auf z. B 300% dann ändert mir nicht nur Ansichtgrösse sondern beeinflüsst auch Zeilenhöhe im Blatt selbst und dann druckt aber falsch (durch Zeilenverschiebung). Das müsste ich so machen weil ich möchte eine Datei öffnen können auf dem Computer mit 2K und 4K und belibiege Skalierung von 100%-350% je nach dem welche Einstellung PC hat.
Um gegen zu steuern ist das nicht möglich ohne vba code. Ich habe im Netz was gefunden aber läuft nicht richtig, es soll Zeilehöhe vergrössern für 1 Pixel aber vergrössert irgendwie nach Schriftgrösse oder Autofit Methode.
Problem dabei ist ich bekomme das nicht gebacken weil ich wollte das einfach zu bekommen aber gleichzetig fexibel für verschiedene Scenarien z.B.
Variable1=BlattName(erstes Blatt)
Variable2=BlattName(letztes Blatt)
Variable3=Erste Zeilenummer
Variable4=Letzte Zeilenummer
Variable5=PixelAnzahl + -

Das wollte ich steuern vorerst mit zwei Label (+) und (-). Label (+) soll Zeilenhöhe immer für 1 Pixel vergrössern und (-) umgekehrt damit ich Blattverhältnis wiederherstelle.
Ich habe je nach der Mappe verschiedene Blätteranzahl die ich benenne mit z.B. Blatt1 bis Blatt60 (Variable1 und 2), in allen sollen Zeile z.B. Zeile 2 bis 40 angesprochen sein (Variable3 und 4), und Vergrösserungs oder Verkleinerungsfaktor immer +1Pixel oder -1Pixel (Variable5). Wenn auch Spaltenbreite dabei ist nicht so schlimm wenn man auf null setzen kann.
Höffentlich habe ich das verständlich geschrieben

Vieleicht hat jemand in der Vergangenheit damit zutun gehabt und mir damit das Leben retten.

Danke



Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Gelöst- und Kritik zu gleich
13.10.2024 02:11:07
Milan
Es gibt Menschen die nicht glauben dass sich mit der Änderung der Bildschirmauflösung und Skalierung im Windows auch Zeilen im Excel verschieben und damit ist präzises drücken auf Formulare nicht möglich.
Ich lasse die so lange in der Glaube zu leben bis die dies oder jenis im Leben erleben, aber es ist nicht schön wenn jemand um Hilfe bittet solche Antworten zu bekommen und damit hat sich erledigt, dann liebe nicht melden. Niemand von uns ist im Computer geboren, aber wir alle die sich hier treffen suchen nach Antworten in bestimtem Bereich und haben Spass an der Sache. Ich habe höhste Respekt von den Menschen die diese Materie gnadenlos verstehen und gelernt haben, ich gehöre nicht zu aber Begeisterung und Freude sind Risig.

Sorry, Vortrag Ende

In jedem fall für die Korrektur kann dieses Code hilfe leisten auch für mehrere Vorlagen für die jenige die Lösung zu diesem Thema suchen.

Sub ZeilenHoehe()

Dim ws As Worksheet
Dim j As Integer

On Error GoTo ErrExit
Application.ScreenUpdating = False

For Each ws In ThisWorkbook.Worksheets ' Durchlaufe die Blätter von Blatt1 bis Blatt20
If ws.Index >= 1 And ws.Index = 20 Then

For j = 1 To 40 ' Durchlaufe die Zeilen 1 bis 40, je nach Vorlagelänge

ws.Rows(j).RowHeight = ws.Rows(j).RowHeight - 0.4 ' Reduzierung der Höhe der Zeile um 1 Pixel (mehr oder weniger) in plus oder minus

Next j
End If
Next ws

ErrExit:
Application.ScreenUpdating = True

End Sub
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige