2016-06-30 11 views
0

Ist es möglich, Großbuchstaben in With-Funktion zu definieren?Vba Excel Kann ich mit With-Funktion zu Großbuchstaben wechseln?

Ich habe einige Versionen ausprobiert, aber keine funktioniert:

With Worksheets("CONTROL SCHEDULE").Range("A7:N7") 
    .Font.FontStyle = "Bold" 
    .Value = UCase(.Value) 
End With 
+0

I Bereich A7 wollen: N7 Großbuchstaben zu sein. Ich hatte gehofft, dass dies innerhalb der "With" -Funktion definiert werden kann, sodass ich es leicht an verschiedenen Stellen in meinem Code hinzufügen kann. Klingt so, als wäre es besser, eine separate Codezeile zu schreiben. – Ida

Antwort

1

UCase wird nicht wie das auf einem Array arbeiten. Sie können Evaluate obwohl verwenden:

With Worksheets("CONTROL SCHEDULE").Range("A7:N7") 
    .Font.FontStyle = "Bold" 
    .Value = .Worksheet.Evaluate("INDEX(UPPER(" & .address & "),)") 
End With 
+0

Danke. Dieser Code hat nur den Text "UPPER" in Zelle N7 hinzugefügt. Wie kann ich die ganze Reihe ändern? – Ida

+0

Dieser Code würde das nur tun, wenn N7 bereits das Wort "upper" hätte. – Rory

+0

Ah, ich hatte einen anderen Code weiter unten, der es zurück änderte. VIELEN DANK :) – Ida