Clever-Excel-Forum

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

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

Hallo,

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

Gruß
Alberto