Problem mit Range
30.12.2014 22:13:33
Peter
Guten Abend
Im Range "_cSpaBr" (umfasst eine Zelle) steht die Zahl 50.
Weshalb erhalte ich bei der Codezeile
.ColumnWidth = wsAktive.Range("_cSpaBr").Value
eine Fehlermeldung (Methode Range für das Objekt Worksheet ist fehlgeschlagen)?
Gruss,
Peter
Option Explicit
Sub Mehrzeilentext_ein()
Dim wbThis As Workbook, wsAktive As Worksheet
Set wbThis = ThisWorkbook: Set wsAktive = wbThis.Sheets("Aktive")
wbThis.Activate
With wsAktive.Range("_ab_BR")
.NumberFormat = "General"
.VerticalAlignment = xlTop
.ColumnWidth = wsAktive.Range("_cSpaBr").Value
.WrapText = True
End With
End Sub