Workbooks(
"Katalog_Physik.xls"
).Worksheets(
"Tabelle3"
).Cells(9, 4).Font.Bold =
True
Workbooks(
"Katalog_Physik.xls"
).Worksheets(
"Tabelle3"
).Cells(9, 4).Font.Size = 12
Workbooks(
"Katalog_Physik.xls"
).Worksheets(
"Tabelle3"
).Cells(9, 4).VerticalAlignment = xlCenter
Workbooks(
"Katalog_Physik.xls"
).Worksheets(
"Tabelle3"
).Cells(9, 4).HorizontalAlignment = xlCenter
Workbooks(
"Katalog_Physik.xls"
).Worksheets(
"Tabelle3"
).Cells(9, 4).WrapText =
True
Workbooks(
"Katalog_Physik.xls"
).Worksheets(
"Tabelle3"
).Cells(9, 4).Columns.AutoFit
Workbooks(
"Katalog_Physik.xls"
).Worksheets(
"Tabelle3"
).Cells(9, 4).ColumnWidth = 80
Workbooks(
"Katalog_Physik.xls"
).Worksheets(
"Tabelle3"
).Cells(9, 4).RowHeight = 35
Das Problem ssitzt mal wieder vor dem Bildschirm;-)
Gruß
Michel