Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

textbox mit inhalt einer zelle füllen

Forumthread: textbox mit inhalt einer zelle füllen

textbox mit inhalt einer zelle füllen
14.01.2005 13:41:12
roland
hoi zusammen,
nun suche ich mal wieder seit stunden an nem problemchen rum :_((
ich habe eine userform.......und da eine textbox4 z. b.
mit folgendem code rufe ich die userform aus dem tabellenblatt aus auf:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim zelle As Range
Set zelle = Range("A5:A52")
If Not Intersect(Range(Target.Address), zelle) Is Nothing Then UserForm1.Show
Set zelle = Nothing
End Sub

bei klick auf einer der zellen von A5 bis A52 startet die userform
in den zellen ("A5:A52")stehen die werte 1 - 48 nummeriert ...die userform startet und sollte in einer textbox oder label jeweils di eziffer anzeigen von welcher aus ich die userform gestartet habe.
ich klicke z. b. A8 da steht die ziffer 4 drin, in der textbox oder dem label sollte dann eben auch ide ziffer 4 angezeigt werden
eventuell ne ganz triviale geschichte aber ich finde einfach en weg nicht
vielen danke wer mir ne loesung zeigen kann
gruss roland
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: textbox mit inhalt einer zelle füllen
RR
z.B.
Textbox1.caption = activecell.value
AW: funkt nicht ?
14.01.2005 15:00:34
roland
hier nochmal roland 

Private Sub TextBox5_Change()
TextBox5.Caption = ActiveCell.Value
End Sub

muss ich das so eingeben ?...die eigenschft caption wird nicht angezeigt wenn das ím codefenster eingebe ?
koennte ich dir ev die mappe schicken ..
danke gruss roland
Anzeige
AW: funkt nicht ?
Beni
Hallo Roland,
Textbox1.caption gibt es nicht, Caption gibt es bei Labels oder Frams.
Gruss Beni

Private Sub UserForm_Initialize()
TextBox1.Value = ActiveCell.Value
' Label1.Caption = ActiveCell.Value
End Sub

alles ok....habe es auch gefunden
15.01.2005 11:34:41
roland
hi beni
danke ich habe das mit:

Private Sub UserForm_Initialize()
'ziffer aus spalte A in textbox eintragen
Me.txtSpiel_NR.Value = ActiveCell.Value
End Sub

gemacht .....danke trotzdem...manchmal hägts an kleinigkeiten
gruss roland
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Textbox mit Inhalt einer Zelle füllen in Excel

Schritt-für-Schritt-Anleitung

Um eine Textbox in einer UserForm mit dem Inhalt einer Zelle in Excel zu füllen, kannst du die folgenden Schritte befolgen:

  1. UserForm erstellen: Erstelle eine UserForm in deinem Excel VBA-Projekt.

  2. Textbox hinzufügen: Füge eine Textbox (z.B. TextBox1) zu deiner UserForm hinzu.

  3. VBA Code einfügen: Verwende den folgenden VBA-Code in der UserForm:

    Private Sub UserForm_Initialize()
   Me.TextBox1.Value = ActiveCell.Value
End Sub

  4. Worksheet Code: Um die UserForm zu öffnen, wenn du eine bestimmte Zelle auswählst, füge diesen Code in das entsprechende Tabellenblatt ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   Dim zelle As Range
   Set zelle = Range("A5:A52")
   If Not Intersect(Target, zelle) Is Nothing Then UserForm1.Show
   Set zelle = Nothing
End Sub

  5. Testen: Klicke auf eine Zelle im Bereich A5:A52, um die UserForm zu öffnen und den Wert in der Textbox anzuzeigen.

Häufige Fehler und Lösungen

  • Fehler: TextBox zeigt keinen Wert an.

    • Lösung: Stelle sicher, dass der Code im UserForm_Initialize-Ereignis steht und die UserForm korrekt initialisiert wird.

  • Fehler: Caption-Eigenschaft wird nicht angezeigt.

    • Lösung: Verwende Value statt Caption, da Caption bei Textboxen nicht verfügbar ist.

Alternative Methoden

Eine alternative Methode, um eine Textbox in Excel VBA zu füllen, ist die Verwendung von TextBox1.Value in einem anderen Ereignis, wie dem Change-Ereignis der Textbox. Beispiel:

Private Sub TextBox1_Change()
    TextBox1.Value = ActiveCell.Value
End Sub

Diese Methode aktualisiert den Inhalt der Textbox, wenn sich die Auswahl ändert.

Praktische Beispiele

Hier ist ein praktisches Beispiel, das zeigt, wie man die Textbox mit dem Inhalt einer Zelle füllt:

  1. Erstelle eine UserForm mit einer Textbox (TextBox1).

  2. Füge den folgenden Code in die UserForm ein:

    Private Sub UserForm_Initialize()
   Me.TextBox1.Value = ActiveCell.Value
End Sub

  3. Füge den Worksheet-Code hinzu, wie im Schritt-für-Schritt Abschnitt beschrieben. Wenn du auf A10 klickst, wird der Inhalt von A10 in TextBox1 angezeigt.

Tipps für Profis

  • Verwende Me: Nutze Me in der UserForm, um auf die Steuerelemente zuzugreifen. Das verbessert die Lesbarkeit deines Codes.
  • Fehlerbehandlung: Implementiere Fehlerbehandlung, um unerwartete Fehler beim Zugriff auf Zellinhalte zu vermeiden.
  • Benutzerfreundlichkeit: Stelle sicher, dass die UserForm benutzerfreundlich gestaltet ist, um eine optimale Benutzererfahrung zu gewährleisten.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Textboxen mit Zellinhalten füllen?
Du kannst mehrere Textboxen in der UserForm hinzufügen und für jede Textbox einen ähnlichen Code im UserForm_Initialize-Ereignis verwenden.

2. Was mache ich, wenn die UserForm nicht angezeigt wird?
Überprüfe den Code im Worksheet_SelectionChange-Ereignis und stelle sicher, dass die Auswahl im richtigen Zellbereich liegt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige