Thema: Zellen verbinden und senkrecht ausrichten

Home

Gruppe

Format

Problem

Über festgelegte Variablen für den Zeilenindex sollen Zellen verbunden und mit senkrecht ausgerichtetem Text versehen werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub Verbinden()
   Dim iRowL As Integer, iRowC As Integer
   iRowL = 30
   iRowC = 20
   With Range(Cells(iRowL - iRowC, 1), Cells(iRowL, 1))
      .Merge
      .Value = "Monatsaufstellung"
      .Orientation = 90
      .Font.Bold = True
      .VerticalAlignment = xlCenter
   End With
   Columns(1).AutoFit
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und Ansicht

Bedingte Formatierung vor Copy/Paste schützen	Bed. Formatierung, wenn alle Beding. erfüllt.
Formular Steuerelement bei "geschützer Ansicht"	Telefonnummer automatisch per VBA formatieren
Komplettes Excel Sheet kopieren mit Formaten	Bedingte Formatierung per VBA mit Schleife
Kartendiagramm per VBA erstellen und formatieren	bedingte Formatierung
Zellfarbe per Cond Formatting nach Zellfarbe änder	UserForm im Querformat drucken
Bedingte Formatierung	Teilstringabfrage bei bedingter Formatierung
Bedingte Formatierung mit UND Verknüpfung	VBA und geschützte Ansicht
Textformat (VBA)	Bedingte Formatierung Frage
Array in Tabelle kopieren, Verlust von Format	Übernahme in Word Format wird nicht übernommen
VBA, 4 Informationen in 4 Zellen schreiben	bedingte Formatierung mit mehreren Bedingungen
Datum aus Oracle-Abfrage als Datum formatieren	Bedingte Formattierung
Bedingte Formatierung - kleiner als Fehler	Zahlenformat Handynr.
Diagramme und ihr Format	bedingte formatierung per VBA
Hilfe Laufzeitfehler wegen benutzerdef. Ansicht	Bedingte Formatierung bezogen auf 2. Zelle
Formatgleichheit von Zeichenfolgen für SVERWEIS	bedingte Formatierung
Bedingte Formatierung	Tabellen - Zellen - Formatieren -
Format übertragen	Datumsformatierung
Formatierung anderer Diagramme	Zellenformatierung speichern
Diagrammformatierung übertragen	Zahlenformat global überprüfen
wenn z.B. Zahl 12 dann grün (Bedingte Formatierung	wenn z.B. Zahl 12 dann grün (Bedingte Formatierung
Zahlenformatierung in einem Textfeld	Zahlenformat
bedingte Formatierung für zellenbereich	Format Datum / Uhrzeit
Eilt - Formatierung "in 1000"	Bedingte Formatierung mit 2 Bedingungen
Combobox, CheckBox, TextBox Formatierung	Formatierung Dezimalzahlen bei Combobox-Eingaben
Dateiformat vorgeben