Wie kann ich mehrere Objekteigenschaftnamen (stehen z.B. in Zeile 1) als Variable auslesen (Variable = .Size) und dann den Wert (steht in Zeile 2) zuordnen?
Bsp.
Text in Zeile 1: Text in Zeile 2:
".Name" / "Arial"
".Size" / "24"
".Bold" / "False"
usw.
Sub Makro2()
' Makro2 Makro
Sheets(6).Select
Range("D4").Select
For sp = 1 To 2
With Selection.Font
'statt .Size = Cells(2, sp).Value
Variable = Cells(1, sp).Value
Variable = Cells(2, sp).Value
End With
Next sp
End Sub
Gruss Klaus