Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textbox Format zuweisen

Textbox Format zuweisen
19.08.2016 14:41:33
Christof
Moin
wie kann ich den wie folgt erstellten Textboxen eine Formatierung auf diktieren?
Dim theTextBox As Object
Dim textBoxCounter As Long
For textBoxCounter = 1 To AnzahlKontenPrämie1
Set theTextBox = KontoauszügePrämie.Controls.Add("Forms.TextBox.1", "Kontostand" &  _
textBoxCounter, True)
With theTextBox
.Value = Sheets("Datenbank Konten Prämie").Range("L" & (textBoxCounter + 1)).Value
.Font.Size = 10
.Left = 90
.Width = 120
.Top = 6 + (36 * textBoxCounter)
End With
Next

LG Christof
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox Format zuweisen
19.08.2016 15:03:36
Daniel
Hi
was für ein Format meinst du? Etwa das Zahlenformat?
gar nicht, eine TextBox enthält Text und damit kann sie kein Zahlenformat besitzen.
Wenn du eine Zahl in die TextBox einträgst, wird die Zahl in einen Text gewandelt.
Wenn du hierbei keine expliziten Anweisungen gibst, verwendet VBA seine Standardregeln.
Wenn dir die nicht passen, musst du den Zahlenwert selbst in einen Text wandeln.
hierbei hast du zwei Möglichkeiten:
a) du übernimmst das Zahlenformat aus der Zelle:
Value = Sheets("...").Range("...").Text
b) du wandelst die Zahl per Format-Funktion in einen Text nach deinen wünschen:
Value = Format(Sheets("...").Range("...").Value, "0.00")
Gruß Daniel
Anzeige
AW: Textbox Format zuweisen
19.08.2016 15:08:41
Christof
So einfach :D
Danke schön
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Textbox Format in Excel VBA zuweisen


Schritt-für-Schritt-Anleitung

Um eine Textbox in Excel mit VBA zu formatieren, kannst du den folgenden Code verwenden. Der Beispielcode erstellt mehrere Textboxen und weist ihnen ein bestimmtes Format zu:

Dim theTextBox As Object
Dim textBoxCounter As Long
For textBoxCounter = 1 To AnzahlKontenPrämie1
    Set theTextBox = KontoauszügePrämie.Controls.Add("Forms.TextBox.1", "Kontostand" & textBoxCounter, True)
    With theTextBox
        .Value = Sheets("Datenbank Konten Prämie").Range("L" & (textBoxCounter + 1)).Value
        .Font.Size = 10
        .Left = 90
        .Width = 120
        .Top = 6 + (36 * textBoxCounter)
    End With
Next

Dieser Code verwendet die Forms.TextBox.1, um neue Textboxen zu erstellen und ihnen eine spezifische Formatierung zuzuweisen. Achte darauf, die Anzahl der Textboxen (AnzahlKontenPrämie1) und die Quelle der Werte anzupassen.


Häufige Fehler und Lösungen

  1. Fehler beim Zahlenformat: Wenn du versuchst, ein Zahlenformat in einer Textbox anzuzeigen, kann es zu Problemen kommen, da Textboxen standardmäßig Text speichern. Um sicherzustellen, dass die Zahl korrekt angezeigt wird, verwende die Format-Funktion.

    .Value = Format(Sheets("...").Range("...").Value, "0.00")
  2. Textbox nicht sichtbar: Wenn die Textbox nicht angezeigt wird, überprüfe die Position (.Left und .Top) sowie die Maße (.Width und .Height). Stelle sicher, dass sie innerhalb der Grenzen des Formulars liegen.


Alternative Methoden

Wenn du eine andere Möglichkeit suchst, Textboxen zu formatieren, kannst du auch die Eigenschaften in Excel direkt über die Benutzeroberfläche anpassen. Gehe dazu wie folgt vor:

  1. Füge eine Textbox über die Entwicklertools hinzu.
  2. Klicke mit der rechten Maustaste auf die Textbox und wähle „Eigenschaften“.
  3. Hier kannst du verschiedene Eigenschaften wie Schriftgröße, Farbe und mehr anpassen.

Diese Methode ist besonders nützlich, wenn du visuelle Anpassungen ohne VBA-Code vornehmen möchtest.


Praktische Beispiele

Hier sind einige Beispiele, wie du die Textbox Format anpassen kannst:

  • Schriftfarbe ändern:
theTextBox.ForeColor = RGB(255, 0, 0) ' Rot
  • Hintergrundfarbe ändern:
theTextBox.BackColor = RGB(255, 255, 0) ' Gelb

Diese Anpassungen können dir helfen, die Benutzeroberfläche deiner Excel-Anwendung ansprechender zu gestalten.


Tipps für Profis

  • Nutze die With...End With-Anweisung, um den Code übersichtlicher zu gestalten.
  • Verwende die Properties-Eigenschaft, um schnelle Anpassungen vorzunehmen.
  • Experimentiere mit verschiedenen Formaten in der Format-Funktion, um das gewünschte Ergebnis zu erzielen.

FAQ: Häufige Fragen

1. Kann ich das Format einer bestehenden Textbox ändern?
Ja, du kannst die Eigenschaften einer bestehenden Textbox jederzeit ändern, indem du auf die Textbox zugreifst und die gewünschten Eigenschaften anpasst.

2. Was ist der Unterschied zwischen Text und Zahlen in einer Textbox?
Textboxen speichern alle Eingaben als Text. Wenn du eine Zahl eingibst, wird sie automatisch in einen Text umgewandelt. Verwende die Format-Funktion, um sicherzustellen, dass die Zahl korrekt angezeigt wird.

Beliebteste Forumthreads (12 Monate)

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