Hallo Community,
ich möchte ein Textfeld in mein Arbeitsblatt einfügen. Dieses soll 2 Zeilen habe. In jeder Zeile werden Werte aus einem anderen Arbeitsblatt eingelesen. Das klappt soweit schon ganz gut, leider sind 2 Zellen davon kein TEXT, sondern ZAHLEN. Mein Textfeld fügt diese nun sehr unschön formatiert ein.
Hier mal mein Code:
ActiveSheet.Shapes.AddTextbox(1, 300, 200, 200, 35).TextFrame.Characters.Text = Worksheets("Auswertung").Range("A6").Value & " :" & vbTab & Worksheets("Auswertung").Range("C6").Value & Chr(10) & Worksheets("Auswertung").Range("A7").Value & " :" & vbTab & Worksheets("Auswertung").Range("C7").Value
Sorry für den Einzeiler, ich war froh das überhaupt hinbekommen zu haben. Ich muss hier "C6" und "C7" als ZAHL formatieren
|