habe eine datei hochgladen und da problem beschrieben
einfaches beispiel ...hmmm
es soll fue einen zellbereich ein label in ner userform benannt werden
hier die datei:
https://www.herber.de/bbs/user/16739.xls
vielen dank roland
Private Sub CommandButton1_Click()
' Abschalten der Bildschirmaktualisierung, macht das Makro schneller
Application.ScreenUpdating = False
' Den Namen deiner Autoformen bekommst du im Excel Blatt oben links
' im Namenfeld angezeigt wenn du die Formen markierst.
ActiveSheet.Shapes("AutoForm 2").Select
Selection.Characters.Text = "11111111111"
ActiveSheet.Shapes("AutoForm 4").Select
Selection.Characters.Text = "Anderer Text"
ActiveSheet.Shapes("AutoForm 5").Select
Selection.Characters.Text = "Hallo ich bin der neue"
' Ich weis Select ist nicht die feine englische Art aber für den Anfang
' sollte es damit auch gehen.
Range("A1").Select
' Einschalten der Bildschirmaktualisierung
Application.ScreenUpdating = True
End Sub