Großschreiben per VBA

[Alberto]

Guten Abend,

Ich hätte bitte eine Frage: ich habe folgendes Coden, der einige Daten vom Tabellenblatt1 auf Tabellenblatt2 kopiert und einfügt.


Sub Button_1()

  ThisWorkbook.Worksheets("Tabelle2").Range("A2").Value = ThisWorkbook.Worksheets("Tabelle1").Range("B2").Value
  ThisWorkbook.Worksheets("Tabelle2").Range("A3").Value = ThisWorkbook.Worksheets("Tabelle1").Range("C2").Value
  ThisWorkbook.Worksheets("Tabelle2").Range("B4").Value = ThisWorkbook.Worksheets("Tabelle1").Range("D2").Value
  ThisWorkbook.Worksheets("Tabelle2").Range("A1").Value = ThisWorkbook.Worksheets("Tabelle1").Range("I2").Value

End Sub

Ich möchte, dass der Zelleninhalt in A2 beim Einfügen Alle Buchstaben groß geschrieben werden.

Danke im Voraus

Gruß
Alberto

[Gast 123]

Hallo

es gibt zwei Befehle:   LCase und UCase  im VBA für Klein- udn Grossschrift. Probier es bitte mal so:
   xxx = UCase(Worksheets("Tabelle1").Range("B2").)
**  auf ThisWorkbook kannst du verzichten wenn beide Tabellen in dersellben Mappe sind.

mfg Gast 123

[Alberto]

Hallo,

das hat super geklappt. Das ist genau was ich brauche.
Vielen Dank und schönen Abend noch.

Gruß
Alberto