Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeilenhöhe einstellen

VBA Zeilenhöhe einstellen
13.08.2003 08:11:59
Harald
Guten Morgen,
ich möchte in Abhängigkeit der Zelle L26, in der eine Zahl zwischen 1 und 21 steht die Zeilenhöhe der Zeilen ab Zeile 55 einstellen.
Und zwar bei 2 die Zeile 55 Zeilenhöhe 12, bei <2 Zeilenhöhe 0, bei 3 Zeilenhöhe der Zeile 55 und 56 auf 12, bei < 3 beide Zeilenhöhe 0,
bei 4 Zeile 55, 56 und 57 Zeilenhöhe 12 usw.
Kann mir jemand unter die Arme greifen?

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeilenhöhe einstellen
13.08.2003 08:23:30
Guenter aus DO
Hallo Harald
benutze die CASE Struktur . s.u 

Sub test
dim wert as integer
let wert = cells(26,12)
select Case Wert
case is 2
Rows("55:55").RowHeight = 12
case is < 2
Rows("55:55").RowHeight = 12
end select
End Sub

Guenter aus DO

AW: kleiner Fehler
13.08.2003 08:25:15
Guenter aus DO
Text:
Hallo Harald kleiner Fehler, in der zweiten Case Anweisung muß die Höhe auf "0" gesetzt werden.
benutze die CASE Struktur . s.u 

Sub test
dim wert as integer
let wert = cells(26,12)
select Case Wert
case is 2
Rows("55:55").RowHeight = 12
case is < 2
Rows("55:55").RowHeight = 0
end select
End Sub


Anzeige
AW: VBA Zeilenhöhe einstellen
13.08.2003 08:37:26
galenzo
Mein Ansatz für dein Problem ist das Worksheet_Change-Ereignis, das bei Änderungen in der Tabelle ausgelöst wird. Dort fragst du ab, ob etwas in der Zelle "L26" geändert wird.
Abhängig von diesem Wert setz du dann die Zeilenhöhen.
(Dieser Teil des Makros ist sicherlich noch optimierbar).
Hier mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L26")) Is Nothing Then
Select Case Target.Value
Case Is < 2:    Rows(55).RowHeight = 0
Case 2:         Rows(55).RowHeight = 12
Case Is < 3:    Rows("55:56").RowHeight = 0
Case 3:         Rows("55:56").RowHeight = 12
' usw.
End Select
End If
End Sub


Anzeige

18 Forumthreads zu ähnlichen Themen

Zellbezüge im VBA Code automatisch anpassen
Jonathan

Hallo zusammen!
Für die unter Euch, die viel mit VBA arbeiten sicherlich eine "seltsame" Frage:
Ist es irgendwie möglich, Zellbezüge im VBA Code automatisch anzupassen, wenn sich in der Tabelle selbst was ändert (ähnlich wie bei eingegebenen Formeln). Füge ich also z.B. eine Spalte vor...
16.02.2010 01:11:25
Thread-ID: 1138768
4 Beiträge
Anzeige
Zeilenhöhe automatisch anpassen
Matthias

Hallo,
ich bräuchte ein Makro, dass bei angewendeten Blattschutz es zulässt, dass sich die Zeilenhöhe automatisch anpasst falls der Text zuviel wird.
Ich möchte dies, nicht im Blattschutz direkt zulassen, da sonst jeder die Zeilenhöhe varrieren kann.
16.03.2015 07:42:24
Thread-ID: 1415176
7 Beiträge
Zeilenhöhe automatisch anpassen, wenn leer
Patrick

Hallo,
ich habe nun noch ein Problem. In einer Tabelle funktioniert die automatische Zeilenhöhe nun gut.
Nur wenn der Inhalt mit der Entf-Taste geleert wird, dann wird die Zeilenhöhe nicht angepasst. Wenn ich mit der Löschen-Taste aber den inhalt entferne schon.
Nur soll sich die Ze...
22.06.2016 16:18:30
Thread-ID: 1500372
3 Beiträge
Anzeige
Zellengröße mit VBA automatisch anpassen
Simon

Hallo Zusammen,
ich möchte eine Excel Tabelle erstellen (Spalte A - F, mit Überschriften in Zeile 1).
Die Spaltenbreite habe ich bereits manuell vorgenommen und diese soll sich auch nicht ändern.
Aber bei Texteingabe in die Zellen der Tabelle soll sich die jeweilige Zellen-/ bzw. Ze...
21.09.2016 18:42:30
Thread-ID: 1515683
3 Beiträge
Zeilenhöhe automatisch anpassen
Nati

Hallo zusammen,
ich brauche nochmal Rat.
Ich habe eine Liste mit mehreren Spalten.
Die Zeilenhöhe soll jeweils fix bei 45 liegen.
Wenn in einer Spalte ein längerer Text eingegeben wird, soll sich die Zeile automatisch dem Text anpassen, jedoch trotzem mind 45 beibehalten.
I...
13.03.2017 10:14:00
Thread-ID: 1546986
3 Beiträge
Zeilenhöhe und Breite automatisch mit VBA anpassen
mirko

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 dies...
19.04.2017 14:59:12
Thread-ID: 1553629
17 Beiträge
Zeilenhöhe automatisch anpassen?
changenew

Hallo,
hätte folgendes Anliegen:
Ich möchte, dass in Tabellenblatt 2 die Zeilenhöhe in Zeile 3 automatisch an den geschriebenen Inhalt bzw. Symbole angepasst wird. Wie lässt sich das realisieren?
Außerdem würde ich gerne, dass in Zelle E3 auch eine automatische Anpassung des Ampels...
28.04.2017 16:22:49
Thread-ID: 1555380
2 Beiträge
Zeilenhöhe anpassen vba
Max

Liebe Alle,
ich versuche die Zeilenhöhe über eine Definition der einzelnen Zeilen von einem Tabellenblatt auf alle anderen Tabellenblätter zu übertragen.
Mein Code:
sheets(wsheets).Select
Union(Rows("1:3"), Rows(22), Rows(25), Rows(33), Rows(35), Rows(43), Rows(45), Rows(53)).Ro...
02.02.2018 17:28:17
Thread-ID: 1606626
6 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
6
2
4
2
2
16
1
5
20
3
1
6
11
4
2
3