Moin,
mach mal mit der Frage einen neuen Thread auf. Ich weiß es nicht, und hier unten auf Sohle 8 guckt doch kein Schwein mehr - die denken, wir streiten 
))
Gruß Ralf
Spoiler
Hi Gurke,
zurück auf Start - vielleicht hab ich jetzt kapiert, was Dich zwickt
Option Explicit
Dim ctlText As VB.TextBox
Dim TextBox As VB.TextBox
Private Sub Form\_Load()
' neue Textbox anlegen
Dim CtlName As String
Dim i As Long
CtlName = "TBSpalte" & i
Set ctlText = Controls.Add("VB.TextBox", CtlName, Form1)
ctlText.Text = "Hier gehts los"
ctlText.Visible = True
' Zugriff
Set TextBox = Controls(CtlName)
MsgBox TextBox.Text
End Sub
Alles klar? CtlName ist nur die Zeichenkette, die den Namen enthält. TextBox ist die aktuelle (hier hab ich nur eine) Textbox, deren Inhalt ausgegeben wird.
Gruß Ralf
Moin,
Fehler: Benutzerdefinierter Typ nicht definiert.
xD
Meckert gleich in der zweiten Zeile ( Dim ctlText as VB.TextBox)…
Ich habe übrigens VB 6.5, falls das etwas ändert…
Gruß
GURKE
Hi, Gurke,
Ich habe übrigens VB 6.5, falls das etwas ändert…
eher nicht, meine Version ist 6.0.
Du arbeitest nicht zufällig unter VBA?
Gruß Ralf
Hi,
Hi, Gurke,
Ich habe übrigens VB 6.5, falls das etwas ändert…
eher nicht, meine Version ist 6.0.
Du arbeitest nicht zufällig unter VBA?
VBA: Retail 6.5.1053
ich glaub schon 
Gruß
GURKE
Ich habe übrigens VB 6.5, falls das etwas ändert…
eher nicht, meine Version ist 6.0.
Du arbeitest nicht zufällig unter VBA?VBA: Retail 6.5.1053
ich glaub schon
Hallo GURKE,
na Super 
, jetzt nach 25 Beiträgen rückste damit heraus.
Und hilfreich ist das nicht. Ca. 30 Programme beinhalten VBA.
Also nene den Programmnamen und die Version.
Auch das Betiebssystem samt Version, PC oder Mac usw.
Gruß
Reinhard
Erbarmen
Moin,
wird wohl Zeit, dass Du mal erzählst, was Du überhaupt vorhast. Mit Excel-VBA (Office2000) sehe ich jedenfalls keine Chance, einer Textbox per Code einen Namen zu geben.
Gruß Ralf
die Hesse kommen
Hallo Ralf,
wird wohl Zeit, dass Du mal erzählst, was Du überhaupt
vorhast.
sehr gute Idee. Wenn#s um Excel geht, wo steht die Textbox, Blatt oder UF, ggfs. aus welcher Symbolleiste stammt sie.
Mit Excel-VBA (Office2000) sehe ich jedenfalls keine
Chance, einer Textbox per Code einen Namen zu geben.
? Warum nicht?
Ich sehe jetzt keinen Grund sie nicht umbenennen zu können mit Vba.
Und, sehr schade um deine Mühen und die von Markus und wer noch beteiligt war, aber die Beitragsfolge ist mir zu lang.
Ich fänd’s eine gute Idee wenn Gurke eine völlig neue Anfrage aufmacht. Mit allen wesentlichen Angaben die man braucht um das überhaupt lösen zu können.
Gruß
Reinhard
Moin, Reinhard,
Ich sehe jetzt keinen Grund sie nicht umbenennen zu können mit
Vba.
zeigen
Ich fänd’s eine gute Idee wenn Gurke eine völlig neue Anfrage
aufmacht.
Hab ich ihm schon angeraten, hilft nix.
Gruß Ralf
hallo Ralf,
Ich sehe jetzt keinen Grund sie nicht umbenennen zu können mit
Vba.zeigen
„jetzt“ war damals, was interessiert mich was ich früher mal sagte )
Scheint irgendwie doch schwieriger zu sein als von mir DAMALS *gg* gedacht. Nach einigen Fehlversuchen ist dann doch die Erwartungshaltung daß ich das hinkriege mittelschwer gebeutelt worden.
Abernoch gebe ich nicht auf
Ich fänd’s eine gute Idee wenn Gurke eine völlig neue Anfrage
aufmacht.Hab ich ihm schon angeraten, hilft nix.
Aargs, Belehrungsresistent. Da hilft nur die harte Tour, Du machen auf neuen Thread, Sagen alles was wichtig, wenn nicht, Du nix kriegen Hilfe.
Klingt hart, aber was will man machen, das ist der einzige Weg zu einer Hilfe, wie soll ich helfen wenn ich gar nicht weiß was vorliegt?
Gruß
Reinhard
Ich sehe jetzt keinen Grund sie nicht umbenennen zu können mit
Vba.
zeigen
Hallo Ralf,
ich geb zu, ich habe andernorts nachgefragt.
Also eine TB auf einer UF kann man zur Laufzeit nicht umbenennen.
Einziger wäre, sie mit .Add in der UF zu erzeugen und sie dabei benennen.
Eine TB im Blatt kann man locker umbenennen:
Sub tt()
Sheets(1).TextBox1.Name = „xxxxxx“
MsgBox Sheets(1).xxxxxx.Name
End Sub
Erstellen in einer UF zur Laufzeit geht so:
With Me.Controls.Add("Forms.TextBox.1", "NameTextbox")
.Left = 10
.Top = 30
.Width = 100
End With
‚Beispiel Verwendung
MsgBox "‘" & Me(„NameTextbox“).Name & „’ wurde erstellt“
Danke dabei an Rudi und Tino.
Gruß
Reinhard