VBA: Zusammenführen von zwei Makro's
19.11.2019 23:02:34
zwei
Ich wurde gern aus zwei Makro´s eins machen, kann mir jemand dabei helfen.
Erstes Makro Schreibt Werte ins Tabellenblatt.
Zweites Makro soll die die Eigenschaft der zuvor Beschriebenen Zellen ändern.
Erstes Makro:
Sub Schreibe ()
Dim sh As Worksheet, n As Long
Set sh = ThisWorkbook.Sheets("Bericht (1)")
With sh
n = .Cells(.Rows.Count, 8).End(xlUp).Row
If n
Sub ZelleAnpassen ()
Dim rng As Range
'Set rng = '
With rng
.RowHeight = 45
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.ReadingOrder = xlContext
End With
End Sub
Danke für eure Hilfe!
Gruß Charly
Anzeige