Übertrag aus TextBox in Großbuchstaben
24.03.2009 21:27:14
Larissa
ich möchte, dass bei der Übertragung aus einem Textfeld in einem Userform der Eintrag in Großbuchstaben umgewandelt wird. Also z.B. "Milch" als "MILCH" eingetragen wird.
So sieht der Übertrag jetzt aus:
Private Sub CommandButton5_Click()
Dim letztezeile As Integer
letztezeile = (Worksheets("Artikel").Cells(Rows.Count, 1).End(xlUp).Row) + 1
Worksheets("Artikel").Cells(letztezeile, 1) = TextBox1
End Sub
Vielen Dank für Eure Hilfe,
Larissa
Anzeige